hyperlink / verborgen tabblad

JP,

Eerlijk gezegd zie ik niet zozeer een oplossing van het Follow-probleem in je beschrijving. Maar met je code geef wel je aan dat Follow weggelaten kan worden om toch het gewenste resultaat te krijgen.

Dat betekent dat de hyperlinks nu alleen dienen om het adres te leveren.

Dan lijkt het me, en jou dacht ik ook, beter om maar af te zien van de hyperlinks.

Ik maakte een uitwerking van m'n eerdere voorstel, maar nu niet met dubbelklikken (wel eenvoudig om te zetten) maar met selecteren van de 'link'-cellen.

Het ziet er wat eenvoudiger uit dan het werken met knoppen e.d., maar ik denk dat dit ook wat eenvoudiger is te onderhouden .

Jan

All, (Jan, Ronald, Bocculus)

Ik denk, hoop althans, het raadsel van de hyperlinks opgelost te hebben. 

De hyperlink bevat het volledig path/URL en al lijkt zich dat wel dynamisch aan te passen, toch vermoed ik dat daar ergens de oorzaak vanhet falen van .FOLLOW ligt.

De aangepaste code:

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)

   Dim objSheet As Worksheet

   Application.EnableEvents = False

   Set objSheet = Sheets(Split(Target.SubAddress, "!")(0))

   With objSheet

      .Visible = True

      .Activate

   End With

   Sh.Visible = False

   Application.EnableEvents = True

End Sub

We kunnen dit nog uitbreiden om, indien nodig, naar een bepaalde cel te gaan.

Ik kijk uit naar jullie reacties.

Nieuwe versie:

https://1drv.ms/x/s!AmIR8Z3XdrKRkh0h5ZJl13dJoq7W

Hallo Bocculus,

Ik ben erg nieuwsgierig naar je oplossing.

Groet,

Ronald

Bocculus,

Maak je daarover geen zorgen....

Verder heeft Ronald waarschijnlijk z'n plan getrokken en wellicht horen we nog wat het geworden is.

Jan

Beste Jan,

Niet te hard wrijven Jan, daar kun je toch wel tegen?

Maar je hebt gelijk, ik heb het over het hoofd gezien.

Ik heb indertijd zelf iets dergelijks gemaakt met knoppen en dat werkte goed. Zo ook jouw oplossing, natuurlijk.

Ronald kan soms wel eens wat karig zijn met informatie, zoals wel vaker. Vind ik.

Groet,

Bocculus