Comments on: Quickly Hiding Columns

By: Jeff

Jeff — Fri, 13 Jul 2007 06:03:00 +0000

Here's a quicker range.

Highlight and define a NAME that covers the rows or columns that you want to hide/show.

Add a button (in my case I added a simple toggle checkbox), and use it to show/hide the rows or columns like this:

Private Sub chkToggle_Click()
Range("MYDEFINEDRANGE").EntireColumn.Hidden = Not chkToggle.Value
End Sub

Sweet!

Jeff

By: Mark O

Mark O — Wed, 20 Oct 2004 04:31:00 +0000

Found a way on my own. Here is some sample code:

With ActiveSheet
.Unprotect
HideRow = 0
Do
HideRow = HideRow + 1
Loop Until Range("D7?).Offset(HideRow, 0) = ""
.Range(Rows(7).Offset(HideRow), Rows(38)).EntireRow.Hidden = True
With .PageSetup
.PrintArea = "$B$2:$U$45?
.Zoom = False
.FitToPagesTall = 1
.FitToPagesWide = 1
.BlackAndWhite = True
.Orientation = xlLandscape
.CenterHorizontally = True
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0.5)
End With
.Protect
.PrintOut
.Unprotect
.Range(Rows(7).Offset(HideRow), Rows(38)).EntireRow.Hidden = False
ActiveWindow.Panes(2).ScrollRow = 39
.Protect
End With

By: Mark O

Mark O — Mon, 18 Oct 2004 03:26:00 +0000

Is there a way to make a form button (Activex Control Command Button perhaps?) that quickly hides rows, prints a selected area, and then unhides the rows? More simply, can you create/reference/enable custom views from VBA?

By: Dick

Dick — Fri, 01 Oct 2004 04:52:00 +0000

That is horrible! I think I better post about it.

By: Rob van Gelder

Rob van Gelder — Tue, 21 Sep 2004 22:19:00 +0000

I used to like Custom Views, until I discovered that a custom view of a filtered list does not work very well with frozen panes.

To see what I mean:

My Column Header
a
b
c
d

freeze panes on "My Column Header" 1:1
filter on values = b
save as custom view
unfilter
apply that custom view
unfilter

now 1:2 are frozen - that's annoying.