I am tring to apply this code which should locate and apply 2 rows below
the last entry in the worksheet. I am getting an error in the colored
command and can't figuire out why. can someone help please?






Code:
--------------------
Sub test()
Dim LastR As Range, rng As Range
Set LastR = Range("c" & Rows.Count).End(xlUp)
Set LastR = LastR.Offset(, -2)
Set rng = Union(LastR.Offset(2).Resize(2, 2), LastR.Offset(2, 2).Resize(2, 2), _
LastR.Offset(2, 4).Resize(2, 2), LastR.Offset(2, 6).Resize(2, 2))
rng.Borders.Weight = xlThick
rng.Offset(3).Borders.Weight = xlThick
With LastR.Offset(2)
.Value = "TOTAL CUSTOMERS"
.Font.Bold = True
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.Offset(, 2).Value = "TOTAL $95.00"
.Offset(, 4).Value = "TOTAL $145.00"
.Offset(, 6).Value = "FREE SERVICE"
.Offset(3, 2).Value = "PERCENT $95.00 CALLS"
.Offset(3, 4).Value = "PERCENT $145.00 CALLS"
.Offset(3, 6).Value = "PERCENT FREE"
End With
Set rng = Nothing
End Sub
--------------------


--
parteegolfer
------------------------------------------------------------------------
parteegolfer's Profile: http://www.excelforum.com/member.php...o&userid=31951
View this thread: http://www.excelforum.com/showthread...hreadid=528936

didn't do much here, but it ran without any errors

--


Gary


"parteegolfer" wrote
in message news:parteegolfer.25mb0a_1143948901.5059@excelforu m-nospam.com...

I am tring to apply this code which should locate and apply 2 rows below
the last entry in the worksheet. I am getting an error in the colored
command and can't figuire out why. can someone help please?






Code:
--------------------
Sub test()
Dim LastR As Range, rng As Range
Set LastR = Range("c" & Rows.Count).End(xlUp)
Set LastR = LastR.Offset(, -2)
Set rng = Union(LastR.Offset(2).Resize(2, 2), LastR.Offset(2, 2).Resize(2,
2), _
LastR.Offset(2, 4).Resize(2, 2), LastR.Offset(2, 6).Resize(2, 2))
rng.Borders.Weight = xlThick
rng.Offset(3).Borders.Weight = xlThick
With LastR.Offset(2)
.Value = "TOTAL CUSTOMERS"
.Font.Bold = True
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.Offset(, 2).Value = "TOTAL $95.00"
.Offset(, 4).Value = "TOTAL $145.00"
.Offset(, 6).Value = "FREE SERVICE"
.Offset(3, 2).Value = "PERCENT $95.00 CALLS"
.Offset(3, 4).Value = "PERCENT $145.00 CALLS"
.Offset(3, 6).Value = "PERCENT FREE"
End With
Set rng = Nothing
End Sub
--------------------


--
parteegolfer
------------------------------------------------------------------------
parteegolfer's Profile:
http://www.excelforum.com/member.php...o&userid=31951
View this thread: http://www.excelforum.com/showthread...hreadid=528936

What do you mean by "colored command"? There is reference having anything to
do with color in the posted code.

Regards,
Greg

"parteegolfer" wrote:


I am tring to apply this code which should locate and apply 2 rows below
the last entry in the worksheet. I am getting an error in the colored
command and can't figuire out why. can someone help please?






Code:
--------------------
Sub test()
Dim LastR As Range, rng As Range
Set LastR = Range("c" & Rows.Count).End(xlUp)
Set LastR = LastR.Offset(, -2)
Set rng = Union(LastR.Offset(2).Resize(2, 2), LastR.Offset(2, 2).Resize(2, 2), _
LastR.Offset(2, 4).Resize(2, 2), LastR.Offset(2, 6).Resize(2, 2))
rng.Borders.Weight = xlThick
rng.Offset(3).Borders.Weight = xlThick
With LastR.Offset(2)
.Value = "TOTAL CUSTOMERS"
.Font.Bold = True
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.Offset(, 2).Value = "TOTAL $95.00"
.Offset(, 4).Value = "TOTAL $145.00"
.Offset(, 6).Value = "FREE SERVICE"
.Offset(3, 2).Value = "PERCENT $95.00 CALLS"
.Offset(3, 4).Value = "PERCENT $145.00 CALLS"
.Offset(3, 6).Value = "PERCENT FREE"
End With
Set rng = Nothing
End Sub
--------------------


--
parteegolfer
------------------------------------------------------------------------
parteegolfer's Profile: http://www.excelforum.com/member.php...o&userid=31951
View this thread: http://www.excelforum.com/showthread...hreadid=528936

Ran for me - xl97

--
Regards,
Tom Ogilvy

"Gary Keramidas" <GKeramidasATmsn.com wrote in message
...
didn't do much here, but it ran without any errors

--


Gary


"parteegolfer"
wrote
in message
news:parteegolfer.25mb0a_1143948901.5059@excelforu m-nospam.com...

I am tring to apply this code which should locate and apply 2 rows below
the last entry in the worksheet. I am getting an error in the colored
command and can't figuire out why. can someone help please?






Code:
--------------------
Sub test()
Dim LastR As Range, rng As Range
Set LastR = Range("c" & Rows.Count).End(xlUp)
Set LastR = LastR.Offset(, -2)
Set rng = Union(LastR.Offset(2).Resize(2, 2), LastR.Offset(2,
2).Resize(2,
2), _
LastR.Offset(2, 4).Resize(2, 2), LastR.Offset(2, 6).Resize(2, 2))
rng.Borders.Weight = xlThick
rng.Offset(3).Borders.Weight = xlThick
With LastR.Offset(2)
.Value = "TOTAL CUSTOMERS"
.Font.Bold = True
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.Offset(, 2).Value = "TOTAL $95.00"
.Offset(, 4).Value = "TOTAL $145.00"
.Offset(, 6).Value = "FREE SERVICE"
.Offset(3, 2).Value = "PERCENT $95.00 CALLS"
.Offset(3, 4).Value = "PERCENT $145.00 CALLS"
.Offset(3, 6).Value = "PERCENT FREE"
End With
Set rng = Nothing
End Sub
--------------------


--
parteegolfer
------------------------------------------------------------------------
parteegolfer's Profile:
http://www.excelforum.com/member.php...o&userid=31951
View this thread:
http://www.excelforum.com/showthread...hreadid=528936