rijen verbergen door waarde

[matthijsdekker]

Heey

Ik ben bezig met een toggle button aan het maken en nu wil ik dat als ik hem in druk hij in een gebied gaat kijken b.v. C3 t/m C25 of daar de waarde 0 in bevindt als dat het geval is dat dan die regel verborgen wordt.

ps ik weet niet of vba de 0 ziet als het in euro's is uitgedrukt? dus gewoon het euroteken en het streepje -.

Alvast bedankt

 

[HSV]

Private Sub ToggleButton1_Click()
Dim cl As Range
 For Each cl In Range("C3:C25")
  If cl = 0 Then
    cl.EntireRow.Hidden = IIf(ToggleButton1, True, False)
   End If
  Next
End Sub

Of:

Private Sub ToggleButton1_Click()
Dim cl As Range
 For Each cl In Range("C3:C25")
  If cl = 0 Then
    With cl.EntireRow
      .Hidden = Not .Hidden
     End With
   End If
  Next
End Sub

 

[matthijsdekker]

dankje de tweede werkt perfect