B
british.assassi
Hi
I currently use the following code to delete the entire row if it empty
in a selection.
Code:
--------------------
Sub del_empty_row()
Rng = Selection.Rows.Count
ActiveCell.Offset(0, 0).Select
Application.ScreenUpdating = False
For i = 1 To Rng
If ActiveCell.Value = 0 Then
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Next i
Application.ScreenUpdating = True
End Sub
--------------------
This code works fine, but really I would rather hide the row.
Whenever I change *Selection.EntireRow.Delete* to
*Selection.EntireRow.Hidden = True* it stops after the first row if
finds is empty.
I would be very grateful if somebody could help me with this.
TIA
british.assassin
I currently use the following code to delete the entire row if it empty
in a selection.
Code:
--------------------
Sub del_empty_row()
Rng = Selection.Rows.Count
ActiveCell.Offset(0, 0).Select
Application.ScreenUpdating = False
For i = 1 To Rng
If ActiveCell.Value = 0 Then
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Next i
Application.ScreenUpdating = True
End Sub
--------------------
This code works fine, but really I would rather hide the row.
Whenever I change *Selection.EntireRow.Delete* to
*Selection.EntireRow.Hidden = True* it stops after the first row if
finds is empty.
I would be very grateful if somebody could help me with this.
TIA
british.assassin