Soru Bir Sayıyı 2 Farklı Hücreden Düşmek

[ercu2010]

Herkeze iyi günler benim şöyle bir problemim var

a1 - 70,13
a2 - 42,08

b1 - 100 yazdıgım zaman a1 70,13 düşşün kalanı 29,87 de a2 den düşşün

işlemin sonucunda
a1 - 0
a2 - 12,21 şeklinde


Yardımlarınız için teşekkür ederim

 

[ÖmerFaruk]

.B1 100 olarak kalacak mı?

 

[ÖmerFaruk]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B1]) Is Nothing Then Exit Sub
    If [A1] + [A2] = 0 Then Exit Sub
    Kalan = [B1] - [A1]
    [A1] = [A1] - [B1]
    If [A1] <= 0 Then
        [A1] = 0
        [A2] = [A2] - Kalan
        If [A2] < 0 Then [A2] = 0
    End If
End Sub

 

[ercu2010]

.B1 100 olarak kalacak mı?

b1 Sabit sayılar değişkenlik gösteriyor örnegin b1 234 olabilir a1 ve a2 o olacak eksiye düşmemesi lazım

 

[ÖmerFaruk]

Verdiğim kodda zaten A1 ve A2 minimum 0 değerini alabiliyor

 

[ercu2010]

Verdiğim kodda zaten A1 ve A2 minimum 0 değerini alabiliyor

Hocam Çok teşekkür ederim Çok İşime Yaradı