hiding all cells that don’t have any text

[Misho]

I have a worksheet that have text from A to E & form 1 to 62.

I usually select all the rows after my data then right click then Hide and
the same I do for col.

Is there a way that I can do it faster?

 

[Gary''s Student]

If you assign a shortcut key to the following macro:

Sub HideThem()
Range(Cells(1, "F"), Cells(1, Columns.Count)).EntireColumn.Hidden = True
Range("A63:A" & Rows.Count).EntireRow.Hidden = True
End Sub

You can hide all with a single click.

 

[Dave Peterson]

It sounds like you're hiding rows that are empty.

If you can pick out a column that is always empty if the row is empty, you
could:

Select your range (A1:E62)
data|filter|autofilter (in xl2003 menus)
filter to show the non-blanks in that key column

 

[Misho]

Thanks Gary.

what if the data range changed in row or col is there any macro can hide it
when there is no test on it.

and can the macro be available for several files or shall I make it for each
file

 

[Gary''s Student]

Here is a modification. It will hide everything to the right of your working
area and everything below your working area:

Sub MoreGeneralHideThem()
Dim nC As Long, nR As Long
Set r = ActiveSheet.UsedRange
nR = r.Rows.Count + r.Row
nC = r.Columns.Count + r.Column
Range(Cells(1, nC), Cells(1, Columns.Count)).EntireColumn.Hidden = True
Range("A" & nR & ":A" & Rows.Count).EntireRow.Hidden = True
End Sub

 

[Misho]

Thanks Gary.

Here is a modification. It will hide everything to the right of your working
area and everything below your working area:

Sub MoreGeneralHideThem()
Dim nC As Long, nR As Long
Set r = ActiveSheet.UsedRange
nR = r.Rows.Count + r.Row
nC = r.Columns.Count + r.Column
Range(Cells(1, nC), Cells(1, Columns.Count)).EntireColumn.Hidden = True
Range("A" & nR & ":A" & Rows.Count).EntireRow.Hidden = True
End Sub