Right now, I have the following line of code in a macro:

Range("B6:B129").FormulaR1C1 = _
"=YEAR(RC[-1])&TEXT(MONTH(RC[-1]),""00"")&TEXT(DAY(RC[-1]),""00"")"

Now I want to generalize the reference to select, starting in cell B6, a
range that is X rows long and Y rows wide (X and Y determined elsewhere).

How to I change this code? Thanks, John

Range("B6").Resize(numRows, numCols).FormulaR1C1 = ....

Tim


On Nov 23, 5:50*pm, John V wrote:
Right now, I have the following line of code in a macro:

Range("B6:B129").FormulaR1C1 = _
* * * * "=YEAR(RC[-1])&TEXT(MONTH(RC[-1]),""00"")&TEXT(DAY(RC[-1]),""00"")"

Now I want to generalize the reference to select, starting in cell B6, a
range that is X rows long and Y rows wide (X and Y determined elsewhere).

How to I change this code? Thanks, John

I'm not sure if the last post went through, so will repost

Dim myRange as Excel.Range

Set myRange = Range("B6").Resize(X,Y) 'assumes that X and Y are defined

myRange.FormulaR1C1 = _
"=TEXT(RC[-1]),""yyyymmdd"")"

I'm thinking your formula may change if you resize the range, but this
answers the question that was asked.
--
HTH,

Barb Reinhardt



"John V" wrote:

Right now, I have the following line of code in a macro:

Range("B6:B129").FormulaR1C1 = _
"=YEAR(RC[-1])&TEXT(MONTH(RC[-1]),""00"")&TEXT(DAY(RC[-1]),""00"")"

Now I want to generalize the reference to select, starting in cell B6, a
range that is X rows long and Y rows wide (X and Y determined elsewhere).

How to I change this code? Thanks, John

As the saying goes, it's simple if you know how, impossible if you don't.

Thanks very much, John