BenjaminDubai
New Member
- Joined
- May 7, 2007
- Messages
- 42
What I would like to do is repeat the below formula changing 2 things 50 times.
What I want to change is highlighted.
'Add formaula to cell
Sheets("Resources").Select
Range("A3").Select
ActiveCell.FormulaR1C1 = _
"=AND('Resource%PerWeek'!RC2=Resources!R1C,Dates!RC1=TRUE)"
'Autofill the page
Application.Run "'Resource%Calculator.xls'!AutofillArea"
'Select the range that is now correct, copy and paste values
Sheets("Resource%PerWeek").Select
Range("C3:C1119").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
I would like the column to move from 1 to 2, to 3, etc... until 50.
I would like the range to move from C3:C1119 to D3:D1119 to E3:E1119 etc until it hits AZ3:AZ1119
What I want to change is highlighted.
'Add formaula to cell
Sheets("Resources").Select
Range("A3").Select
ActiveCell.FormulaR1C1 = _
"=AND('Resource%PerWeek'!RC2=Resources!R1C,Dates!RC1=TRUE)"
'Autofill the page
Application.Run "'Resource%Calculator.xls'!AutofillArea"
'Select the range that is now correct, copy and paste values
Sheets("Resource%PerWeek").Select
Range("C3:C1119").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
I would like the column to move from 1 to 2, to 3, etc... until 50.
I would like the range to move from C3:C1119 to D3:D1119 to E3:E1119 etc until it hits AZ3:AZ1119