Help needed editing a script

[EagerGit]

hi there
I using using this script to hide rows which working fine.
I would like add to it to hide Entire row PLUS every row below it upto 1197.
how can I achieve that??

Thanks in advance

Sub HURows()
BeginRow = 2
EndRow = 1197
ChkCol = 1

For RowCnt = BeginRow To EndRow
If Cells(RowCnt, ChkCol).Value = "hide" Then
Cells(RowCnt, ChkCol).EntireRow.Hidden = True
Else
Cells(RowCnt, ChkCol).EntireRow.Hidden = False
End If
Next RowCnt
End Sub

 

[Mike H]

Hi,

Is this what you mean

Sub HURows()
Dim BeginRow As Long, EndRow As Long
Dim ChkCol As Long
BeginRow = 2
EndRow = 1197
ChkCol = 1
For RowCnt = BeginRow To EndRow
If Cells(RowCnt, ChkCol).Value <> "hide" Then
Cells(RowCnt, ChkCol).EntireRow.Hidden = False
Else
Rows(RowCnt & ":" & EndRow).EntireRow.Hidden = True
Exit For
End If
Next RowCnt
Application.ScreenUpdating = True
End Sub

--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.

 

[Mike H]

I forgot this line at the top of the code, it will speed things up

Application.ScreenUpdating = False
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.

 

[EagerGit]

Brilliant

thanks Mike H
Does exactly what it says on the tin........

 

[EagerGit]

Is there any way to make it faster? takes ages
otherwise its working PERFECT.
thanks

 

[joel]

Try my code it was designed to run fasters. the code unhide
everything in one instruction and then hides everything in a secon
instruction.


Sub HURows()
BeginRow = 2
EndRow = 1197
ChkCol = 1

'unhide all rows
Rows(RowCnt & ":" & EndRow).Hidden = False
'find 1st occurance of hide and then hide all rows until end
For RowCnt = BeginRow To EndRow
If Cells(RowCnt, ChkCol).Value = "hide" Then
Rows(RowCnt & ":" & EndRow).Hidden = True
exit For
End If
Next RowCnt
End Sub
Yesterday 09:30 AM