Rijen verbergen met VBA en formule "als"

[Esducsafe]

Beste Helpers,
Het laatste stukje, met Excel formule "=ALS..." wil maar niet lukken. In bijgevoegd Excel bestandje heb ik e.a. toegelicht. Regel 25 (waarop subtotaal staat) moet, na VBA opdracht verbergen (lege rijen), zichtbaar blijven. Maar het vinden van de juiste "als" Formule lukt mij niet. Wie weet de oplossing?
Alvast bedankt,

 

[trucker10]

Esducsafe , bekijk eens of het dit is , ik had eerder al een oplossing gepost maar wist dat het anders ook kon .
Pas ook U formule aan in D20 deze wijkt af van de andere

 

[snb]

Er valt nog wel iets te verbeteren:

Private Sub CommandButton1_Click()
  Application.ScreenUpdating = False
  sheets(1).rows("3:45").hidden =False
  With CommandButton1
    If .Caption = "VBR" Then
      for j=3 to 45
        rows(3).hidden=sheets(1).cells(j,4)=0
      next
    end if
    .caption=iif(.caption="VBR","WTR","VBR")
  End With
  Application.ScreenUpdating = True
End Sub

of

Private Sub CommandButton1_Click()
  Application.ScreenUpdating = False
  sheets(1).columns(4).autofilter
  With CommandButton1
    If .caption="VBR" then sheets(1).columns(4).autofilter 1, ">0"
    .caption=iif(.caption="VBR","WTR","VBR")
  End With
  Application.ScreenUpdating = True
End Sub

PS. en getoond eindigt altijd op een d (de verleden tijd is nl. toonde en niet toonte)

 

[snb]

@Daniël

klopt, maar met
rows(3).resize(43) ook.

 

[Esducsafe]

Er valt nog wel iets te verbeteren

Beste SNB,
Helemaal gelijk (met die D-fout), stom van mij.
Esko

Er valt nog wel iets te verbeteren:

Private Sub CommandButton1_Click()
  Application.ScreenUpdating = False
  sheets(1).rows("3:45").hidden =False
  With CommandButton1
    If .Caption = "VBR" Then
      for j=3 to 45
        rows(3).hidden=sheets(1).cells(j,4)=0
      next
    end if
    .caption=iif(.caption="VBR","WTR","VBR")
  End With
  Application.ScreenUpdating = True
End Sub

of

Private Sub CommandButton1_Click()
  Application.ScreenUpdating = False
  sheets(1).columns(4).autofilter
  With CommandButton1
    If .caption="VBR" then sheets(1).columns(4).autofilter 1, ">0"
    .caption=iif(.caption="VBR","WTR","VBR")
  End With
  Application.ScreenUpdating = True
End Sub

PS. en getoond eindigt altijd op een d (de verleden tijd is nl. toonde en niet toonte)

 

[Esducsafe]

Beste SNB en Daniël,
Bedankt voor jullie bijdrage. De door gewenste oplossing is (volgens mij), omdat de selectie criteria (voor regel met subtotaal) gelijk zijn niet mogelijk. Op zich is dit geen probleem, omdat de handmatige toevoeging, slechts beperkt voorkomt.
mvg
Esko