Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Works beautifully but stops half way through
Hi,
I found this script in this group and changed it to my parameters. It is finding a 10 line by 2 column wide header on the top of every page of a file I imported and removing it. It works great but for some reason it stops on line 32785. There are 54733 lines in the file. I was hoping someone could review the code and see if you can tell why it is stopping here. Thanks! Kim Sub DeleteHeaders() Dim intCurRow As Integer Columns("A:A").Select On Error GoTo jump1: Do Cells.Find(What:="STAT", After:=ActiveCell, LookIn:=xlFormulas, Lookat _ :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ True, SearchFormat:=False).Activate intCurRow = ActiveCell.Row ActiveCell.Range("A1:B10").Select Selection.EntireRow.Delete Loop jump1: End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Works beautifully but stops half way through
You should dim your CurRow variable as Long. Haven't tested that, but
should do it. James wrote: Hi, I found this script in this group and changed it to my parameters. It is finding a 10 line by 2 column wide header on the top of every page of a file I imported and removing it. It works great but for some reason it stops on line 32785. There are 54733 lines in the file. I was hoping someone could review the code and see if you can tell why it is stopping here. Thanks! Kim Sub DeleteHeaders() Dim intCurRow As Integer Columns("A:A").Select On Error GoTo jump1: Do Cells.Find(What:="STAT", After:=ActiveCell, LookIn:=xlFormulas, Lookat _ :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ True, SearchFormat:=False).Activate intCurRow = ActiveCell.Row ActiveCell.Range("A1:B10").Select Selection.EntireRow.Delete Loop jump1: End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Works beautifully but stops half way through
You also had an answer to your earlier post.
-- Regards, Tom Ogilvy " wrote: That did it!!!! Thank you Zone wrote: You should dim your CurRow variable as Long. Haven't tested that, but should do it. James wrote: Hi, I found this script in this group and changed it to my parameters. It is finding a 10 line by 2 column wide header on the top of every page of a file I imported and removing it. It works great but for some reason it stops on line 32785. There are 54733 lines in the file. I was hoping someone could review the code and see if you can tell why it is stopping here. Thanks! Kim Sub DeleteHeaders() Dim intCurRow As Integer Columns("A:A").Select On Error GoTo jump1: Do Cells.Find(What:="STAT", After:=ActiveCell, LookIn:=xlFormulas, Lookat _ :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ True, SearchFormat:=False).Activate intCurRow = ActiveCell.Row ActiveCell.Range("A1:B10").Select Selection.EntireRow.Delete Loop jump1: End Sub |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Works beautifully but stops half way through
Thanks Tom,
I deleted that after I found the code but it still seems to be around. I think the code I used that worked I found in a post you supplied awhile ago. That's funny. Thanks! Kim Tom Ogilvy wrote: You also had an answer to your earlier post. -- Regards, Tom Ogilvy " wrote: That did it!!!! Thank you Zone wrote: You should dim your CurRow variable as Long. Haven't tested that, but should do it. James wrote: Hi, I found this script in this group and changed it to my parameters. It is finding a 10 line by 2 column wide header on the top of every page of a file I imported and removing it. It works great but for some reason it stops on line 32785. There are 54733 lines in the file. I was hoping someone could review the code and see if you can tell why it is stopping here. Thanks! Kim Sub DeleteHeaders() Dim intCurRow As Integer Columns("A:A").Select On Error GoTo jump1: Do Cells.Find(What:="STAT", After:=ActiveCell, LookIn:=xlFormulas, Lookat _ :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ True, SearchFormat:=False).Activate intCurRow = ActiveCell.Row ActiveCell.Range("A1:B10").Select Selection.EntireRow.Delete Loop jump1: End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Compare 1st Half & 2nd Half of 2008. | Excel Worksheet Functions | |||
Cell Paste using cell link option Half works | Excel Worksheet Functions | |||
print half of rows on left and other half on right | Excel Discussion (Misc queries) | |||
Cell protection only half works | Excel Discussion (Misc queries) | |||
Half of the code works? | Excel Programming |