Move cursor to specific cell in a column based on value in another cell

[Blanchetdb]

Hi

seeking for a VBA code to do the following:

I would like the cursor to move to a cell in column A - where the value in column AC of that same row matches cell value in G5

example:
value in cell G5 is "ICA-2023 (Tom)"
value in cell A10 is "ICA-2023"
value in cell AC10 is "ICA-2023 (Tom)"
the cursor goes to cell A10

any help would be greatly appreciated

 

[Snakehips]

@Blanchetdb Maybe like below.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or Intersect(Target, Cells(5, 7)) Is Nothing Then Exit Sub
Cells(Application.WorksheetFunction.Match(Target, Range("AC:AC"), 0), 1).Select
End Sub

 

[Blanchetdb]

@Blanchetdb Maybe like below.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or Intersect(Target, Cells(5, 7)) Is Nothing Then Exit Sub
Cells(Application.WorksheetFunction.Match(Target, Range("AC:AC"), 0), 1).Select
End Sub

tried but nothing happened ....

the command button is located on sheet name "ScienceDADMonitoring". I inserted the code on that page and then tried creating a new module ... still nothing happening

 

[Snakehips]

Sorry, I assumed that you would be wanting an automatic reaction to having changed the value in G5. Hence I used the Worksheet_Change event (thus no button involved). If that were to have been relevant then it would need to be in the sheet code pane.
If using a button on the same page a then try below.

Sub Go_ColA()
Cells(Application.WorksheetFunction.Match(Cells(5, 7), Range("AC:AC"), 0), 1).Select
End Sub

 

[Blanchetdb]

Sorry, I assumed that you would be wanting an automatic reaction to having changed the value in G5. Hence I used the Worksheet_Change event (thus no button involved). If that were to have been relevant then it would need to be in the sheet code pane.
If using a button on the same page a then try below.

Sub Go_ColA()
Cells(Application.WorksheetFunction.Match(Cells(5, 7), Range("AC:AC"), 0), 1).Select
End Sub

awesome .... thank you