edsel_nl
Gebruiker
- Lid geworden
- 24 okt 2006
- Berichten
- 72
Ik heb de volgende macro om rijen te verbergen:
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"
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"
Bijlagen
Laatst bewerkt: