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