JayhawkRacer
New Member
- Joined
- Feb 24, 2014
- Messages
- 4
New member here!
I've had good luck with some code written to hide rows when the cell in column "A" is blank(for a certain range of rows), but I tried to modify it to hide rows that have "Complete" in column "D" and it works, but only after freezing excel for a time.
Here's my original code for hiding rows with blank cells in column "A": (This works great)
And here's my modified code, as I said, it works, but only after freezing my application for several minutes and then I have to hit "end" or "debug" and excel responds and shows exactly what I wanted. Can anyone spot what might cause the hangup?
One caveat is that the cells in column "D" only look like they are saying "complete", when it's really a long formula that returns "complete" based on other criteria.
Thanks in advance for help!
I've had good luck with some code written to hide rows when the cell in column "A" is blank(for a certain range of rows), but I tried to modify it to hide rows that have "Complete" in column "D" and it works, but only after freezing excel for a time.
Here's my original code for hiding rows with blank cells in column "A": (This works great)
Code:
Sub HideBlankPoundProtoRows()
ActiveSheet.Unprotect Password:="garmin"
Application.ScreenUpdating = False
Range("A103").Select
Do Until ActiveCell.Address(False, False) = "A258"
If IsEmpty(ActiveCell) Then
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
Application.ScreenUpdating = True
Range("G101").Select
ActiveSheet.Protect Password:="garmin"
End Sub
And here's my modified code, as I said, it works, but only after freezing my application for several minutes and then I have to hit "end" or "debug" and excel responds and shows exactly what I wanted. Can anyone spot what might cause the hangup?
Code:
Sub HideCompletePoundProtoRows()
ActiveSheet.Unprotect Password:="garmin"
Application.ScreenUpdating = False
Range("D103").Select
Do Until ActiveCell.Address(False, False) = "D258"
If ActiveCell.Value = "Complete" Then
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
Application.ScreenUpdating = True
Range("G101").Select
ActiveSheet.Protect Password:="garmin"
End Sub
One caveat is that the cells in column "D" only look like they are saying "complete", when it's really a long formula that returns "complete" based on other criteria.
Thanks in advance for help!