Rijen verbergen welke voldoen aan voorwaarden

[Pascal62]

Hallo,

Op het forum reeds veel oplossingen gevonden maar niet specifiek voor mijn probleem.
Ik zou namelijk bepaalde rijen willen verbergen als alle cellen in de kolommen (F:U) blanco zijn.
Naderhand deze terug zichtbaar kunnen maken met dezelfde CommandButton.

Had deze formule geprobeerd maar werkt niet:

Private Sub CommandButton7_Click()
' Rijen Zichtbaar/Verbergen met lege cellen

If CommandButton7.Caption = "Rijen Verbergen" Then
CommandButton7.Caption = "Rijen Tonen"
Range("F:U").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
ElseIf CommandButton7.Caption = "Rijen Tonen" Then
CommandButton7.Caption = "Rijen Verbergen"
Range("F:U").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = False

End If
End Sub

Wie kan mij hiermee helpen.
Dank bij voorbaat

 

[snb]

Private Sub CommandButton7_Click()
  on error resume next
  for each cl in columns("F").specialcells(4)
    cl.entirerow.hidden=cl.resize(,16).specialcells(4).count=16 
  Next
End Sub

 

[Pascal62]

Hallo Snb,

Moet ik enkel jou code gebruiken of moet ik deze in combinatie met een gedeelte van mijn opgegeven code gebruiken.
Ik zie namelijk niet goed waar ik de opdracht voor verbergen/tonen van de rijen moet koppelen aan de CommandButton in deze formule.

Tnx

 

[snb]

Test mijn suggestie.

 

[Pascal62]

Beste Snb,

Het werkt helemaal niet.