Shorter and faster?

S

Stu

Hello,
Is there anyway to make this code shoter and run faster because it
takes abit of time to run.

Sub Main()

Dim Rng As Range
For Each Rng In
Range("G3:G201,G203:G401,G403:G601,G603:G801,G803:G1001,G1003:G1201,G1203:G1401,G1403:G1601,G1603:G1801,G1803:G2001,G2003:G2201,G2203:G2401")

Rng(1, 1).EntireRow.Hidden = (Rng.Value = "")
Next Rng

End Sub

Thanks
 
S

steve

Stu,

Dim x as Long
For x = 3 to 2203 step 200
Range(Rows(x),Rows(x + 198)).EntireRow.Hidden = True
Next

adjust as needed
 
J

J.E. McGimpsey

one way:

On Error Resume Next 'in case no blanks
Range("G3:G201,G203:G401,G403:G601," & _
"G603:G801,G803:G1001,G1003:G1201," & _
"G1203:G1401,G1403:G1601,G1603:G1801," & _
"G1803:G2001,G2003:G2201,G2203:G2401").SpecialCells( _
xlCellTypeBlanks).EntireRow.Hidden = True
On Error GoTo 0
 
S

Stu

To be honest with you Im not sure on how to adjust as needed so im still
a little confused.
 
S

steve

Stu,

In your original you have (Rng.Value = "")
I'm not sure of what you meant by that so I just had the code hide all
rows. Let me know...

If there is some sort of criteria than you'll need to have my code in an
If...then statement.

Dim x as Long
For x = 3 to 2203 step 200
If *something* then
Range(Rows(x),Rows(x + 198)).EntireRow.Hidden = True
End If
Next
 
S

Stu

I want the row to be hidden if lets say G13 has nothing in it and i want
the row to be visible if G13 has something in it.
 
Top