Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sum up values in each column in 12 different worksheets and displayvalue in a MsgBox
Hi,
Can anyone help me on how to sum up numerical values in each column (say Column C) in 12 different worksheets and display value in a MsgBox. Because I'm quiet new to VBA I'm stuck...please help... |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sum up values in each column in 12 different worksheets and displayvalue in a MsgBox
Here are two methods. Te method to use depends on the number of sheets in the workbook you want included and the number of sheets you want to exclude from the total. MyTotal = 0 for each sht in sheets if sht.name < "Summary" and sht.name < "Cover Sheet" then with sht Lastrow = .Range("C" & rows.count).end(xlup).row Set MyRange = .Range("1:" & LastRow) Total = Total + worksheetfunction.sum(Myrange) end with end if next sht msgbox("the total is : " & Mytotal) shtNames = array("sheet1","sheet3",sheet5") MyTotal = 0 for each sht in shtnames with sheets(sht.name) Lastrow = .Range("C" & rows.count).end(xlup).row Set MyRange = .Range("1:" & LastRow) Total = Total + worksheetfunction.sum(Myrange) end with next sht msgbox("the total is : " & Mytotal) -- joel ------------------------------------------------------------------------ joel's Profile: 229 View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=179907 Microsoft Office Help |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
link values from same cell of 20 worksheets into column on one she | Excel Worksheet Functions | |||
msgBox sum values | Excel Discussion (Misc queries) | |||
Create worksheets for each matching values in Column? | Excel Programming | |||
Create Worksheets Based Upon Changing Column Values in XP | Excel Programming | |||
Dividing data into worksheets by column values | Excel Programming |