VBA: voorwaarde

Status
Niet open voor verdere reacties.

frankli

Gebruiker
Lid geworden
20 mrt 2009
Berichten
38
Stel voor: zo lang als er een 0 waarde in een rij van A1:H1 is, dan wordt deze rij verborgen, hoe kan ik een VBA schrijven?

Alvast bedankt.
Frank
 
Laatst bewerkt:
Als je vraag VBA gerelateerd is hoort die ook in die sectie en niet in Excel. Vraag verplaatst.
 
Dank je wel, die link is niet wat ik vraag, sorry, mijn vraag is: als er geen 0 waarde in A1:H1, dan moet deze deze rij verborgen worden.
 
Laatst bewerkt:
Moet het nu een wel of geen nul zijn #1,#4.
Anders True/False verwisselen.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
 On Error Resume Next
    Rows(1).Hidden = IIf(Intersect(Target, Range("A1:H1")) = 0 And Intersect(Target, _
  Range("A1:H1")) <> "", True, False)
End Sub
 
Eigenlijk wat ik wil is:
In een draaitabel, als deze draaitabel ververst wordt:
1. dan worden all rijen in deze draaitabel verborgen als er geen 0 waarde in de rij is;
2. en ook alle kolommen in de draaitabel worden verborgen als er geen 0 waarden in de kolom is;
3. de achtergrond kleur van 0 waarden cellen is rood, de letter kleur van de niet-nul waarden cellen in de draaitabel is wit.

zie bijlage mijn bestand.
 

Bijlagen

Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan