Help needed editing a script

  • Thread starter Thread starter EagerGit
  • Start date Start date
E

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
 
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.
 
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.
 
Back
Top