Code help

[Damo10]

Hi,

I have some basic code to hide some rows in my sheet, this loop takes some time to complete.
Can anyone help me with some code that will work faster?

Sub Hide()
Dim i As Integer
Application.ScreenUpdating = False
For i = 18 To 1120
    Cells(i, 2).Select
    If Cells(i, 2).Value = 1 Then Selection.EntireRow.Hidden = True
Next i
Range("E20").Select
Application.ScreenUpdating = True
End Sub

 

[VoG]

Try

Sub Hide()
Dim i As Integer
Application.ScreenUpdating = False
For i = 18 To 1120
    Rows(i).Hidden = Cells(i, 2).Value = 1
Next i
Application.ScreenUpdating = True
End Sub

 

[Damo10]

HI VOG,


Could the code be modified so that if the number of rows expands the code will repeat until it finds the last row that is populated?
I am checking if there is a 1 in any row in column B to hide the row

Thanks for your help

 

[VoG]

Try

Sub Hide()
Dim i As Integer
Application.ScreenUpdating = False
For i = 18 To Range("B" & Rows.Count).End(xlUp).Row
    Rows(i).Hidden = Cells(i, 2).Value = 1
Next i
Application.ScreenUpdating = True
End Sub

 

[Damo10]

Thanks Vog