textboxlarda çıkarma işleminde sorun

[hasan.doru]

merhaba arkadaşlar
az önce de aynı mesajımı makro başlığı altında dosya ekleyerek (a.zip)göndermiştim.ama şimdi göremedim.
sayın haluk bey özür dilerim.
kendimce kısaltma yapmaya çalışmıştım.aynı yerde cevap yazayım dedim ama "Üzgünüz, sadece moderatorler bu forumdaki mesajlara cevap verebilir" diye bir uyarı geldi.o yüzden yeni bir sayfa açtım.
ekli dosyada textbox2,textbox3,textbox4 teki rakamları toplayıp textbox1 den çıkarıyorum.tamsayılarda sorun yok ancak,ondalıklı sayılarda sorun var .ilgilenen arkadaşlara teşekkür ederim

 

[Haluk]

Sn. hasan.doru,

Daha önceki aynı mesajınıza, aşağıdaki not ile cevap vermiştim.

Not: Lütfen mesajınızı imla ve yazım kurallarına uygun olarak düzelttikten sonra, foruma tekrar yazınız.

Bu notta anlaşılmayan bir şey var mı ?

 

[hasan.doru]

merhaba sayın haluk bey
size ve forumdaki tüm arkadaşlara sonsuz saygı duyuyorum.lütfen kusuruma bakmayın. nerede yazımhatası yaptım bilemiyorum.tekrar özür dilerim.saygılar

 

[Haluk]

Sn.hasan.doru,

Biz de sizin iyi niyetinize ve samimiyetinize inanıyoruz. Bu konu şahsınıza karşı yapılmış bir hareket değildir.

Yazım hatası ile kastettiğim;

- Paragraf ve cümlelere başlarken büyük harf ile başlanması,

- Cümleler arasında gerekli yerlere virgül, noktalı virgül veya bağlaçlar konularak akıcılık sağlanması,

- Cümlelerin sonuna nokta işareti konulması,

- Diğer imla ve yazım kurallarına özen gösterilmesi.

 

[hasan.doru]

Merhaba Haluk Bey
Tereddütüme cevap verdiğiniz için çok teşekkür ederim.Daha dikkatli olacağım,uyarınız için sağolun.

 

[Haluk]

Hasan bey, ben de size teşekkür ederim.

 

[hasan.doru]

Merhaba Arkadaşlar
Sorunumu şöyle çözdüm, daha kısa bir kod varsa, önerinizi bekliyorum.

Private Sub TextBox1_Change()
a = TextBox2.Value
b = TextBox3.Value
c = TextBox4.Value
If TextBox2 = "" Then a = 0
If TextBox3 = "" Then b = 0
If TextBox4 = "" Then c = 0
TextBox5 = (a * 1 + b * 1 + c * 1) - Val(TextBox1)
End Sub

Saygılar

 

[Levent Menteşoğlu]

Farklı bir çözüm olarak class module ile hazırladığım ekteki örneği inceleyin.

 

[hasan.doru]

Merhaba Sayın Leventm
İlginiz için teşekkür ederim.1.alınan tutardan sonra,2.alınan tutarı girince, 1.alınan tutar devreden çıkıyor, Sadece enson yazılan tutar yekünden çıkarılıyor. Ben üç textboxa yazılan değerin toplanıp yekünden çıkarılmasını istiyorum.saygılar

 

[Ongun]

Sayın hasan.doru,

Ekli örneği denermisiniz. Kolay gelsin

 

[hasan.doru]

Merhaba Sayın Ongun
Tam istediğim gibi olmuş.İlginize teşekkürler.Saygılar

 

[Levent Menteşoğlu]

Gerçi sorunuz çözülmüş ama bende üstteki örnek dosyamdaki hatayı düzelterek ekli dosyayı yeniledim. Tekrar inceleyebilirsiniz.