Shorter and faster?

  • Thread starter Thread starter Stu
  • Start date Start date
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
 
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
 
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
 
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
 
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.
 
Back
Top