Função Localizar no VBA

Question

 

Boa tarde a todos!

 

Estou com um dúvida: existe, no VBA, função que seja equivalente à Localizar, do excel?? Se existe, qual é???

 

Abraços a todos!

Answer 1

Vc ta falando do CTRL+L????

Answer 2

Não, é função localizar mesmo:

=LOCALIZAR(TEXTO_PROCURADO; NO_TEXTO;NUMINICIAL)

 

Eu acho que consegui me achar com a função InStr.

 

Answer 3

Isso Raphael, a função InStr determina para você a posição do primeiro caractere de um fragmento de texto num outro texto principal.

E tem a síntaxe que vc disse ae mesmo...

 

Acredito que somente o parâmetro NUMINICIAL esteja invertido...confira ae no VBA!

 

InStr(NumInicial;String1;String2;TipoDeComparacao)

 

O parâmetro TipoDeComparacao indica se vc utilizara CaseSensitive, etc...utilize vbTextCompare caso não queira diferenciar maiusculas de minúsculas...

 

Caso a função retorne 0, quer dizer que a string1 não existe na string2, e vice-versa...

 

Tranquilo?

Qualquer dúvida, retorne!

 

Abraços,

Answer 4

E se fosse em vez da função localizar, fosse a tela do Ctrl + L? como Ativar pelo VBA?

Desde já agradeço.

Answer 5

Sub ex1()
    Cells.Find(What:=InputBox("Please enter your search criteria", "Search"), _
    After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _
    SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False).Activate
End Sub

Sub ex2()
    Application.Dialogs(xlDialogFormulaFind).Show
End Sub

Sub ex3()
    Application.Dialogs(xlDialogFormulaReplace).Show
End Sub

Sub ex4()
    Application.CommandBars.FindControl(ID:=1849).Execute
End Sub

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 6

Public Sub FindSomeText()
   
   Z = "a L b gggg ds sdd"
   x = InStr(Z, "b")

   MsgBox x

End Sub