Boa noite pessoal! Estou montando uma macro porém mesmo me esforçando muito não estou conseguindo executar o propósito que eu queria para ela.
Eu tentei elaborar uma macro que fizesse uma Pesquisa assim como no Ctrl + L do Excel com o diferencial em que consigo definir em quais guias a busca será feita e também a busca com parte das palavras, assim como quando selecionamos a opção no Ctrl + L "coincidir conteúdo de célula inteira". (Também como no Ctrl + L selecione a célula com o valor encontrado e também caso esteja em outra guia, deixa a guia ativa)
Busquei ajuda em outros fórums porém ainda não consegui resolver.
Se eu estiver indo além do objetivo deste fórum me desculpem pessoal, retiro o tópico. De toda forma já agradeço a ajuda, obrigado!
Option Compare Text
Sub Localizar_parcial()
Dim celini As Range
Application.ScreenUpdating = False
Set celini = ActiveCell
On Error Resume Next
For i = 1 To Sheets.Count
If Sheets(i).Name = "A" Or Sheets(i).Name = "B" Then
Sheets(i).Activate
Sheets(i).Cells.Find(What:=Plan1.TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
GoTo fim
If Plan1.TextBox1.Value = "*" & ActiveCell.Value & "*" Then
Plan1.Activate
celini.Select
End If
Set celini = Nothing
End If
Next i
fim:
Application.ScreenUpdating = True
End Sub
