Bruno.2017

Muito obrigado.

Bom dia. Agradeço o retorno, mas na verdade gostaria de digitar o cep na celula A1 e em A2 aparecer o resultado da busca do endereço. Existiria algo do tipo?

Prezados, boa tarde. Estou com um problema. Tenho um relatório onde boa parte de endereços não foi preenchida. Então tenho o número dos ceps e gostaria de saber se alguém teria alguma fórmula ou macro que pudesse trazer o endereço a partir do cep. Obrigado.

Na verdade seria para mais de um banco, aí fica difícil definir o formato, mas obrigado pelo retorno.

Perfeito, muito obrigado mais uma vez.

Bom dia. Percebi que realmente é difícil, pois os extratos não tem o mesmo padrão. Obrigado.

Prezados, bom dia. Primeiramente gostaria de agradecer aos esclarecimentos da macro que precisei anteriormente. Gostaria novamente de pedir uma ajuda, pois e mesma macro que recebi anteriormente gostaria de coloca-la na célula ao lado (J4 ) utilizando bomo base a coluna ao lando da anterior (C2:C1090). Não consigo colocar duas macros para trabalhar na mesma planilha ou coloca-la em um modulo. Desde já agradeço. Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo Fin If Target.Count > 1 Then Exit Sub Cells(3, "J").Value = "" If Not Application.Intersect(Target, Range("B2:B1090")) Is Nothing Then Application.EnableEvents = False Cells(3, "J").Value = Target.Value2 Fin: Application.EnableEvents = True Else Cells(3, "J").Value = "" End IfTESTE CELULA ATIVA (1).zip End Sub

Obrigado, mas para outro banco não funcionou. Se tiver algum que leia txt. poderia me enviar? Acredito que como txt eu possa deixar no formato correto antes de importar. Mais uma vez obrigado.

Prezados, boa tarde. Gostaria de saber se há ou se alguém teria uma macro que consiga importar o extrato bancário de determinada pasta, e qual seria o formato do arquivo para tal importação. Desde já, muito obrigado.

Seria o valor por extenso, mas já entendi a macro, consigo fazer. Muito Obrigado.

Perfeito, muito obrigado. Se não for incômodo haveria a possibilidade do resultado em E1 ser um procv, trazendo o por extenso ao lado do número clicado? Se não existir essa possibilidade, desde já agradeço, pois ajudou muito.

Bom dia. Anexei o exemplo. A princípio seria clicar em uma célula da coluna A e em E1 Aparecer o conteúdo da resposta ao lado (coluna B), mas se não for possível, aparecendo na célula E1 o conteúdo que eu clicar na coluna A já me ajudaria. Desde já obrigado. TESTE CELULA ATIVA.xlsx

Prezados, bom dia. Gostaria de saber se há ou se alguém conseguiria me ajudar em uma macro. Preciso de uma planilha onde em uma celula por exemplo A1 demonstre o resultado de um procv de uma celula celecionada, assim como funciona em um sistema contabil onde clicamos no codigo da conta e em uma celula determinada aparece a descrição da conta. Poderiam me ajudar?

Prezados, bom dia. Consegui montar a macro abaixo, porém não consigo complement-la para minha necessidade. Poderiam me ajudar? Na verdade eu precisa iserir a quantidade de linhas na planilha 1 abaixo da celula a1, de acordo com a quantidade de linhas estipulada na celula a2. Poderiam me ajudar? Sub Exemplo() Rows(2).Resize(Range("A1")).Insert End Sub

Boa tarde. Só mais uma coisa, estou tentando juntar essa macro a uma outra, porém sheet não é renomeada de acordo com a seleção que fiz, e ao executar a macro sozinha com os mesmo dados de referencia a mesma é executada sem problemas. Preciso incluir algo?

Bom dia. Muito obrigado pela ajuda!

Bom dia Basole. Juntei as informações e consegui chegar aonde queria, porém não consigo indicar com referencia outras celulas. Poderia me ajudar? Sub fncMain() Dim lngMenu As Long Dim Lr As Long With ThisWorkbook Lr = .Worksheets("resumo").Cells(Rows.Count, 1).End(xlUp).Row Sheets("resumo").Select ActiveWorkbook.RefreshAll ' Ultima Lin c/ dados For lngMenu = 1 To Lr .Worksheets("WP").Copy After:=.Sheets(.Sheets.Count) .Worksheets(.Sheets.Count).Name = .Worksheets("resumo").Cells(lngMenu, "A:A") - Ao invés de A gostaria de selecionar de B12 até a ultima celular que contenha informações.Já tentei até colocar Range no lugar de cells mas não deu certo. Next lngMenu End With End Sub

Obrigado pela ajuda. Vou testar dessa forma e darei um retorno.

obrigado, porém teria alguma macro que eu pudesse contar antes de tudo a quantidade de nomes que referenciei, visando a criação de abas de acordo com esta quantidade? Dim ws As Worksheet Dim lngMenu As Long With ThisWorkbook For lngMenu = 1 To 16 Set ws = .Sheets.Add(After:=.Sheets(.Sheets.Count)) If Not .Worksheets("resumo").Cells(lngMenu, "A").Value2 = Empty Then ws.Name = .Worksheets("resumo").Cells(lngMenu, "A").Value2 End If Next End With

Prezados, boa tarde. Comecei a utilizar macros a pouco tempo e tentei criar uma macro onde sheets sejam criadas e renomeadas de acordo com sheet base com um relação de nomes nos quais remeariam a novas sheets, porém acho que estou errando em alguma coisa, pois ao indicar mais nomes na base a macro da erro. poderiam me ajudar? Sub fncMain() Dim lngMenu As Long With ThisWorkbook For lngMenu = 1 To 16 .Worksheets("WP").Copy After:=.Sheets(.Sheets.Count) .Worksheets(.Sheets.Count).Name = .Worksheets("resumo").Cells(lngMenu, "A") Next lngMenu End With End Sub