Busca

[castelo]

Ola.

Como posso realizar via macrou ou código VB busca em mais de uma planílha de dados

[Lisandro Oliveira]

Ola.

Como posso realizar via macrou ou código VB busca em mais de uma planílha de dados   

Oi castelo, faça assim:

Vá em ferramentas/macros/editor do visual basic

Vá em inserir/ módulo e cole esse codigo lá

Sub localizar()

Dim e, a As Integer

e = 1

a = InputBox("Digite a quantidade de planilhas")

busca = InputBox("Digite a palavra para ser encontrada")

plan:

While e <= a

Sheets(e).Select

Sheets(e).Activate

On Error Resume Next

c = Cells.Find(What:=busca, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate

If c = "Verdadeiro" Then

Exit Sub

End If

e = e + 1

Wend

End Sub

Feche o editor

Agora vá em ferramentas/macros/macros , clique em localizar e depois em Executar

você pode adicionar um botão e colocar a macro localizar nele.

beleza???

Qualquer coisa retorne

Abraços

Lisandro Oliveira