Formula to sum rows
 

I have a database query that runs by a date range which can return different
amount of data based on date range this is the formula that i hand type into
cells
Can someone maybe help me with a formula to run a macro for this

Thanks mike

Range("G12").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-2]-RC[-3])"
Range("H12").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-2]*RC[-1])"

Formula to sum rows
 

It would help if you gave us a bit more information, what does the data look
like, what does the macro need to do?

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Mike" wrote in message
...
I have a database query that runs by a date range which can return
different
amount of data based on date range this is the formula that i hand type
into
cells
Can someone maybe help me with a formula to run a macro for this

Thanks mike

Range("G12").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-2]-RC[-3])"
Range("H12").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-2]*RC[-1])"

Formula to sum rows
 

Column G
=SUM(E12-D12) ' Subtracts the New Price from Old Price
Column H
=SUM(F12*G12) ' New Price * QTY


"Bob Phillips" wrote:

It would help if you gave us a bit more information, what does the data look
like, what does the macro need to do?

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Mike" wrote in message
...
I have a database query that runs by a date range which can return
different
amount of data based on date range this is the formula that i hand type
into
cells
Can someone maybe help me with a formula to run a macro for this

Thanks mike

Range("G12").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-2]-RC[-3])"
Range("H12").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-2]*RC[-1])"

Formula to sum rows
 

Would like the macro to only go down as for as data does not all the way down
to row 65500

"Mike" wrote:

Column G
=SUM(E12-D12) ' Subtracts the New Price from Old Price
Column H
=SUM(F12*G12) ' New Price * QTY


"Bob Phillips" wrote:

It would help if you gave us a bit more information, what does the data look
like, what does the macro need to do?

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Mike" wrote in message
...
I have a database query that runs by a date range which can return
different
amount of data based on date range this is the formula that i hand type
into
cells
Can someone maybe help me with a formula to run a macro for this

Thanks mike

Range("G12").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-2]-RC[-3])"
Range("H12").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-2]*RC[-1])"

Formula to sum rows
 

Sub Foo()
lr = Cells(Rows.Count, "E").End(xlUp).Row ' obtain last active row
For i = lr To 2 Step -1
Cells(i, 7).FormulaR1C1 = "=(RC[-1]-RC[-2])" '7 used for Column G
Next i
End Sub

"Bob Phillips" wrote in message
:

It would help if you gave us a bit more information, what does the data look
like, what does the macro need to do?

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Mike" wrote in message
...
I have a database query that runs by a date range which can return
different
amount of data based on date range this is the formula that i hand type
into
cells
Can someone maybe help me with a formula to run a macro for this

Thanks mike

Range("G12").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-2]-RC[-3])"
Range("H12").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-2]*RC[-1])"

Formula to sum rows
 

TY JMay

"JMay" wrote:

Sub Foo()
lr = Cells(Rows.Count, "E").End(xlUp).Row ' obtain last active row
For i = lr To 2 Step -1
Cells(i, 7).FormulaR1C1 = "=(RC[-1]-RC[-2])" '7 used for Column G
Next i
End Sub

"Bob Phillips" wrote in message
:

It would help if you gave us a bit more information, what does the data look
like, what does the macro need to do?

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Mike" wrote in message
...
I have a database query that runs by a date range which can return
different
amount of data based on date range this is the formula that i hand type
into
cells
Can someone maybe help me with a formula to run a macro for this

Thanks mike

Range("G12").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-2]-RC[-3])"
Range("H12").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-2]*RC[-1])"