How do I automatically hide columns?
 

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 automatically hide columns?
 

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.

How do I automatically hide columns?
 

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 automatically hide columns and then show
 

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

How do I automatically hide columns?
 

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.

How do I automatically hide columns and then show
 

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?

How do I automatically hide columns and then show
 

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?

How do I automatically hide columns and then show
 

"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?

How do I automatically hide columns?
 

"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.