formülü makroya çevirme

[sirkülasyon]

=EĞER(B9="";0;EĞER(F9>0;EĞER(F9<=10;S9+(F9*R9*Q9*M9);S9+(10*R9*Q9*M9)+((F9-10)*R9*Q9*M9*0,5))))

yukarıda yer alan kodu J sütunundaki forma bağlı olarak
Cells(.Row, "T") = "buraya makro olarak ekleme istiyorum." Kodlar sütun olarak alınacak. F9 değilde F şeklinde olacak. Makro kısmında yeşil olarak belirlenmiştir.

Yardımcı olabilir misiniz?

 

[YUSUF44]

Bu makro B sütununa veri girildiğinde mi çalışacak yoksa B dışındaki sütunlara veri girildiğinde mi çalışacak?

 

[YUSUF44]

Aşağıdaki şekilde oluyor mu (kodlarınızda uygun yere ekleyiniz):

a = Target.Row
If Cells(a, "B") = "" Then
    Cells(a, "T") = 0
Else
If Cells(a, "F") > 0 Then
    If Cells(a, "F") <= 10 Then
        Cells(a, "T") = Cells(a, "S") + (10 * Cells(a, "R") * Cells(a, "Q") * Cells(a, "R")) + ((Cells(a, "F") - 10) * Cells(a, "R") * Cells(a, "Q") * Cells(a, "R") * 0.5)
    End If
End If
End If