Hücredeki Seçime Göre Borç Ödeme

[Elantra]

Merhabalar,

Aşağıdaki konuda bilgili arkadaşlarımdan yardım rica edeceğim. Tablo ekte olup yapmak istediğimi aşağıda örnek olarak belirtmeye çalıştım.İlgilenen, okuyan, zaman harcayan herkese şimdiden çok teşekkür ederim.

Örnek;

Kredi ödeme tablosunda E sütunundan ÖDENDİ VEYA ÖDENMEDİ seçeneği seçildiğinde G sütununda bulunan taksit miktarı I sütunundaki toplam kredi miktarından düşsün istiyorum.

Ekli dosyayı görüntüle ÖRNEK.xlsx

http://dosya.co/xlj54wexyccz/ÖRNEK.xlsx.html

 

[akcayonline]

ben dosyanızı açamadım.

 

[Elantra]

Farklı bir indirme linki daha ekledim. Teşekkürler.

 

[akcayonline]

Sanırım bende bir problem var, indiremiyorum.

 

[Elantra]

Ben her iki linki de kontrol ettim çalışıyor ama dediğiniz gibi sanırım problem sizin bilgisayarda.

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırıp deneyiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E3:E100]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
If Target.Offset(0, 2) = "" Or Target.Offset(0, 4) = "" Or WorksheetFunction.IsNumber(Target.Offset(0, 2)) = False Or WorksheetFunction.IsNumber(Target.Offset(0, 4)) = False Then Exit Sub
    Target.Offset(0, 4) = Target.Offset(0, 4) - Target.Offset(0, 2)

End Sub

Yalnız bu kodun, yapmak istediğinize göre yetersiz olduğunu düşünüyorum. Örneğin Önce ödendi denilip sonra tutarlar girilirse ne olacak?