How to show nth row as first visible row on the screen?

[inddon]

Hello There,

I am writing a 'User Manual' on how to use the workbook. It includes few/several topics on the second row (Freeze pane on third row).

Each Topic has a heading and below is it's explanation.

On mouse click on a 'Topic', it should bring up/display the Topic on the first visible row on the screen (attached screenshot)

Eg.
1. Topic : How to Use the workbook (on Row 100)
Explanation: From Row 101-110
2. Topic : How to Import Data (on Row 200)
Explanation: From Row 201-210

From Rows 1-50 (blank) is visible on the screen.

When I click on Topic 'How to Use the Workbook', it should show Row 100 as the first visible row on the screen.

This is like how the navigation click works on websites.


Attached is a sample workbook for your reference.

Could you please advise how this could be achieved using VBA/formulas or any any other means?

Look forward to hearing from you.


Many thanks & regards,
Don

 

[Nebu]

Hi:

Use hyperlinks as attached.

Thanks

 

[inddon]

Hi:

Use hyperlinks as attached.

Thanks

Hi Nebu,

Thank you for your reply.

Hyperlink partially works. It places the cursor on the row of the Topic, but does not make the Topic row as the first visible top row in the screen (attached test case print screen shots) That is what I am looking for.

Any other option you might think of?


Regards,
Don

 

[Marc L]

Hi !

See Application.Goto method as well ScrollRow property …
​

 

[Nebu]

Hi:

Use the following code

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.Range.Address = "$B$2:$E$2" Then Application.Goto Range("A100"): Application.Goto ActiveCell, True
If Target.Range.Address = "$G$2:$I$2" Then Application.Goto Range("A200"): Application.Goto ActiveCell, True
End Sub

Thanks

 

[Marc L]

Hi Nebu !

You can directly apply Application.Goto Range("A100"), True …
​

 

[inddon]

Hi:

Use the following code

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.Range.Address = "$B$2:$E$2" Then Application.Goto Range("A100"): Application.Goto ActiveCell, True
If Target.Range.Address = "$G$2:$I$2" Then Application.Goto Range("A200"): Application.Goto ActiveCell, True
End Sub

Thanks

Thank you Nebu

 

[inddon]

Hi Nebu !

You can directly apply Application.Goto Range("A100"), True …
​

Thank you Marc