Z
Zenia
Hello,
Plz can anybody help me with this code.
Sub CleanUp()
Application.ScreenUpdating = False
Dim CurrentRow As Long
Dim UsedRows As Range
On Error GoTo Abort
Set UsedRows = ActiveSheet.UsedRange.rows
For CurrentRow = UsedRows.rows.Count To 1 Step -1
If UsedRows.rows(CurrentRow).Columns("A:A") = 0 Then
UsedRows.rows(CurrentRow).EntireRow.Hidden = True
Else
UsedRows.rows(CurrentRow).EntireRow.Hidden = False
End If
Next CurrentRow
Abort:
Application.ScreenUpdating = True
End Sub
the problem is that my entire column ie column A is linked to anothe
workbook. And i want to unhide rows when the data is updated from blan
to some entry, as i had to manually do it from format. Plz help me t
unhide the rows when the data is updated.
Tx in advanc
Plz can anybody help me with this code.
Sub CleanUp()
Application.ScreenUpdating = False
Dim CurrentRow As Long
Dim UsedRows As Range
On Error GoTo Abort
Set UsedRows = ActiveSheet.UsedRange.rows
For CurrentRow = UsedRows.rows.Count To 1 Step -1
If UsedRows.rows(CurrentRow).Columns("A:A") = 0 Then
UsedRows.rows(CurrentRow).EntireRow.Hidden = True
Else
UsedRows.rows(CurrentRow).EntireRow.Hidden = False
End If
Next CurrentRow
Abort:
Application.ScreenUpdating = True
End Sub
the problem is that my entire column ie column A is linked to anothe
workbook. And i want to unhide rows when the data is updated from blan
to some entry, as i had to manually do it from format. Plz help me t
unhide the rows when the data is updated.
Tx in advanc