Hi There,


I need your help, I want to do a macro that will add all values from
column A of all sheets within a workbook. Please please help me.


Thanks in Advance!

Jong

Please explain some more. When you say add do you mean "Sum" or "Copy", do
you mean the entire column of each row in Column on each sheet?


--

Regards,
Nigel




"jhong" wrote in message
...
Hi There,


I need your help, I want to do a macro that will add all values from
column A of all sheets within a workbook. Please please help me.


Thanks in Advance!

Jong

On Feb 1, 3:42*pm, "Nigel" wrote:
Please explain some more. *When you say add do you mean "Sum" or "Copy", do
you mean the entire column of each row in Column on each sheet?

--

Regards,
Nigel


"jhong" wrote in message

...
Hi Nigel,

Thanks for the reply, i mean summing up data from A column from
different sheets within a workbook. I hate adding this values thru
link hope you can help me. Thanks in advance again!


Hi There,

I need your help, I want to do a macro that will add all values from
column A of allsheetswithin a workbook. *Please please help me.

Thanks in Advance!

Jong- Hide quoted text -

- Show quoted text -

Try something like.....(sums all values in column A of all sheets)

Sub aTotals()
Dim wS As Worksheet
Dim cTotal As Double, sRange As Range

For Each wS In Worksheets
With wS
Set sRange = .Range("A1:A" & .Cells(.Rows.Count, "A").End(xlUp).Row)
cTotal = cTotal + Application.WorksheetFunction.Sum(sRange)
End With
Next wS
MsgBox cTotal
End Sub


--

Regards,
Nigel




"jhong" wrote in message
...
On Feb 1, 3:42 pm, "Nigel" wrote:
Please explain some more. When you say add do you mean "Sum" or "Copy", do
you mean the entire column of each row in Column on each sheet?

--

Regards,
Nigel


"jhong" wrote in message

...
Hi Nigel,

Thanks for the reply, i mean summing up data from A column from
different sheets within a workbook. I hate adding this values thru
link hope you can help me. Thanks in advance again!


Hi There,

I need your help, I want to do a macro that will add all values from
column A of allsheetswithin a workbook. Please please help me.

Thanks in Advance!

Jong- Hide quoted text -

- Show quoted text -

It was a BIG help Nigel!! Thank you! Thank you!!


On Feb 1, 10:20*pm, "Nigel" wrote:
Try something like.....(sums all values in column A of all sheets)

Sub aTotals()
Dim wS As Worksheet
Dim cTotal As Double, sRange As Range

For Each wS In Worksheets
* With wS
* *Set sRange = .Range("A1:A" & .Cells(.Rows.Count, "A").End(xlUp).Row)
* *cTotal = cTotal + Application.WorksheetFunction.Sum(sRange)
* End With
Next wS
MsgBox cTotal
End Sub

--

Regards,
Nigel


"jhong" wrote in message

...
On Feb 1, 3:42 pm, "Nigel" wrote:

Please explain some more. When you say add do you mean "Sum" or "Copy", do
you mean the entire column of each row in Column on each sheet?

--

Regards,
Nigel


"jhong" wrote in message

...
Hi Nigel,

Thanks for the reply, i mean summing up data from A column from
different sheets within a workbook. I hate adding this values thru
link hope you can help me. Thanks in advance again!





Hi There,

I need your help, I want to do a macro that will add all values from
column A of allsheetswithin a workbook. Please please help me.

Thanks in Advance!

Jong- Hide quoted text -

- Show quoted text -- Hide quoted text -

- Show quoted text -