Automate a FIND and GOTO the result button VBA code

[phattchef]

Hi all,
I need to find a text value in a Table (Tbl_PRICE_LIST) and then GOTO that cell.
I can do it munually bu using FIND & SELECT, but the Value I type in MUST be exact, soo
I have created a searchable drop down list in D2 and I want to create a button that copies the text value in D2 to the FIND & SELECT dialoge box and FIND NEXT in the table and GOTO to the cell.
The values are unique. There will be up to 2000 rows in the table. The values are typically only in one column (PRODUCTS)
I have tried to recor a macro but it will not open the FIND & SELECT dialoge window.
Please can some good soul point me in the right direction.
I am fairly familiar with VBA (teaching myself with an on-line course)
Kind Regards

 

[bebo021999]

Find and FindNext Method may help.
Try to google them to see how to use.

 

[phattchef]

Hello again,
I have found a multitude of answers, but sadly not one that

a) COPIES the variable from a cell (D2)​

b) After finding the EXACT MATCH it must GOTO the cell in which the answer is​

​

HELP

 

[Alex Blakenburg]

Do you just mean something like this ?

Sub FindProduct()

    Dim rngProd As Range
    Dim tbl As ListObject, tblCol As ListColumn
    Dim rngGoTo As Range
    
    Set tbl = Range("Tbl_PRICE_LIST").ListObject
    Set tblCol = tbl.ListColumns("PRODUCTS")
    
    With tblCol.Range
        Set rngGoTo = .Find(What:=Range("D2").Value, LookIn:=xlValues, LookAt:=xlWhole) '
    End With
    
    If Not rngGoTo Is Nothing Then
        rngGoTo.Select
    Else
        MsgBox "The product was not found"
    End If
    
End Sub

 

[phattchef]

Hi Alex
THANK YOU for your solution...so simple when I saw it...I was just trying to overcomplicate it with loops and find nexts and find exacts
GREAT STUFF appreciate!!
kind regards
Simon Kerr

 

[Alex Blakenburg]

You're welcome. Glad we could help.