Hide/unhide functie in bestaande VBA code

[dewes86]

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!!

 

[edmoor]

Ik zou het zo doen:

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").Hidden = Not wSheet.Rows("13").Hidden
        End Select
    Next wSheet
End Sub

 

[OctaFish]

Kleine aanpassing nodig:

        wSheet.Rows("13:13").EntireRow.Hidden = Not wSheet.Rows("13:13").EntireRow.Hidden

 

[HSV]

Heeft geen aanpassing nodig.

Rows(13) werkt ook (zonder de quotes dus).

 

[VenA]

Kan eventueel ook zo.

Private Sub Knop189_Klikken()
  For Each sh In Sheets(Array("PROEFFORMULIER-BLAD1", "PROEFFORMULIER-BLAD2", "PROEFFORMULIER-BLAD3"))
    sh.Rows("13").Hidden = Not sh.Rows("13").Hidden
  Next sh
End Sub

 

[HSV]

 sh.Rows(13).Hidden = Not sh.Rows(13).Hidden

 

[dewes86]

Geweldig, bedankt allemaal. Meerdere oplossingen die het prima hebben gedaan!