Formül girmeden hücreden çıkarma işlemi..

[tirEdsOuL]

Merhaba; formülle olacağına inanmadığım için konuyu buraya açtım.. Ek'te ki dosya da Müşterinin alacaklı parası ve o paraya istinaden ödenecek masraflar var, benim elle girdiğim müşteri alacak tutarının ödeme yapıldıkça, yapılan ödeme kadar düşmesini istiyorum.. bana pek mümkün gibi gelmedi ama yine de bir sormak istedim.. Dosya da detaylı açıklama mevcuttur..

 

[mancubus]

B5'e =C5+D5+E5+......
yazıp aşağı doğru kopyaladığımızda bu olur.

 

[tirEdsOuL]

Ben B5 hücresine masrafların toplamını versin demiyorum, B5 hücresine elle girdiğim değerden, hangi masrafı silerse onu düşsün diyorum..

 

[Korhan Ayhan]

Merhaba,

Bu işlemi makro ile yapabilirsiniz. Aşağıdaki kodu sayfanızın kod bölümüne uygulayınız.

C-E sütunlarındaki hücrelerdeki değerleri sıfırlayıp sonucu gözlemleyin.

Option Explicit
Dim Veri As Variant
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C5:E" & Rows.Count)) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    On Error GoTo Son
    Application.EnableEvents = False
    If Target = 0 Then
        Cells(Target.Row, "B") = Cells(Target.Row, "B") - Veri
    End If
 
Son: Application.EnableEvents = True
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Veri = Target
End Sub

 

[tirEdsOuL]

sonuç mükemmel hocam ellerinize emeğinize sağlık..