Koppeling (hyperlink)

[chakar]

Hallo,
Wie kan mij helpen met het volgende?

Ik heb een bestand met meerdere tabladen. Ik maak een koppeling op tablad 1 naar een rij bv. B72 van tablad 2
Wanneer ik op de koppeling druk dan opent de link zich op de pagina in dit geval tablad 2 maar staat B72 willekeurig, bv. midden, onderaan of andere plaats van de pagina (scherm).
Bestaat er geen mogelijk dat wanneer ik op de link klik de pagina opent en de de verwijzing bv. B72 zich boven aan de pagina bevindt ?

Bedankt voor de hulp

 

[gast0660]

Zonder vbtje?
Met deze code komt B72 op de plaats van A1 te staan.

Sub TopLinks()
Application.Goto [B72], Scroll:=True
End Sub

 

[HSV]

In Thisworkbook.

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
 Application.Goto Range(Target.SubAddress), True
End Sub

 

[chakar]

Ok, bedankt maar waar plaats ik deze code ?

 

[HSV]

Alt+F11.
In de projectverkenner (links) een dubbelklik op 'Thisworkbook'.
Code plakken in het grote witte vlak.
Alt+Q om te sluiten.
Bestand opslaan.als met macro's.

Testen of het werkt.

 

[chakar]

in welk tablad plak ik deze code ?
tablad waar de link staat of de pagina naar waar de link verwijst ?

 

[edmoor]

Wat HSV al zegt, in de ThisWorkbook sectie.
Dus niet in een tabblad.

 

[HSV]

Vreemd, voor de aanpassing schreef Ts dat het werkte.

 

[chakar]

ok, het werk had niet gezien dat ik het moest plakken in ThisWorkbook