mlkenney0809
New Member
- Joined
- Jun 13, 2008
- Messages
- 10
I am new to visual basic editor and I have a new position which right now has me copying and pasting a macro to hide all rows that contain zeros. I have attached a piece of it. There are 1,024 rows total and I got to row 479 and I get the error message.
Can you help me? It is telling me to "break up" the procedure, but I have no idea what that means or how to do it. There has got to be an easier way to do this.
Sub HideZeroCells()
If Range("g18") = "0" Then
Rows("18:18").Select
Selection.EntireRow.Hidden = True
End If
''
If Range("g22") = "0" Then
Rows("22:22").Select
Selection.EntireRow.Hidden = True
End If
''
If Range("g23") = "0" Then
Rows("23:23").Select
Selection.EntireRow.Hidden = True
End If
''
If Range("g24") = "0" Then
Rows("24:24").Select
Selection.EntireRow.Hidden = True
End If
''
If Range("g28") = "0" Then
Rows("28:28").Select
Selection.EntireRow.Hidden = True
End If
''
If Range("g29") = "0" Then
Rows("29:29").Select
Selection.EntireRow.Hidden = True
End If
''
If Range("g30") = "0" Then
Rows("30:30").Select
Selection.EntireRow.Hidden = True
End If
''
If Range("g31") = "0" Then
Rows("31:31").Select
Selection.EntireRow.Hidden = True
End If
''
If Range("g32") = "0" Then
Rows("32:32").Select
Selection.EntireRow.Hidden = True
End If
''
If Range("g34") = "0" Then
Rows("34:34").Select
Selection.EntireRow.Hidden = True
End If
''
If Range("g36") = "0" Then
Rows("36:36").Select
Selection.EntireRow.Hidden = True
End If
''
If Range("g37") = "0" Then
Rows("37:37").Select
Selection.EntireRow.Hidden = True
End If
Can you help me? It is telling me to "break up" the procedure, but I have no idea what that means or how to do it. There has got to be an easier way to do this.
Sub HideZeroCells()
If Range("g18") = "0" Then
Rows("18:18").Select
Selection.EntireRow.Hidden = True
End If
''
If Range("g22") = "0" Then
Rows("22:22").Select
Selection.EntireRow.Hidden = True
End If
''
If Range("g23") = "0" Then
Rows("23:23").Select
Selection.EntireRow.Hidden = True
End If
''
If Range("g24") = "0" Then
Rows("24:24").Select
Selection.EntireRow.Hidden = True
End If
''
If Range("g28") = "0" Then
Rows("28:28").Select
Selection.EntireRow.Hidden = True
End If
''
If Range("g29") = "0" Then
Rows("29:29").Select
Selection.EntireRow.Hidden = True
End If
''
If Range("g30") = "0" Then
Rows("30:30").Select
Selection.EntireRow.Hidden = True
End If
''
If Range("g31") = "0" Then
Rows("31:31").Select
Selection.EntireRow.Hidden = True
End If
''
If Range("g32") = "0" Then
Rows("32:32").Select
Selection.EntireRow.Hidden = True
End If
''
If Range("g34") = "0" Then
Rows("34:34").Select
Selection.EntireRow.Hidden = True
End If
''
If Range("g36") = "0" Then
Rows("36:36").Select
Selection.EntireRow.Hidden = True
End If
''
If Range("g37") = "0" Then
Rows("37:37").Select
Selection.EntireRow.Hidden = True
End If