Hoi Marietha,
Ik ga er even van uit dat de cellen de bedragen in kolom J staan:
De onderstaande code in de VBA-editor zetten (rechter muisknop klikken op het tabblad, programmacode weergeven kiezen, niet schrikken van het nieuwe venster dat zichtbaar wordt voor de VBA-foben).
Private Sub Worksheet_Activate()
For i = 25 To 47
If Cells(i, 10) = 0 Then Cells(i, 10).RowHeight = 0
Next i
End Sub
Korte uitleg:
Worksheet_Activate zorgt ervoor dat de code gestart wordt als de pagina geactiveerd wordt, dus als je van blad1 naar blad2 gaat en NIET als op blad2 wijzigingen worden aangebracht.
De For i=25 to 47 - next loop eerste rij van het bereik is regel 25, de laatste regel 47.
Cells(i,10), de 10 staat voor kolom J (10e letter uit het alfabet) de i voor het rijnummer. Met Rowheight maak je de rijhoogte automatisch gelijk aan 0.
Stel je hebt Subtotalen of regels die wel zichtbaar moeten blijven maar waar in kolom J geen bedrag staat:
Zet in Kolom K de formule K25: =als(K25=0;0;K25) en voor de rijen die je altijd wil zien een getal (niet gelijk aan 0) en voor subtotalen K25: =als(K26=0;0;10) (K26 staat het totaal).
Op deze wijze kun je vele producten standaard in je factuur zetten, terwijl bij het uitprinten slechts een klein deel zichtbaar is.
Wil je overigens wijzigingen aanbrengen, Blok Rij 24 t/m rij 50 en zet de rijhoogte handmatig op 14,25 en je ziet alle rijen.
Jeroen
