Adding a Value from one worksheet to another.

[newguy]

I have tried making sense of the code from the Macro when I recorded it
but it isnt working for me.

Range("Q6").Select
ActiveCell.FormulaR1C1 = "=RC[-14]+'07-Dec-06'!RC"
Range("Q7").Select

This works but I need to apply it to multiple worksheets so I need it
to be more dynamic in the sense that it doesnt reference '07-Dec-06'
but something along the lines of

Range("Q6").Select
ActiveCell.FormulaR1C1 = "=RC[-14]+'Sheets(ActiveSheet.Index -
1)'!RC"
Range("Q7").Select

Or some way of selecting the previous worksheet then the one I am on
and doing a calculation in a cell.

 

[Bob Phillips]

Maybe this

Range("Q6").FormulaR1C1 = "=RC[-14]+'Sheets(" & _
Worksheets(ActiveSheet.Index - 1).Name & ")'!RC"
Range("Q7").Select


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

 

[newguy]

That gets the formula in the cell now everytime I run it, it asks me to
save the file.

Maybe this

Range("Q6").FormulaR1C1 = "=RC[-14]+'Sheets(" & _
Worksheets(ActiveSheet.Index - 1).Name & ")'!RC"
Range("Q7").Select


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

I have tried making sense of the code from the Macro when I recorded it
but it isnt working for me.

Range("Q6").Select
ActiveCell.FormulaR1C1 = "=RC[-14]+'07-Dec-06'!RC"
Range("Q7").Select

This works but I need to apply it to multiple worksheets so I need it
to be more dynamic in the sense that it doesnt reference '07-Dec-06'
but something along the lines of

Range("Q6").Select
ActiveCell.FormulaR1C1 = "=RC[-14]+'Sheets(ActiveSheet.Index -
1)'!RC"
Range("Q7").Select

Or some way of selecting the previous worksheet then the one I am on
and doing a calculation in a cell.

 

[Dave Peterson]

How about this:

Range("Q6").FormulaR1C1 _
= "=RC[-14]+'" & Worksheets(ActiveSheet.Index - 1).Name & "'!RC"

That gets the formula in the cell now everytime I run it, it asks me to
save the file.

Maybe this

Range("Q6").FormulaR1C1 = "=RC[-14]+'Sheets(" & _
Worksheets(ActiveSheet.Index - 1).Name & ")'!RC"
Range("Q7").Select


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

I have tried making sense of the code from the Macro when I recorded it
but it isnt working for me.

Range("Q6").Select
ActiveCell.FormulaR1C1 = "=RC[-14]+'07-Dec-06'!RC"
Range("Q7").Select

This works but I need to apply it to multiple worksheets so I need it
to be more dynamic in the sense that it doesnt reference '07-Dec-06'
but something along the lines of

Range("Q6").Select
ActiveCell.FormulaR1C1 = "=RC[-14]+'Sheets(ActiveSheet.Index -
1)'!RC"
Range("Q7").Select

Or some way of selecting the previous worksheet then the one I am on
and doing a calculation in a cell.

 

[newguy]

That worked that you

How about this:

Range("Q6").FormulaR1C1 _
= "=RC[-14]+'" & Worksheets(ActiveSheet.Index - 1).Name & "'!RC"

That gets the formula in the cell now everytime I run it, it asks me to
save the file.

Maybe this

Range("Q6").FormulaR1C1 = "=RC[-14]+'Sheets(" & _
Worksheets(ActiveSheet.Index - 1).Name & ")'!RC"
Range("Q7").Select


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

I have tried making sense of the code from the Macro when I recorded it
but it isnt working for me.

Range("Q6").Select
ActiveCell.FormulaR1C1 = "=RC[-14]+'07-Dec-06'!RC"
Range("Q7").Select

This works but I need to apply it to multiple worksheets so I need it
to be more dynamic in the sense that it doesnt reference '07-Dec-06'
but something along the lines of

Range("Q6").Select
ActiveCell.FormulaR1C1 = "=RC[-14]+'Sheets(ActiveSheet.Index -
1)'!RC"
Range("Q7").Select

Or some way of selecting the previous worksheet then the one I am on
and doing a calculation in a cell.