module uygulama

[CILEKESH]

Merhaba,

Modulun birine şu kodu yapıştıracağım,

Sub yenile()

TextBox19 = Format(CDbl(TextBox6) * CDbl(TextBox15), "#,##0.00")
TextBox18 = Format(CDbl(TextBox7) * CDbl(TextBox14), "#,##0.00")
TextBox17 = Format(CDbl(TextBox8) * CDbl(TextBox13), "#,##0.00")
TextBox16 = Format(CDbl(TextBox9) * CDbl(TextBox12), "#,##0.00")
TextBox10 = Format(CDbl(TextBox19) + CDbl(TextBox18) + CDbl(TextBox17) + CDbl(TextBox16), "#,##0.00")
TextBox11 = Format(CDbl(TextBox5) - CDbl(TextBox10), "#,##0.00")

End Sub

Sonra userform üzerindeki her textbox'a rakam girerken tuşlara bastıkça modulun çalışmasını istiyorum,

Bunu Textbox'ın hangi olayına yazmalıyım?
Change(), KeyPress, KeyDown

bunlara denedim olmadı,

daha önce her textboxın kendi change olayına yazmıştım çalışıyor idi ancak, kodları sadeleştirmek için modul ile uygulamak istiyorum, Bana yardım edebilir misiniz?

Teşekkür ederim.

 

[Orion1]

2 tane örnek yaptım.
Siz kendinize göre ayarlayın.Deneyin.
Prosedürü çağırıken call Module1.Yenile yazın.

Userform1.TextBox19 = Format(CDbl(Userform1.TextBox6) * CDbl(Userform1.TextBox15), "#,##0.00")
Userform1.TextBox18 = Format(CDbl(Userform1.TextBox7) * CDbl(Userform1.TextBox14), "#,##0.00")

 

[CILEKESH]

Hocam teşekkür ederim, Yapabildim.