• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

textbox çıkarma işlemi

netvolxxx

Altın Üye
Katılım
29 Ağustos 2023
Mesajlar
225
Excel Vers. ve Dili
2013 Türkçe
merhaba forumda baktım araştırdım tam da yapamadım şöyle bir olayım var yardımlarınızı bekliyorum.

sayfa1 de A2 hücresinde 1.500,00 Tl
A3 hücresinde 1.500,00 TL

userform açıldığında

textbox1 alanında 1.500,00 tl değeri geliyor (a2 den çekiyor)
textbox3 alanında 1.500,00 tl değeri geliyor (a3 den çekiyor)

textbox2 ye 1.200,00 TL yazdığımda textbox3 deki değer otomatik değişecek 300,00 tl yazcak
 
Kod:
Private Sub TextBox2_Change()
    TextBox3 = TextBox1.Value - TextBox2.Value
End Sub
 
Kod:
Private Sub TextBox2_Change()
    TextBox3 = TextBox1.Value - TextBox2.Value
End Sub
ustad selam kodlar textbox alanında para birimi olarak yazdırınca çalışmıyor sadece rakam olarak sayı olarak textboxlara veri geldiğinde sorun yok
TextBox1 = Format(TextBox1, "#,###.00 TL")
TextBox3 = Format(TextBox1, "#,###.00 TL")
 
Kod:
Private Sub TextBox2_Change()
    TextBox3 = Val(TextBox1.Value) - Val(TextBox2.Value)
End Sub
Böyle bir deneyin.
 
Belki bu işinizi görür.
Kod:
Private Sub TextBox2_Change()
   TextBox2 = Format(TextBox2.Value, "currency")
   TextBox3 = TextBox1.Value - TextBox2.Value
End Sub

Private Sub TextBox2_AfterUpdate()
        TextBox2 = Format(TextBox2.Value, "currency")
End Sub


Private Sub TextBox1_AfterUpdate()
        TextBox1 = Format(TextBox1.Value, "currency")
End Sub
Private Sub TextBox3_Change()
       TextBox3 = Format(TextBox3.Value, "currency")
End Sub
 
Geri
Üst