Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
My macro won't find the last row !
I am reposting this as I cannot get a reply to my problem. The following
macro is meant to go to the last row and then on the next row (lr+1) make a totals row. But when I run the macro I get an error message "application-defined or object-defined error" and it does to the line ..Range(Cells(lr, "h"), Cells(lr, "o")).Borders.LineStyle = xlContinuous and after as the problem code. Can someone help me please ? Sub MakeTotals()' ' Make Totals for Report (zonderArb) Macro ' Macro recorded 15/06/02 by RAO ' Keyboard Shortcut: Ctrl+Shift+T ' clears borders from rows below total line (row 460) for clean printing ' creates SUM formula and then copies across total line ' creates borders and formats 0.00 where appropriate ' saves worksheet lr=cells(rows.count,"H").end(xlup).row+1 Worksheets("Report (zonderArb)").Rows("460:660").Borders.linestyle = xlNone with workSheets("Report (zonderArb)") . Range("H" & lr).formula="=sum(h1:h" & lr & ")" . Range("H" & lr).Copy Range(cells(lr,"I"),cells(lr,"ae")) . Range(cells(lr,"A"),cells(lr,"g")).borders.LineSty le = xlContinuous . Range(cells(lr,"h"),cells(lr,"o")).borders.LineSty le = xlContinuous . Range(cells(lr,"p"),cells(lr,"w")).borders.LineSty le = xlContinuous . Range(cells(lr,"x"),cells(lr,"ae")).borders.LineSt yle = xlContinuous . Range("AF" & lr).").borders.LineStyle = xlContinuous . Range(cells(l4,"M"),cells(lr,"n")).NumberFormat = "0.00" . Range(cells(l4,"u"),cells(lr,"v")).NumberFormat = "0.00" . Range(cells(l4,"ac"),cells(lr,"ad")).NumberFormat = "0.00" . Range("G" & LR)= "Totals" With . Range("G" & LR).Characters(Start:=1, Length:=7).Font .Name = "Arial" .FontStyle = "Regular" .Size = 8 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 1 End With end with 'Sheets("Instructions").Select ' Range("K61").Select ActiveWorkbook.Save End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Get Macro warning, but can't find Macro | Excel Worksheet Functions | |||
Find Macro | Excel Discussion (Misc queries) | |||
change error message when no more for "find" in macro to find | Excel Programming | |||
cant find a macro | Excel Programming | |||
I need to find a macro to find data cut and paste to another colu. | Excel Programming |