Kolommen verbergen

[edsel_nl]

Ik heb de volgende macro om rijen te verbergen:

Sub printen()
Application.ScreenUpdating = False
' Zoekt in kolom O naar 0 waarden en verbergt deze bij printen voor rij 11 tot en met 62.
For rij = 11 To 62
If Cells(rij, 15) = 0 Then Rows(rij).EntireRow.Hidden = True
Next rij
' Print de overige gegevens.
ActiveWindow.SelectedSheets.PrintOut Copies:=1
' Maakt alles weer zichtbaar.
Cells.EntireRow.Hidden = False
[A1].Select
Application.ScreenUpdating = True
End Sub

Nu wil ik graag kolommen verbergen doormiddel van een macro, het gaat om de getallen in rij 7, als dit “0” is bij de kolommen C t/m N dient de desbetreffende kolom te verbergen. Ik krijg het niet voor elkaar. BVD!

PS de macro die al aanwezig is heeft als de naam "printen"

 

[arafy]

lees hier eens. niet de vraag, maar de rest.

steven

 

[edsel_nl]

lees hier eens. niet de vraag, maar de rest.

steven

Oke, ik heb een voorbeeld bijgevoegd.

 

[jpvs]

Sub ColumsHide()
Application.ScreenUpdating = False
Range("C7:N7").Select
Dim c As Range
    For Each c In Selection
        If c.Text = 0 Then
            c.EntireColumn.Hidden = True
        End If
    Next
End Sub

Sub ColumsShow()
    Columns("B:O").Select
    Selection.EntireColumn.Hidden = False
    Range("C2").Select
End Sub

Pierre

 

[Wigi]

Code uit de bijdrage van Pierre wat opgekuist:

Sub ColumsHide()
    Dim c As Range
    Application.ScreenUpdating = False
    For Each c In Range("C7:N7")
        c.EntireColumn.Hidden = (c = 0)
    Next
    Application.ScreenUpdating = True
End Sub

Sub ColumsShow()
    Range("B1:O1").EntireColumn.Hidden = False
End Sub

Wigi