birinci hücrede artadan sayı kadar ikinci hücreden düşürme

[batuhangoksu]

arkadaşlar şimdi herkesin maaşının olduğu liste var j hücresinde maaşları yazıyor k hücresinde mesaileri yazıyor şimdi yapmak istediğim

K hücresinde 1600 yazıyor Diğer Hücrede Yani L Hücresinde 300 TL Yazıyor Ben K Hücresini 1650 Yaptığımda L Hücresinden 50 düşerecek 250 Olacak Bunu Nasıl Yapabilirim.

 

[YUSUF44]

bir örnek dosya eklerseniz iyi olur. 1600 ve 300 yani toplam 1900 herkes için sabit bir değer midir? Yoksa duruma, kişiye, zamana göre değişiklik oluyor mu? Oluyorsa nasıl oluyor, mantığı nedir?

 

[batuhangoksu]

okadar karmaşık değil sadece basit şekilde birinci hücrede artan sayı atıyorum 50 ise ikinci hücreden 50 düşücek yani

1600 300 iken 1650 yazdığımda diğer hücrede 250 olarak hücrelerdeki rakamların hepsi farklı o yüzden birinci hücreyi değiştirince ikinci hücreden eksilsin istiyorum.

 

[Ömer]

Merhaba,

Çalışma sayfasının kod bölümüne kopyalayın.

Dim deg As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim a As Double
 
    If Intersect(Target, Range("K:K")) Is Nothing Then Exit Sub
 
    With Target
        If .Row < 2 Then Exit Sub
 
        If .Offset(0, 1) <> "" Then
            a = .Value - deg
            .Offset(0, 1) = .Offset(0, 1) - a
        End If
    End With
 
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    deg = Target.Value
End Sub

.

 

[YUSUF44]

Belirttiğiniz kadar basit de değil maalesef. Eğer Standart bir değer yoksa yani iki hücrenin toplamı belirli bir sayıya eşit olmuyorsa istediğiniz şekilde düzenlemek zor olacaktır. En azından ben nasıl yapılacağını bilmiyorum.

 

[batuhangoksu]

Merhaba,

Çalışma sayfasının kod bölümüne kopyalayın.

Dim deg As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim a As Double
 
    If Intersect(Target, Range("K:K")) Is Nothing Then Exit Sub
 
    With Target
        If .Row < 2 Then Exit Sub
 
        If .Offset(0, 1) <> "" Then
            a = .Value - deg
            .Offset(0, 1) = .Offset(0, 1) - a
        End If
    End With
 
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    deg = Target.Value
End Sub

.

çok teşekkür ederim bu kod işimi gördü