Staal
11-13-2010, 04:21 AM
Hi,
I am quite new to VBA coding and have some problems finding an easier way to write the following:
Range("S5").Select
ActiveCell.FormulaR1C1 = "=R[0]C[-13]"
Range("S13").Select
ActiveCell.FormulaR1C1 = "=R[-7]C[-13]"
Range("S21").Select
ActiveCell.FormulaR1C1 = "=R[-14]C[-13]"
Range("S29").Select
ActiveCell.FormulaR1C1 = "=R[-21]C[-13]"
Range("S37").Select
ActiveCell.FormulaR1C1 = "=R[-28]C[-13]"
Range("S45").Select
ActiveCell.FormulaR1C1 = "=R[-35]C[-13]"
Any help is much appreciated.
Best regards,
Soren
I am quite new to VBA coding and have some problems finding an easier way to write the following:
Range("S5").Select
ActiveCell.FormulaR1C1 = "=R[0]C[-13]"
Range("S13").Select
ActiveCell.FormulaR1C1 = "=R[-7]C[-13]"
Range("S21").Select
ActiveCell.FormulaR1C1 = "=R[-14]C[-13]"
Range("S29").Select
ActiveCell.FormulaR1C1 = "=R[-21]C[-13]"
Range("S37").Select
ActiveCell.FormulaR1C1 = "=R[-28]C[-13]"
Range("S45").Select
ActiveCell.FormulaR1C1 = "=R[-35]C[-13]"
Any help is much appreciated.
Best regards,
Soren