vishwakarma
10-20-2011, 02:15 AM
Hi,
Can anyone please help me in modifying the below code :-
Sub HideRows()
Dim cell As Range
For Each cell In Range("A1:A100")
If cell.Value = 1 Then
cell.EntireRow.Hidden = True
Else
cell.EntireRow.Hidden = False
End If
Next
End Sub
I want the macro to check for the value in column A ,if the value is 1 then I want that row along with the below one to be hidden.
I have attached the sheet for the reference....
Thanks,
Can anyone please help me in modifying the below code :-
Sub HideRows()
Dim cell As Range
For Each cell In Range("A1:A100")
If cell.Value = 1 Then
cell.EntireRow.Hidden = True
Else
cell.EntireRow.Hidden = False
End If
Next
End Sub
I want the macro to check for the value in column A ,if the value is 1 then I want that row along with the below one to be hidden.
I have attached the sheet for the reference....
Thanks,