Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
overworking code, infinite running
Hello there,
I modified some code so that it will find cells in column A that ar not blank, then add a new row above it and fill a cell with some text The problem is simple It finds a filled cell in column A inserns a new row and some text the looks at the next row down (the same one it say in the first step) an adds another row with the text and so on and so on and so on. I tried to add a fix I could think of but not it just runs from the to of the a column to the end + 25 rows. here is the code with my current not-fix: Sub DeletingStuffinA() ' deletes topcrop in the report Range("A3").Select ' Do Until X = 25 'Change number for extra number of blanks between data CaseText = activecell.Value Select Case (CaseText) Case Is < "" selection.EntireRow.Insert activecell.Offset(-1, 4) = "TOTAL TRANSACTIONS" activecell.Offset(2, -4).Select Y = 1 End Select If Y = 1 Then Else activecell.Offset(1, 0).Select End If If activecell = "" Then X = X + 1 Else X = 0 End If Y = 0 Loop End Su -- Message posted from http://www.ExcelForum.com |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Running code on workdays | Excel Worksheet Functions | |||
VB code for running a macro | Excel Discussion (Misc queries) | |||
running code | New Users to Excel | |||
Running Code Automatically | Excel Programming | |||
running VB code | Excel Programming |