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
(E-Mail Removed)



"jhong" <(E-Mail Removed)> wrote in message
news:d1bc77b2-b726-4b55-9e57-(E-Mail Removed)...
> 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" <nigel-...@nosupanetspam.com> 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
> nigelnos...@9sw.co.uk
>
> "jhong" <jerome.tam...@gmail.com> wrote in message
>
> news:d1bc77b2-b726-4b55-9e57-(E-Mail Removed)...
>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
(E-Mail Removed)



"jhong" <(E-Mail Removed)> wrote in message
news:7ef983c4-f86c-4785-8e10-(E-Mail Removed)...
On Feb 1, 3:42 pm, "Nigel" <nigel-...@nosupanetspam.com> 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
> nigelnos...@9sw.co.uk
>
> "jhong" <jerome.tam...@gmail.com> wrote in message
>
> news:d1bc77b2-b726-4b55-9e57-(E-Mail Removed)...
>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" <nigel-...@nosupanetspam.com> 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
> nigelnos...@9sw.co.uk
>
> "jhong" <jerome.tam...@gmail.com> wrote in message
>
> news:7ef983c4-f86c-4785-8e10-(E-Mail Removed)...
> On Feb 1, 3:42 pm, "Nigel" <nigel-...@nosupanetspam.com> 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
> > nigelnos...@9sw.co.uk
>
> > "jhong" <jerome.tam...@gmail.com> wrote in message
>
> >news:d1bc77b2-b726-4b55-9e57-(E-Mail Removed)...
> >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 -