otomatik hesaplasın ??

[mrt]

Selamlar,

E sutunu dolu ise G sutununa E>F ise e-f*-1, H sutununa da F>E ise F-E

hesaplamasının sonucunu yazmasını istiyorum.

Ekli makro formul olarak yazmakta ve uzun çalışıyor.

değer olarak nasıl hesaplatıp yazdırabilirm.



Private Sub Worksheet_Change(ByVal Target As Range)

For a = 2 To [E65536].End(3).Row

If Cells(a, "e") > 0 Then Cells(a, "G") = "=IF(RC[-2]>RC[-1],(RC[-2]-RC[-1])*(-1),"""")"
If Cells(a, "e") > 0 Then Cells(a, "H") = "=IF(RC[-2]>RC[-3],(RC[-2]-RC[-3]),"""")"
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    [G2:H65536] = ""
    For X = 2 To [E65536].End(3).Row
    If Cells(X, "E") <> "" And Cells(X, "E") > Cells(X, "F") Then
    Cells(X, "G") = (Cells(X, "E") - Cells(X, "F")) * -1
    End If
    If Cells(X, "E") <> "" And Cells(X, "F") > Cells(X, "E") Then
    Cells(X, "H") = Cells(X, "F") - Cells(X, "E")
    End If
    Next
    Application.EnableEvents = True
End Sub

 

[Ali]

Sn COST_CONTROL ufak bir düzeltme

işlem önceliğinde çarpma, çıkarmadan önce olduğu için

Cells(X, "G") = (Cells(X, "E") - Cells(X, "F")) * -1 şeklinde düzeltirsek

eksileride görebiliriz.Saygılar.

 

[Korhan Ayhan]

Selamlar,

Sn. Ali düzeltmeniz için teşekkür ederim.

 

[mrt]

Sağolun.

Teşekkür ederim.