How do I automatically hide columns?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a table with dates as the top row. I want Excel to find todays date
and then hide the columns after todays date. In this way I can make the
printed output bigger and more readable.
 
try
Sub findtoday_hidecolsafter()
x = Rows(2).Find(Date).Column + 1
Range(Cells(1, x), Cells(1, Columns.Count)).Columns.Hidden = True
End Sub
 
You can do this with some simple VBA code:

Sub AAA()
Dim Rng As Range
Dim Found As Boolean
For Each Rng In Range(Cells(1, 1), Cells(1, Columns.Count)).Cells
If Rng.Value = Date Then
Found = True
Exit For
End If
Next Rng
If Found = True Then
Range(Rng(1, 2), Cells(1, Columns.Count)).EntireColumn.Hidden
= True
End If
End Sub



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"PPM at Brackmills" <PPM at (e-mail address removed)>
wrote in message
news:[email protected]...
 
how do I hide a column and only have it unhide automatically if data is
present in those cells?
 
I was looking to do the same (but with the dates at the start of rows). I
have tried this bit of code but how do I get it to actually run?
 
I need this information as well. I have a "Quote" being generated that,
depending on the amount of items requested, there may be 5-10 blank rows
before the next section of the quote...I would like to have the rows either
automatically hidden or deleted if there is no quantity on the data. Can
anyone help!?

Thanks.
 
PPM at Brackmills said:
I have a table with dates as the top row. I want Excel to find todays date
and then hide the columns after todays date. In this way I can make the
printed output bigger and more readable.
Click to expand...
 
Back
Top