Macro-find and sum

[puiuluipui]

Hi, i need a macro to look in column "L" and find last cell that contain the
word "total" and to sum all cells below.
Can this be done?
Thanks allot!

 

[Per Jessen]

Hi

Look at this:

Sub Macro4()

Dim TotalCell As Range
Set TotalCell = Columns("L:L").Find(What:="Total", After:=Range("L1"),
LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlPrevious, _
MatchCase:=False)
MySum = WorksheetFunction.Sum(Range(TotalCell.Offset(1, 9),
TotalCell.End(xlDown)))
msg = MsgBox("MySum = " & MySum)
End Sub

Regards,
Per

 

[Don Guillett]

Do you ever bother to go back and look at your PREVIOUS posts BEFORE posting
again?

 

[Per Jessen]

Hi Don,

I do not think OP see the replys to previous posts.

None of the replys I sent today and some days ago through my newsreader and
Google groups are not visible if you access the newsgroups via
https://www.microsoft.com/office/community. Something is obviously not
working.

 

[Don Guillett]

I have always used msnews.com.

 

[JLatham]

You did get a response to this somewhere, right? I see in this pos
http://www.microsoft.com/office/com...misc&mid=c3b1b049-d183-465f-a06b-61f1d9e636dc
that you've got code to do this now?