VBA- Navigation List

[Is_REF]

Hello! I am trying to build a macro to be able to navigate in one sheet. It seems too complex to me, as I don't have programming background.
The idea is the following, I have this summary list:

[TABLE="class: outer_border, width: 500"]
<tbody>[TR]
[TD]Column G[/TD]
[TD]Column I[/TD]
[/TR]
[TR]
[TD]100[/TD]
[TD]USA[/TD]
[/TR]
[TR]
[TD]120[/TD]
[TD]EU[/TD]
[/TR]
[TR]
[TD]140[/TD]
[TD]JAPAN[/TD]
[/TR]
[TR]
[TD]...[/TD]
[TD]...[/TD]
[/TR]
</tbody>[/TABLE]

Column G contains the row number where information of country in Column I starts. I want to select cell I2 (USA) and the macro to do a "go to" to row 100 (value in cell G2), or select EU and go to row 120, etc...

I have tried with the following:

Private Sub Country_list_navigation(ByVal Target As Range)

Dim Country_name As Object
Dim Country_row As Object
Dim Target_row As Integer

Country_name = Range("I5:I104")
Country_row = Range("G5:G104")
Target_row = ActiveCell.Offset(0, -2).Value

If Target.Adress = Country_name Then
Application.Goto Reference:=Cells(1, Target_row), scroll:=True

End If
End Sub

Of course, it is not working... any ideas?
Thank you in advance!

Best,
Isa

 

[DanteAmor]

Put the following code in the events of your sheet

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("I:I")) Is Nothing Then
        If Cells(Target.Row, "G").Value <> "" And IsNumeric(Cells(Target.Row, "G").Value) Then
            Application.Goto Reference:=Cells(Cells(Target.Row, "G").Value, 1), scroll:=True
        End If
    End If
End Sub

 

[Is_REF]

Awesome!! It works!
Thanks!! ray:

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.