textbox çıkarma işlemi

[netvolxxx]

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

 

[hamitcan]

Private Sub TextBox2_Change()
    TextBox3 = TextBox1.Value - TextBox2.Value
End Sub

 

[netvolxxx]

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")

 

[Tasarım]

Private Sub TextBox2_Change()
    TextBox3 = Val(TextBox1.Value) - Val(TextBox2.Value)
End Sub

Böyle bir deneyin.

 

[hamitcan]

Belki bu işinizi görür.

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