Estou precisando muito da ajuda de vocês.
Atualmente estou tentando montar um código para pesquisar por um valor inserido em um textbox em guias determinadas e me direcionar à célula com valor encontrado.
Atualmente consegui o seguinte código:
Código: Selecionar todos
Private Sub CommandButton1_Click()
Pesquisa = Plan1.TextBox1.Value
If Pesquisa = "" Then Exit Sub
Set plan = Sheets("Nome_da_Planilha") 'DEFINE NOME DA PLANILHA
Set x = plan.Cells.Find(what:=Pesquisa)
If Not x Is Nothing Then
firstAddress = x.Address
Do
plan.Select
x.Select
Set x = plan.Cells.FindNext(x)
Loop While Not x Is Nothing And x.Address <> firstAddress
Else
MsgBox "Texto não encontrado na planilha " & plan.Name
End If
End Sub
Exemplo:
Tenho as guias A, B, C e D
Quero que a pesquisa seja feita apenas nas guias A e C.
Se o valor do textbox estiver na guia A ou C, abrir a guia e selecionar a célula com o valor respectivo.
No código inserido acima no tópico está tudo acontecendo perfeitamente com exceção de conseguir rodar em mais de uma guia.
Conto com vocês! Obrigado desde já.