Notifications
Clear all

Encontrar o endereço de uma procura

4 Posts
2 Usuários
0 Reactions
932 Visualizações
(@valdecirrk)
Posts: 230
Reputable Member
Topic starter
 

Bom dia

Estou utilizando o VLookup e quero saber qual o endereço do resultado da procura.

Exemplo:
encontrei um nome em uma coluna de 500000 linhas, mas quero saber qual a linha que o Vlookup encontrou o resultado.

 
Postado : 22/03/2016 8:21 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Se quer saber somente a linha, use o CORRESP().

=CORRESP("VALOR PROCURADO";INTERVALO DE BUSCA;0)

Exemplo:

=corresp(A1;J:J;0)

 
Postado : 22/03/2016 9:03 am
(@valdecirrk)
Posts: 230
Reputable Member
Topic starter
 

mas no vba, até consigo localizar o nome, mas quero que me mostre o endereço aonde esta.
Sub LocalizarCopiar()
Dim I As String
Dim II As String
Dim Endereco
Dim Nome As String

Endereco = Sheets("Plan1").Range("A:B")

Nome = InputBox(" Insira o nome")
Sheets("Plan1").Activate
I = WorksheetFunction.VLookup(Nome, Endereco, 2, False)

MsgBox I & " esta na célula " & I

End Sub

 
Postado : 22/03/2016 10:07 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Vc não tinha mencionado VBA... Desculpe eu não tinha como adivinhar...
Se vc quer saber o endereço, use o equivalente ao CORRESP() mas via código que é o MATCH()
Algo assim:

Sub LocalizarCopiar()
Dim I As String
Dim II As String
Dim Nome As String

Nome = InputBox(" Insira o nome")
I = WorksheetFunction.VLookup(Nome, Sheets("Plan1").Range("A:B"), 2, False)
II = WorksheetFunction.Match(Nome,Sheets("Plan1").Range("A:A"),0)

MsgBox I & " esta na linha " & II
MsgBox I & " esta na célula A" & II

End Sub
 
Postado : 22/03/2016 10:35 am