• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Hyperlink naar ander tabblad en verbergen van dat tabblad

Status
Niet open voor verdere reacties.

hans1escort

Gebruiker
Lid geworden
3 aug 2017
Berichten
10
Deze vraag is ook al een keer in 2009 gesteld en werkt goed
alleen ik heb er nog een vraag over Ik heb een excel gemaakt met mederen tapbladen
die zichtbaar moeten blijven Maar ik deze code gebruikt uit de vraag uit 2009

Private Sub Worksheet_Activate()
Sheets("Figuur").Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C2")) Is Nothing Then Sheets("Figuur").Visible = True
Sheets("Figuur").Activate
End Sub

deze werkt wel als alle tap bladen zijn verborgen maar niet als er tap bladen open moeten blijven
de onzichtbare bevatten uit leg van storing die alleen zicht baar moeten zijn als je op de hyperlink drukt
Kan iemand mijn helpen met wat ik wil

hans
 
Ik weet niet aan welke tap je zit maar van het verhaal kan ik weinig maken.
 
Ik heb er voor beelden bij gedaan van wat ik bedoel
In het voorbeeld verbergen goed werk het goed daar is maar 1 tap te zien in de Excel
Maar ik ben bezig met een Excel te maken storingen van onze machines en daar hebben we div merken
en deze moeten zichtbaar zijn in de Excel en op die tap bladen wil ik in een cel zetten druk hier op voor meer informatie en dan moet de verborgen tap zichtbaar worden
Maar dit kan alleen als alle tap verborgen zijn
Op de verbergen fout heb ik een zichtbaar tap bij geplaatst maar als ik dan op een willekeurige cel druk gaat de excel naar de zichtbare tap toe en dat wil ik niet
Ik hoop dat mijn vraag begrepen wordt om een antwoord te kunnen geven

hans
 
Zo?

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Intersect(Target, Range("C2,D2")) Is Nothing Then Exit Sub
  Sheets(Target.Value).Visible = True
  Application.Goto Sheets(Target.Value).Range("A1")
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan