| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding a Value from one worksheet to another.
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. |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Adding a Value from one worksheet to another.
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" wrote in message oups.com... 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. |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Adding a Value from one worksheet to another.
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" wrote in message oups.com... 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. |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Adding a Value from one worksheet to another.
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" wrote in message oups.com... 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 |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Adding a Value from one worksheet to another.
That worked that you
Dave Peterson wrote: 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" wrote in message oups.com... 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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| adding several worksheet cells onto a main worksheet | Excel Worksheet Functions | |||
| Adding worksheet tab names to the first worksheet | Excel Discussion (Misc queries) | |||
| list worksheet macros/VBA without adding worksheet | Excel Discussion (Misc queries) | |||
| Activate Previous worksheet after adding a new worksheet | Excel Programming | |||
| XL VBA adding new worksheet if current worksheet is not empty | Excel Programming | |||
Hybrid Mode
