A Macro to search and sum
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 |
A Macro to search and sum
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" wrote in message ... 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 |
All times are GMT +1. The time now is 08:11 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com