Find in table equal to the value of a cell

[S P P]

Find in column 1 of table1 equal to A2

 

[p45cal]

OK so it's found; what do you want to do with the information? Tell the user the address of the cell? Highlight the cell(s)? Return information from the same row? What?

 

[S P P]

I made an example on plan2

 

[p45cal]

See button on Plan2

 

[p45cal]

Beacuse on Plan1 you have a proper Excel table called Tabela1, you can use another code:

Sub findnumber2()
With Range("Tabela1").ListObject
  FindS = .Parent.Range("A2").Value
  Set Rng = .ListColumns(1).DataBodyRange.find(What:=FindS, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False, searchformat:=False)
  If Not Rng Is Nothing Then
    Application.Goto Rng, True
  Else
    MsgBox "Não Encontrado"
  End If
End With
End Sub

This is run by clicking the button on that sheet in the attached.

 

[S P P]

p45cal

Good Morning!

Thank you for your help

It was great like this