Goedemiddag,
Ik ben momenteel bezig met een code die als volgt moet werken:
- bij het klikken van de button dan moet bij verschillende tabs rij 13 worden verborgen
- bij het opnieuw klikken van diezelfde button dan moet bij diezelfde tabs rij 13 weer zichtbaar worden
Dit is verder niet afhankelijk van een celwaarde of iets dergelijks. Ik heb het idee dat ik er bijna ben met de onderstaande code (verbergen lukt hiermee). Het opnieuw zichtbaar maken lukt nog niet. Ik zit te stoeien met .Select en .EntireRow.Hidden = Not .EntireRow.Hidden maar krijg het niet voor mekaar. Weet iemand de oplossing voor mij?
Private Sub Knop189_Klikken()
Dim wSheet As Worksheet
For Each wSheet In ActiveWorkbook.Worksheets
Select Case UCase(wSheet.Name)
Case "PROEFFORMULIER-BLAD1", "PROEFFORMULIER-BLAD2", "PROEFFORMULIER-BLAD3"
wSheet.Rows("13:13").EntireRow.Hidden = True
Case Else
End Select
Next wSheet
End Sub
Bij voorbaat dank!!
Ik ben momenteel bezig met een code die als volgt moet werken:
- bij het klikken van de button dan moet bij verschillende tabs rij 13 worden verborgen
- bij het opnieuw klikken van diezelfde button dan moet bij diezelfde tabs rij 13 weer zichtbaar worden
Dit is verder niet afhankelijk van een celwaarde of iets dergelijks. Ik heb het idee dat ik er bijna ben met de onderstaande code (verbergen lukt hiermee). Het opnieuw zichtbaar maken lukt nog niet. Ik zit te stoeien met .Select en .EntireRow.Hidden = Not .EntireRow.Hidden maar krijg het niet voor mekaar. Weet iemand de oplossing voor mij?
Private Sub Knop189_Klikken()
Dim wSheet As Worksheet
For Each wSheet In ActiveWorkbook.Worksheets
Select Case UCase(wSheet.Name)
Case "PROEFFORMULIER-BLAD1", "PROEFFORMULIER-BLAD2", "PROEFFORMULIER-BLAD3"
wSheet.Rows("13:13").EntireRow.Hidden = True
Case Else
End Select
Next wSheet
End Sub
Bij voorbaat dank!!
Laatst bewerkt: