Macro kolommen verbergen

[edsel_nl]

Beste specialisten,

Ik wil de volgende code gebruiken om kolommen (D t/m AG) met een waarde 0 in rij 5 van de betreffende kolom te verbergen. Echter gaat er ergens iets fout met de onderstaande code.

Kolommen verbergen()
Application.ScreenUpdating = False
For kolom = 4 To 33
If Cells(kolom, 5) = 0 Then Columns(kolom).EntireColumn.Hidden = True
Next kolom
End Sub

Groeten,

Eddy

 

[Relleboer]

Kolommen verbergen()
Application.ScreenUpdating = False
For kolom = 4 To 33
If Cells([COLOR="Red"]5, Kolom[/COLOR]) = 0 Then Columns(kolom).EntireColumn.Hidden = True
Next kolom
End Sub

zo moet hij het dan wel doen

 

[danny147]

Beste edsel_nl

Bedankt was ook te veel gevraagd voor Relleboer

Kolommen verbergen() had ik veranderd in Sub kolommen_verbergen() gedaan

Groetjes Danny :thumb:

 

[edsel_nl]

Bedankt voor de snelle reactie! Ben net thuis kon je helaas niet eerder bedanken.. Maar top service :thumb:.

Ook jij bedankt Danny

Beste edsel_nl

Bedankt was ook te veel gevraagd voor Relleboer

Kolommen verbergen() had ik veranderd in Sub kolommen_verbergen() gedaan

Groetjes Danny :thumb: