| Descricao: |
 Escola Saberexcel VBA Estudos® - Treinamento com Macros, Fórmulas e Funções
Essa macro do aplicativo Microsoft Excel VBA(Visual Basic Application) com o auxilio de uma entrada de dados (inputBox) localiza determinada palavra,
seleciona a célula e retorna o endereço da célula encontrada>
Espero que o exemplo possam lhe ser útil. fique com Deus. Expedito Marcondes
Sub Localiza_palavra_desejada()
sbx = InputBox("Procurar palavra desejada", "Escola Saberexcel VBA Estudos", "Busca_personalizada")
If sbx = cancel Then 'caso cancele a busca
Exit Sub
End If
Cells.Find(What:=sbx, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Select
MsgBox "Palavra [ " & sbx & " ] encontrada na célula [ " & ActiveCell.Address & " ]", vbInformation, "Escola Saberexcel VBA Estudos"
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
|