Descricao: |
Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA.
 Esta macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), com auxílio de uma InputBox(Entrada de Dados), busca uma determinada palavra em uma determinada Range e retorna o endereço da célula , selecionando-a.
Sub Buscar_determinada_palavra() Dim X As Range On Error Resume Next sbx = InputBox("Digite a palavra para busca", "Saberexcel - o site das Macro", "Saberexcel") With ThisWorkbook.Sheets("Busca_Palavra").Range("L1:L600") Set sby = .Find(sbx, , xlValues, xlWhole, , , False) End With If Not sby Is Nothing Then MsgBox "A palavra [ " & sbx & " ] esta na célula..: [ " & sby.Address & " ]", vbInformation, "Saberexcel - site das macros" sby.Select End Sub
Para buscarmos uma determinada palavra em outro livro, e também retornar o nome da célula onde esta localizado o nome procurado devemos usar o seguinte código. observe que não usei a entrada de dados Inputbox e sim a célula(C2). (Monte o exemplo de Planilha) Sub Buscar_Palavra_em_outro_livro() Dim sby As Range With Workbooks("Conta_Pagar.xls").Sheets("Plan1").Range("L1:L600") Set sby = .Find(Workbooks("Pagamento.xls").Sheets("Plan1").Range("C2").Value, , xlValues, xlWhole, , , False) End With If Not sby Is Nothing Then MsgBox "A palavra [ " & sbx & " ] esta na célula..: [ " & sby.Address & " ]", vbInformation, "Saberexcel - site das macros" End Sub
 Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

|