NasimAnsari
New Member
- Joined
- Sep 2, 2020
- Messages
- 19
- Office Version
- 365
- 2016
- Platform
- Windows
Hello everyone,
I Would need a short VBA code for the below formula.
ActiveCell.FormulaR1C1 = "=R[-10]C[15]/R[-10]C[12]"
Range("C15").Select
ActiveCell.FormulaR1C1 = "=R[-10]C[19]/R[-10]C[16]"
Range("D15").Select
ActiveCell.FormulaR1C1 = "=R[-10]C[23]/R[-10]C[20]"
Range("E15").Select
ActiveCell.FormulaR1C1 = "=R[-10]C[27]/R[-10]C[24]"
Range("F15").Select
ActiveCell.FormulaR1C1 = "=R[-10]C[31]/R[-10]C[28]"
Range("G15").Select
ActiveCell.FormulaR1C1 = "=R[-10]C[35]/R[-10]C[32]"
Range("H15").Select
ActiveCell.FormulaR1C1 = "=R[-10]C[39]/R[-10]C[36]"
Range("I15").Select
ActiveCell.FormulaR1C1 = "=R[-10]C[43]/R[-10]C[40]"
Range("J15").Select
ActiveCell.FormulaR1C1 = "=R[-10]C[47]/R[-10]C[44]"
Range("K15").Select
ActiveCell.FormulaR1C1 = "=R[-10]C[51]/R[-10]C[48]"
Range("L15").Select
ActiveCell.FormulaR1C1 = "=R[-10]C[55]/R[-10]C[52]"
Range("M15").Select
ActiveCell.FormulaR1C1 = "=R[-10]C[59]/R[-10]C[56]"
Range("N15").Select
ActiveCell.FormulaR1C1 = "=R[-10]C[63]/R[-10]C[60]"
Range("O15").Select
ActiveCell.FormulaR1C1 = "=R[-10]C[67]/R[-10]C[64]"
Range("H15").Select
Thank you!
Regards,
Nasim
I Would need a short VBA code for the below formula.
ActiveCell.FormulaR1C1 = "=R[-10]C[15]/R[-10]C[12]"
Range("C15").Select
ActiveCell.FormulaR1C1 = "=R[-10]C[19]/R[-10]C[16]"
Range("D15").Select
ActiveCell.FormulaR1C1 = "=R[-10]C[23]/R[-10]C[20]"
Range("E15").Select
ActiveCell.FormulaR1C1 = "=R[-10]C[27]/R[-10]C[24]"
Range("F15").Select
ActiveCell.FormulaR1C1 = "=R[-10]C[31]/R[-10]C[28]"
Range("G15").Select
ActiveCell.FormulaR1C1 = "=R[-10]C[35]/R[-10]C[32]"
Range("H15").Select
ActiveCell.FormulaR1C1 = "=R[-10]C[39]/R[-10]C[36]"
Range("I15").Select
ActiveCell.FormulaR1C1 = "=R[-10]C[43]/R[-10]C[40]"
Range("J15").Select
ActiveCell.FormulaR1C1 = "=R[-10]C[47]/R[-10]C[44]"
Range("K15").Select
ActiveCell.FormulaR1C1 = "=R[-10]C[51]/R[-10]C[48]"
Range("L15").Select
ActiveCell.FormulaR1C1 = "=R[-10]C[55]/R[-10]C[52]"
Range("M15").Select
ActiveCell.FormulaR1C1 = "=R[-10]C[59]/R[-10]C[56]"
Range("N15").Select
ActiveCell.FormulaR1C1 = "=R[-10]C[63]/R[-10]C[60]"
Range("O15").Select
ActiveCell.FormulaR1C1 = "=R[-10]C[67]/R[-10]C[64]"
Range("H15").Select
Thank you!
Regards,
Nasim