Macro to find cell value in another sheet

[kentster]

Hi - I spent time trying to find it in the FAQs but I couldn't find the answer. Apologies if it is out there.

I am trying to create a macro which will take the value from the active cell in "Sheet1" and find the matching value in column A in Sheet 2. When it is found, my cursor would be sitting in Sheet 2 on the matched value.

 

[Alex Blakenburg]

@ipbr21054, this is a very old thread, you really should start a new thread.
I think rngY is a poor choice of variable names since rng implies that you would Dim rngY as Range but in reality to make that code work you would need to Dim rngY as String

 

[ipbr21054]

So maybe this is why it doesn’t work for me.
I will keep looking thanks.

 

[SQUIDD]

@ipbr21054, this is a very old thread, you really should start a new thread.
I think rngY is a poor choice of variable names since rng implies that you would Dim rngY as Range but in reality to make that code work you would need to Dim rngY as String

It is a poor choice, granted, but still should work.

 

[SQUIDD]

So maybe this is why it doesn’t work for me.
I will keep looking thanks.

standard module?

 

[ipbr21054]

Command button on worksheet,right click then paste code

 

[SQUIDD]

Command button on worksheet,right click then paste code

try putting the below in your command button

Private Sub CommandButton1_Click()
    select_me
End Sub
Private Function select_me()
    Set b = Worksheets("sheet2").Range("A:A").Find(ActiveCell.Value, lookat:=xlWhole)
    b = b.Row
    Sheets("sheet2").Select
    Sheets("sheet2").Range("a" & b).Select
End Function