meeklovefait
08-12-2009, 08:45 AM
I need help on this macro.
Range("D3").Select
ActiveCell.FormulaR1C1 = "=R[9]C[8]"
Range("D4").Select
Calculate
Selection.Copy
Range("M12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D6").Select
Application.CutCopyMode = False
Selection.Copy
Range("N12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
This is actually setting cell D3 equal to L12 ( R[9]C[8]) and calculate then copy results in D4 to M12 and D6 to N12. However, I need to do this repeatedly from L12 to L2681 and copy each results in D4 to all the way to M2681 and D6 all the way to N2681.
Please help
Range("D3").Select
ActiveCell.FormulaR1C1 = "=R[9]C[8]"
Range("D4").Select
Calculate
Selection.Copy
Range("M12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D6").Select
Application.CutCopyMode = False
Selection.Copy
Range("N12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
This is actually setting cell D3 equal to L12 ( R[9]C[8]) and calculate then copy results in D4 to M12 and D6 to N12. However, I need to do this repeatedly from L12 to L2681 and copy each results in D4 to all the way to M2681 and D6 all the way to N2681.
Please help