Re: Adding a Value from one worksheet to another.

Tech-Archive recommends: Fix windows errors by optimizing your registry

How about this:

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



newguy wrote:

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

Bob Phillips wrote:
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" <rexbiggs@xxxxxxxxx> wrote in message
news:1167568449.148453.120740@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
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 work*** then the one I am on
and doing a calculation in a cell.


--

Dave Peterson
.

Quantcast