I would like to use this code to SUM the total of column G into a different
worksheet. How do I do this?

Thanks.

Set sh = Workbooks.Application.ActiveSheet
Set r = Range("G" & Rows.Count).End(xlUp).Offset(2, 0)
r.FormulaR1C1 = "=SUM(R2C:OFFSET(RC,-2,0))"

assume you mean column G in sheet1
Dim rng as Range, cell as Range
With worksheets("sheet1")
set rng =.range("G2",.cells(rows.count,"G").End(xlup))
end with
With worksheets("Sheet2")
set cell = cells(rows.count,1).End(xlup)(2)
cell.formula = "=sum(" & rng.Address(1,1,xlA1,True) & _
")"
End With

--
Regards,
Tom Ogilvy


"Martin" wrote:

I would like to use this code to SUM the total of column G into a different
worksheet. How do I do this?

Thanks.

Set sh = Workbooks.Application.ActiveSheet
Set r = Range("G" & Rows.Count).End(xlUp).Offset(2, 0)
r.FormulaR1C1 = "=SUM(R2C:OFFSET(RC,-2,0))"

Tom I'm getting the value on Sheet1.

"Tom Ogilvy" wrote in message
...
assume you mean column G in sheet1
Dim rng as Range, cell as Range
With worksheets("sheet1")
set rng =.range("G2",.cells(rows.count,"G").End(xlup))
end with
With worksheets("Sheet2")
set cell = cells(rows.count,1).End(xlup)(2)
cell.formula = "=sum(" & rng.Address(1,1,xlA1,True) & _
")"
End With

--
Regards,
Tom Ogilvy


"Martin" wrote:

I would like to use this code to SUM the total of column G into a
different
worksheet. How do I do this?

Thanks.

Set sh = Workbooks.Application.ActiveSheet
Set r = Range("G" & Rows.Count).End(xlUp).Offset(2, 0)
r.FormulaR1C1 = "=SUM(R2C:OFFSET(RC,-2,0))"

I left off a period. See revised:

Dim rng as Range, cell as Range
With worksheets("sheet1")
set rng =.range("G2",.cells(rows.count,"G").End(xlup))
end with
With worksheets("Sheet2")
set cell = .cells(rows.count,1).End(xlup)(2)
cell.formula = "=sum(" & rng.Address(1,1,xlA1,True) & _
")"
End With

--
Regards,
Tom Ogilvy



"Martin" wrote:

Tom I'm getting the value on Sheet1.

"Tom Ogilvy" wrote in message
...
assume you mean column G in sheet1
Dim rng as Range, cell as Range
With worksheets("sheet1")
set rng =.range("G2",.cells(rows.count,"G").End(xlup))
end with
With worksheets("Sheet2")
set cell = cells(rows.count,1).End(xlup)(2)
cell.formula = "=sum(" & rng.Address(1,1,xlA1,True) & _
")"
End With

--
Regards,
Tom Ogilvy


"Martin" wrote:

I would like to use this code to SUM the total of column G into a
different
worksheet. How do I do this?

Thanks.

Set sh = Workbooks.Application.ActiveSheet
Set r = Range("G" & Rows.Count).End(xlUp).Offset(2, 0)
r.FormulaR1C1 = "=SUM(R2C:OFFSET(RC,-2,0))"