fiyat tablosuna otomatik komut

[MANAGER]

yardımlarınız için tşk ederim

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki formülleri kullanabilirsiniz.

L10 hücresine;

=M10-M10*$L$9

M10 hücresine;

=N10/(1+$M$9)

Eğer çözümü makro ile isterseniz aşağıdaki kodu sayfanın kod bölümüne uygulayınız. "N" sütununda sayısal değerler girdikçe hesaplamalar otomatik yapılır.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [N10:N65536]) Is Nothing Then Exit Sub
    If Target <> Empty And IsNumeric(Target) Then
    Target.Offset(0, -1) = Target / (1 + [M9])
    Target.Offset(0, -2) = Target.Offset(0, -1) - Target.Offset(0, -1) * [L9]
    End If
End Sub