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


--
Don Guillett
SalesAid Software

"PPM at Brackmills" <PPM at wrote in
message ...
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.

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?

"Don Guillett" wrote:

try
Sub findtoday_hidecolsafter()
x = Rows(2).Find(Date).Column + 1
Range(Cells(1, x), Cells(1, Columns.Count)).Columns.Hidden = True
End Sub


--
Don Guillett
SalesAid Software

"PPM at Brackmills" <PPM at wrote in
message ...
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.

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
wrote in message
...
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.

how do I hide a column and only have it unhide automatically if data is
present in those cells?

Hi, I am looking for the same answer on rows. thanks, kelly

"iallen" wrote:

how do I hide a column and only have it unhide automatically if data is
present in those cells?

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.


"plumfin" wrote:

Hi, I am looking for the same answer on rows. thanks, kelly

"iallen" wrote:

how do I hide a column and only have it unhide automatically if data is
present in those cells?

"plumfin" wrote:

Hi, I am looking for the same answer on rows. thanks, kelly

"iallen" wrote:

how do I hide a column and only have it unhide automatically if data is
present in those cells?

"PPM at Brackmills" wrote:

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.