Formülü nasıl kısaltabilirim

[northcyprus]

iyi akşamlar sayın hocalarım aşağıdaki formül G5 ten G188 e kadar gidiyor Nasıl Kısaltabilirim??


Range("G5").Select
ActiveCell.FormulaR1C1 = "=RC[-3]/R[184]C[-3]"
Range("G6").Select
ActiveCell.FormulaR1C1 = "=RC[-3]/R[183]C[-3]"
Range("G7").Select
ActiveCell.FormulaR1C1 = "=RC[-3]/R[182]C[-3]"
Range("G8").Select
ActiveCell.FormulaR1C1 = "=RC[-3]/R[181]C[-3]"
Range("G9").Select
ActiveCell.FormulaR1C1 = "=RC[-3]/R[180]C[-3]"
Range("G10").Select
ActiveCell.FormulaR1C1 = "=RC[-3]/R[179]C[-3]"
Range("G11").Select
ActiveCell.FormulaR1C1 = "=RC[-3]/R[178]C[-3]"



bu formul G5 ten G188 e kadar gidiyor Nasıl Kısaltabilirim??

 

[Serdar SELEN]

Merhaba,

Range("g5:g188").Select
Selection.FormulaR1C1 = "=RC[-3]/RC[-3]"

denermisiniz...

 

[northcyprus]

olmadı bunu yapınca hepsi %100 oldu değerlerin
yapmak istediğim şey aslında tam olarak şu
G5 e
=D5/D189
G6 ya
=D6/189
ve bunu G188 ede =D188/D189 kadar tekrar tekrar girmem gerekiyor.


kısaltabilirmiyim aceba

 

[Merhum İdris SERDAR]

iyi akşamlar sayın hocalarım aşağıdaki formül G5 ten G188 e kadar gidiyor Nasıl Kısaltabilirim??


Range("G5").Select
ActiveCell.FormulaR1C1 = "=RC[-3]/R[184]C[-3]"
Range("G6").Select
ActiveCell.FormulaR1C1 = "=RC[-3]/R[183]C[-3]"
Range("G7").Select
ActiveCell.FormulaR1C1 = "=RC[-3]/R[182]C[-3]"
Range("G8").Select
ActiveCell.FormulaR1C1 = "=RC[-3]/R[181]C[-3]"
Range("G9").Select
ActiveCell.FormulaR1C1 = "=RC[-3]/R[180]C[-3]"
Range("G10").Select
ActiveCell.FormulaR1C1 = "=RC[-3]/R[179]C[-3]"
Range("G11").Select
ActiveCell.FormulaR1C1 = "=RC[-3]/R[178]C[-3]"



bu formul G5 ten G188 e kadar gidiyor Nasıl Kısaltabilirim??

.

Soru, bu kodu nasıl kısaltabilirim olmalıydı.

Aşağıdaki şekilde deneyin.

Sub FORMUL()

Application.ScreenUpdating = False
    
Range("G5:G188").Select
    Selection.ClearContents
    
    For i = 5 To 188
    Cells(i, 7).Select

ActiveCell.FormulaR1C1 = "=RC[-3]/R189C4"

Next i
                                                                  
Range("G5").Select

Application.ScreenUpdating = True

End Sub

.