hiding all cells that dont have any text
 

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?

hiding all cells that dont have any text
 

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.
--
Gary''s Student - gsnu200904


"Misho" wrote:

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?

hiding all cells that don’t haveany text
 

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 wrote:

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?

--

Dave Peterson

hiding all cells that dont have any text
 

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" wrote:

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.
--
Gary''s Student - gsnu200904


"Misho" wrote:

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?

hiding all cells that dont have any text
 

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

--
Gary''s Student - gsnu200905


"Misho" wrote:

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" wrote:

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.
--
Gary''s Student - gsnu200904


"Misho" wrote:

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?

hiding all cells that dont have any text
 

Thanks Gary.

"Gary''s Student" wrote:

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

--
Gary''s Student - gsnu200905


"Misho" wrote:

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" wrote:

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.
--
Gary''s Student - gsnu200904


"Misho" wrote:

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?