A Macro to search and sum

[SteFau]

Hey guys,

Ok, I'm a kind of newbie to Excel Macro Programming but have a small basic programming knowledge. So here goes my Question...

What code would I need to search a given colum for a specific string, and IF the string is found, i would want to add up the number in a column of the same line. The sum would be put in an empty cell, doesn't matter really where.

Can you guys help me out?

Thanx in advance!

Stephane

[Tom Ogilvy]

Dim c as Range, mysum as Double
Dim firstAddress as String
With Worksheets(1).Range("a1:a500")
Set c = .Find("Hobart", lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
mysum = mysum + cells(c.row,"F").Value
Set c = .FindNext(c)
Loop While c.Address <> firstAddress
End If
End With
MsgBox Mysum


--
Regards,
Tom Ogilvy

"SteFau" <[email protected]> wrote in
message news:[email protected]...
>
> Hey guys,
>
> Ok, I'm a kind of newbie to Excel Macro Programming but have a small
> basic programming knowledge. So here goes my Question...
>
> What code would I need to search a given colum for a specific string,
> and IF the string is found, i would want to add up the number in a
> column of the same line. The sum would be put in an empty cell, doesn't
> matter really where.
>
> Can you guys help me out?
>
> Thanx in advance!
>
> Stephane
>
>
> --
> SteFau
> ------------------------------------------------------------------------
> SteFau's Profile:
http://www.excelforum.com/member.php...o&userid=31625
> View this thread: http://www.excelforum.com/showthread...hreadid=513205
>