Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find Total and insert one blank row below
Normally I may have 140 to 180 items in a list, Im subtotaling and then
trying to insert a blank row under the *Total* in Column E. This code worked fine the first couple time I ran it, but then stopped working. I cant figure out why. It shouldnt be because of the 250 rows which now contain some blanks (sometimes I will have more than 180 items; I want to capture all). I know you can insert rows into a Subtotal list, so that's not it. At one point I had a few of these guys in Column E: #VALUE! #VALUE! Total I got rid of those, not that they should matter with the *, re-ran the code, and still got the error. I cant figure out what is causing the error. Code fails on this line: If (Cells(i, 5).Value) Like "*Total*" Then This is the whole sub: Dim i As Long For i = 250 To 1 Step -1 If (Cells(i, 5).Value) Like "*Total*" Then Rows(i + 1).Insert End If Next i Oh, also, how can I insert a bold line under each Total, from Column A to Column T? Ive done this before. Now I cant find the code (that does this) in my library. Any thoughts? Thanks so much! Ryan-- -- Ryan--- If this information was helpful, please indicate this by clicking ''Yes''. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel 2002-7: Modifying Sub Total Function to allow insert blank r | Excel Worksheet Functions | |||
Insert Blank Row Below Sub-Total? | Excel Worksheet Functions | |||
Start Cell B1 then find first blank cell, insert subtotal, next non blank, then next blank, sutotal cells in between......... | Excel Programming | |||
Autoatically insert blank row above total when no more rows | Excel Programming | |||
Macro code to test for blank row and insert blank row if false | Excel Programming |