maclachlan19
Board Regular
- Joined
- Jul 8, 2013
- Messages
- 53
I've used the following code to hide columns based on a value in a cell. It works great.
Range("E:CF").EntireColumn.Hidden = False
Dim c As Range
For Each c In Range("E3:CF3").Cells
If c.Value = "0" Then
c.EntireColumn.Hidden = True
End If
Next c
I tried to convert this to hide rows but it doesn't work. I sometimes get the hourglass and locks up Excel. Or it loops around and never completes. I'm not sure what is wrong.
Rows("3:2500").EntireRow.Hidden = False
Dim c As Range
For Each c In Range("A3:A2500").Cells
If c.Value = "Hide" Then
c.EntireRow.Hidden = True
End If
Next c
Range("E:CF").EntireColumn.Hidden = False
Dim c As Range
For Each c In Range("E3:CF3").Cells
If c.Value = "0" Then
c.EntireColumn.Hidden = True
End If
Next c
I tried to convert this to hide rows but it doesn't work. I sometimes get the hourglass and locks up Excel. Or it loops around and never completes. I'm not sure what is wrong.
Rows("3:2500").EntireRow.Hidden = False
Dim c As Range
For Each c In Range("A3:A2500").Cells
If c.Value = "Hide" Then
c.EntireRow.Hidden = True
End If
Next c