Encontrei, na internet, um código que busca, na planilha 2, o número e preenche, na planilha 1, os dados correspondentes da linha, a qual o número está.
Tentei criar uma maneira de poder realizar essa busca, tanto para número como para nome, mas não entendo muito bem do assunto e não consegui.
Alguém pode ajudar ?
Segue o código citado:
(O código funciona, só quero uma adaptação para que seja possível também a pesquisa por nome e não somente número)
Sub Busca()
On Error GoTo erro
erro:
If Err.Number Then
MsgBox "Número não encontrado", vbCritical, "Atenção"
Limpar
Else
Dim valor As Integer
valor = InputBox("Informe o número", "Buscar")
Range("A1") = valor
Range("A2") = Application.WorksheetFunction.VLookup(valor, Sheets(2).Range("A:B"), 2, False)
celula = Application.WorksheetFunction.Match(valor, Sheets(2).Range("A:A"), 0)
End If
End Sub
Postado : 06/11/2017 2:09 pm