V
VS182501
Can anyone please help?
I am currently repeating the following VBA code several hunderd times and
change the Range and Rows values manually.
Application.ScreenUpdating = False
If Range("C5").Value = "" Then
Rows("6:6").EntireRow.Hidden = True
ElseIf Range("C5").Value <> "" Then
Rows("6:6").EntireRow.Hidden = False
End If
Application.ScreenUpdating = False
If Range("C6").Value = "" Then
Rows("7:7").EntireRow.Hidden = True
ElseIf Range("C6").Value <> "" Then
Rows("7:7").EntireRow.Hidden = False
End If
Application.ScreenUpdating = False
If Range("C7").Value = "" Then
Rows("8:8").EntireRow.Hidden = True
ElseIf Range("C7").Value <> "" Then
Rows("8:8").EntireRow.Hidden = False
End If
Application.ScreenUpdating = False
If Range("C8").Value = "" Then
Rows("9:9").EntireRow.Hidden = True
ElseIf Range("C8").Value <> "" Then
Rows("9:9").EntireRow.Hidden = False
End If
Application.ScreenUpdating = False
If Range("C9").Value = "" Then
Rows("10:10").EntireRow.Hidden = True
ElseIf Range("C9").Value <> "" Then
Rows("10:10").EntireRow.Hidden = False
End If
as you can imagine this is very labor intensive.
I believe that there should be an easier way of doing this, can you please
help?
Thanks in advance.
I am currently repeating the following VBA code several hunderd times and
change the Range and Rows values manually.
Application.ScreenUpdating = False
If Range("C5").Value = "" Then
Rows("6:6").EntireRow.Hidden = True
ElseIf Range("C5").Value <> "" Then
Rows("6:6").EntireRow.Hidden = False
End If
Application.ScreenUpdating = False
If Range("C6").Value = "" Then
Rows("7:7").EntireRow.Hidden = True
ElseIf Range("C6").Value <> "" Then
Rows("7:7").EntireRow.Hidden = False
End If
Application.ScreenUpdating = False
If Range("C7").Value = "" Then
Rows("8:8").EntireRow.Hidden = True
ElseIf Range("C7").Value <> "" Then
Rows("8:8").EntireRow.Hidden = False
End If
Application.ScreenUpdating = False
If Range("C8").Value = "" Then
Rows("9:9").EntireRow.Hidden = True
ElseIf Range("C8").Value <> "" Then
Rows("9:9").EntireRow.Hidden = False
End If
Application.ScreenUpdating = False
If Range("C9").Value = "" Then
Rows("10:10").EntireRow.Hidden = True
ElseIf Range("C9").Value <> "" Then
Rows("10:10").EntireRow.Hidden = False
End If
as you can imagine this is very labor intensive.
I believe that there should be an easier way of doing this, can you please
help?
Thanks in advance.