textboxta hesaplama

[uguristanbul]

yapmak istediğim su
textbox10(miktar) ile textbox11(birim fiyat) çarpacak textbox 12 ye yazacak
textbox12 krs da sadece 2 hane ilerlemeli
asagıdaki kodu textbox 10 uyguladıgımda hata mesajı alıyorum ve değişikleri hesaplatamıyorum
Private Sub TextBox11_Change()
TextBox12.Value = TextBox10 * TextBox11
End Sub
textbox 12 nin formatı
Private Sub UserForm_Initialize()
TextBox12 = Format(TextBox12.Value, "#,##0.00")
dir nereye hangi kodları yazmam lazımki textbox 10 11 deki değişikleri 12 ye sadece 2 haneli kurus olarak hesaplatayım
saygılar

 

[Ömer]

Merhaba,

Private Sub TextBox11_AfterUpdate()
    TextBox12.Text = TextBox10 * TextBox11
    TextBox12.Text = Format(TextBox12.Text, "#,##0.00")
End Sub

Bu şekilde olabilir..

.

 

[uguristanbul]

hocam ilginize tesekkur ederim
ancak bu seferde text 10 daki değişiklikte text12 değişmiyor
yani soyle olmalı:
text10 veya 11 deki herhangi bir değişiklik text 12 ye hemen yansımalı
saygılarımla

 

[Ömer]

Bu şekilde deneyiniz..

Private Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If IsNumeric(TextBox10.Value) = False Then TextBox10.Value = 0
    If IsNumeric(TextBox11.Value) = False Then TextBox11.Value = 0
    TextBox12 = Format(TextBox10.Value * TextBox11.Value, "#,##0.00")
End Sub
 
Private Sub TextBox11_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If IsNumeric(TextBox10.Value) = False Then TextBox10.Value = 0
    If IsNumeric(TextBox11.Value) = False Then TextBox11.Value = 0
    TextBox12 = Format(TextBox10.Value * TextBox11.Value, "#,##0.00")
End Sub

Not: Aynı konuyla ilgili birden fazla konu başlığı açmamanızı rica ederim.

.