Thread
:
My macro won't find the last row !
View Single Post
#
9
Posted to microsoft.public.excel.programming
Don Guillett
external usenet poster
Posts: 10,124
My macro won't find the last row !
I know, I know, I know
I should do that
--
Don Guillett
SalesAid Software
"Chip Pearson" wrote in message
...
It was anyone's guess since the variables were not declared (shame, shame,
shame).
--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
"Don Guillett" wrote in message
...
It probably should have been LR. Typo. Probably mine when I hurriedly
provided the code originally.
--
Don Guillett
SalesAid Software
"Chip Pearson" wrote in message
...
You have not assigned a value to the l4 variable.
--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
"Roger" wrote in message
...
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
Reply With Quote
Don Guillett
View Public Profile
Find all posts by Don Guillett