Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help needed editing a script
Brilliant
thanks Mike H Does exactly what it says on the tin........ "Mike H" wrote in message ... 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. "Mike H" wrote: 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. "EagerGit" wrote: 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 . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Formula or script needed | Excel Discussion (Misc queries) | |||
how do i turn off debugger and script editing | Excel Discussion (Misc queries) | |||
Need help Editing Ron de Bruin Script | Excel Programming | |||
Running a script while editing a cell | Excel Discussion (Misc queries) | |||
Simple VB Script needed | Excel Programming |