kolom verbergen als celwaarde 0

[bebobebo]

Hallo,

Het volgende ga ik niet voor elkaar krijgen.
Op het moment dat er in rij 4 in een kolom geen waarde staat moet deze kolom verborgen worden, alle kolommen met een waarde op rij 4 blijven dus staan..
Wie kan mij vertellen welke code ik achter een knop moet zetten.(dus in een macro).

Alvast bedankt.

Groet Bert

 

[popipipo]

Een klein .XLS voorbeeld bestandje zonder gevoelige informatie graag.

Maar als je de kolom daarna weer wilt zien?
Je kunt dan niets in die cel zetten om hem weer te tonen??

 

[bebobebo]

Een klein .XLS voorbeeld bestandje zonder gevoelige informatie graag.

Maar als je de kolom daarna weer wilt zien?
Je kunt dan niets in die cel zetten om hem weer te tonen??

Hallo Willem

Kan me dan voorstellen om en macro te maken met "alle kolommen zichtbaar maken", dat gaat me wel lukken.
Zal even een simpel bestandje maken.

Bert

 

[bebobebo]

nu met bestand

Oke, nu met een bestandje

Bekijk bijlage kolom verbergen 2003.xls

 

[Warme bakkertje]

Sub kolommenzichtbaar()
    Columns("A:V").EntireColumn.Hidden = False
    Range("D15").Select
End Sub
Sub kolommenverbergen()
    For Each cl In [A4:V4]
        cl.EntireColumn.Hidden = IIf(cl.Value = 0, True, False)
    Next
End Sub

 

[bebobebo]

Sub kolommenzichtbaar()
    Columns("A:V").EntireColumn.Hidden = False
    Range("D15").Select
End Sub
Sub kolommenverbergen()
    For Each cl In [A4:V4]
        cl.EntireColumn.Hidden = IIf(cl.Value = 0, True, False)
    Next
End Sub

Hallo Rudi,

Weer helemaal van ouds, ik kan weer verder.
Hartelijk bedankt weer.

Groet Bert

 

[danny147]

Beste bebobebo

Kan je dan de vraag op opgelost zetten, onderaan rechts.

Groetjes Danny. :thumb: