Notifications
Clear all

Macro de busca em planilha por nome e por número

2 Posts
2 Usuários
0 Reactions
1,029 Visualizações
(@iethan)
Posts: 10
Active Member
Topic starter
 

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
(@eborioli)
Posts: 1
New Member
 

Boa tarde,

Tenta trocar sua variável de integer para variant.
variant aceita números e textos.

troque nesse ponto:
Dim valor As Integer

 
Postado : 07/11/2017 11:00 am