verbergen van een kolom

[djbartos]

Ik zit hier te prutsen in vba...

Ik zou graag een knop hebben waarbij je drie kolomen doet verbergen...

Wanneer je er terug op klikt komen de kolommen terug...


Ik had dit al maar het werkt niet...

Columns("T:X").Select
Range("T7").Activate
Selection.EntireColumn.Hidden = True

En als laatst bedoeling is het volgende:

Om alles mooi op papier te krijgen moeten de drie eventuele verborgen rijen ook afgedrukt worden...

Application.Dialogs(xlDialogPrinterSetup).Show
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

+ moet daar nog bijkomen het afprinten van de eventuele verborgen kolommen...

En indien ze verborgen waren terug op verborgen zetten na het afdrukken...

 

[_ShaiHulud_]

Als je een vbknop in de sheet zet met de naam cmdHide dan kun je deze code achter de knop hangen.


Private Sub cmdHide_Click()

If Worksheets("Sheet1").Columns("A:E").EntireColumn.Hidden = True Then
Worksheets("Sheet1").Columns("A:E").EntireColumn.Hidden = False
cmdHide.Caption = "Hide"
Else
Worksheets("Sheet1").Columns("A:E").EntireColumn.Hidden = True
cmdHide.Caption = "UnHide"
End If

End Sub

 

[djbartos]

thanks, werkt perfect!

 

[LucHeyndrickx]

Of dit (om het een beetje korter te maken):


Private Sub cmdHide_Click()
Columns("A:E").EntireColumn.Hidden = _
Not Columns("A:E").EntireColumn.Hidden
End Sub


Werkt met dezelfde code in de twee richtingen. Staan de kolommen verborgen, dan worden ze zichtbaar, en omgekeerd.

Luc