UserForm TextBox çıkarma işlemi

[Greenblacksea53]

Merhaba, konuya baktım ama bulamadım varsa da özür dilerim, eminim çok basit bir şey ama deyim yerindeyse beynim durdu.

Şimdi Userformda 3 tane Textbox olduğu düşünün
1. Textbox'a 18.252,50 yazdığımı varsayın
2. Textbox 'a 10.000,00 yazdığımı varsayın
3. Textbox otomatik 8.252,50 yazdırmam gerekiyor para formatında
Teşekkürler.

 

[ÖmerFaruk]

Bunu denediniz mi?
TextBox3 = Format(TextBox1 - TextBox2, "#,##0.00 TL")

 

[Greenblacksea53]

Bunu denediniz mi?
TextBox3 = Format(TextBox1 - TextBox2, "#,##0.00 TL")

Bunu denedim fakat 3. Textbox otomatik dolmuyor.

Textbox Exit kısmında TextBox1 .Value = FormatCurrency(TextBox1 .Value, 2)
yazdım para formatı çıksın diye

 

[Greenblacksea53]

Bunu denediniz mi?
TextBox3 = Format(TextBox1 - TextBox2, "#,##0.00 TL")

Hocam, otomatik çıkmıyor ama textbox3'a tıklayınca çıktı. Tıklamadan çıkarmanın yoluna bakacam artık

 

[ÖmerFaruk]

Bu satırı mesela aşağıdaki gibi ayrı bir yordama yazın.

Sub Textbox3hesapla()
   If TextBox1<>"" And TexBox2<>"" Then
      TextBox3 = Format(TextBox1 - TextBox2, "#,##0.00 TL")
   End If
End Sub

TextBox1 ve TextBox2 her iksisininde Exit olayında bu yordamı Call Me.Textbox3hesapla ile çağırın.

 

[Greenblacksea53]

Bu satırı mesela aşağıdaki gibi ayrı bir yordama yazın.

Sub Textbox3hesapla()
   If TextBox1<>"" And TexBox2<>"" Then
      TextBox3 = Format(TextBox1 - TextBox2, "#,##0.00 TL")
   End If
End Sub

TextBox1 ve TextBox2 her iksisininde Exit olayında bu yordamı Call Me.Textbox3hesapla ile çağırın.

Tsk ederim hocam