F
Frank Stone
Sub machiderow()
Rows("1:20").Select 'more or less if needed
Selection.Rows.Hidden = False
'put refresh code here if needed
Set rng = Range("A1:A20") 'more or less if needed
Set i = Range("A1")
For Each i In rng
If IsEmpty(i) Then
i.EntireRow.Hidden = True
End If
Next i
End Sub
instances where there are only 20 items in that group. I
would like make the sheets more user friendly by saving
space and hiding rows that Column A = "0". There are
multiple rankings per worksheet and muliple worksheets per
workbook.
available.
Rows("1:20").Select 'more or less if needed
Selection.Rows.Hidden = False
'put refresh code here if needed
Set rng = Range("A1:A20") 'more or less if needed
Set i = Range("A1")
For Each i In rng
If IsEmpty(i) Then
i.EntireRow.Hidden = True
End If
Next i
End Sub
source. The report shows the top 100 items. There are
instances where there are only 20 items in that group. I
would like make the sheets more user friendly by saving
space and hiding rows that Column A = "0". There are
multiple rankings per worksheet and muliple worksheets per
workbook.
source,and it will result in a zero if there is no data
available.