Tabblad open

[fransol1]

Hoe kan ik met gegevensvalidatie een tabblad met die waarde

 

[AD1957]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "F7" Then Sheets(Target.Value).Activate
End Sub

Een bestand met 500 tabbladen waar bijna zeker dezelfde gegevens op staan ?:shocked:
Geef eens een voorbeeldje wat er in een tabblad komt te staan.

 

[HSV]

Variant.

 If Target.Address(0, 0) = "F7" Then application.goto Sheets(Target.Value).cells(1),true

Scrolt gelijk naar de eerste cel van het bewuste blad.