VBA Da TextBox Giriş Yapılınca Hesaplama

[oznyvz]

Başlıkta da yazmış olduğum gibi fatura giriş sayfası hazırlıyorum

Şimdi txtKdv, txtIndirim, txtTutar txtMiktar, txtBirimFiyati
Şimdi Birim fiyatını girdikten sonra miktarı da giriş yapar yapmaz txtTutar otomatik çarpsın
Sonra indirime de aynen giriş olunca otomatik işlem yapsın yani kısaca
normal de ben keydown Tab duşu veya Enter Tuşuna basılınca bu işlemi yap olayını yapıyorum fakat ben atıyorum fare kullandım acemi kullanıcı Tab veya Enter Kullanmayıp Fare ile bir sonra ki TextBox Basabilir o durumda işlem yapmıyor. Bana Bu konu da yol yordam akıl verebilir misiniz.

Bir de Şunu bulamadım F10 ile frmCariler.show filan Keydown işlem yaptırıyorum Fakat mesela anaform da iken veya herhangi bir yerde giriş yaparken ws F2 Tuşuna basarak kaydet yapabilir miyim ?

 

[Muzaffer Ali]

Merhaba.
Örnek dosya hazırlarsanız daha hızlı yanıt alırsınız.
Dosyanızı dosya.tc gibi bir siteye yükleyip paylaşabilirsiniz.

 

[oznyvz]

örnek dosya hazırlamak bayağı uzun sürecek benim istediğim aslında kısaca şudur bir textbox içine değer girdiğinde miktar giriş yapınca birimfiyatı miktarı herhangi birşeye basmadan direkt girişi yapar yapmaz hesaplaması işlemi diğer sorduğum ise F2 tuşunu Kaydet butonunu işlem yaptırmak normalde butonun keydown yazınca olur da bu işlemi her yerde yapması lazım yani buton tek seçili iken değil

 

[Korhan Ayhan]

Bir fonksiyon yazarak hesaplama yapabilirsiniz. Nesnelerin hangi olayında bu hesaplamayı yapacaksanız fonksiyonu tetikleyip kullanabilirsiniz.

textbox hesaplama yapmak site:www.excel.web.tr - Google'da Ara

userform+fonksiyon tuş kullanımı excel site:www.excel.web.tr - Google'da Ara

 

[ragnorak]

Private Sub FIYAT_AfterUpdate()
fx = Replace(FIYAT.text, ".", "")
FIYAT.Value = Format(Application.Evaluate(Replace(fx, ",", ".")), "#,##0.00")
End Sub

 

[bosislermuduru]

Text Change Özelliği İşinizi Görecektir
örneğin kullanıcı textboxa 1231212 yazarsa form kapanacaktır

not : burada kullanıcı her karakter girişi yaptığında sorgulama yapar



Private Sub TextBox1_Change()
If TextBox1.Text = "1231212" Then
Unload Me
End If
End Sub

 

[oznyvz]

tşk ederim arkadaşlar evet change özelliği işimi gördü giriş yaptığım gibi işlemi yaptırdım.
Peki Formun Herhangi bir yerinde F2 Tuşuna basarak Kayıt Ettirmeyi Aktif Etmek istesem mesela

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then Cancel = True
End Sub
bununla ESC tuşu basınca Kapanıyor bu tarz birşey Fakat Kayıt Yapmak istiyorum.

 

[bosislermuduru]

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyF2 Then
MsgBox "Galiba F2 Tuşuna Bastınız"
' ActiveWorkbook.Save
End If
End Sub