textboxta eğerli fonksiyon

[aydın3838]

selamlar
userformdaki textbox1 uzunluk textbox2 yede adet yazıyorum
textbox 3 te en yazılıyor en 17 den büyükse 25 tl ile çarpılacak
en 17 den küçükse 12.5 tl ile çarpılacak

yukarıda anlatılanları alttaki fornmüklle yapapiliyorum

EĞER(A13<17;D13*B10;D13*C10)

fakat ben bu olayı textboxta yapmam gerekiyor

yardım edecek arkadaşlara şimdiden teşekkürler

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    On Error Resume Next
    TextBox5 = IIf(TextBox3 >= 17, TextBox4 * 25, TextBox4 * 12.5)
    TextBox5 = Replace(TextBox5, ".", ",")
End Sub

 

[aydın3838]

sayın korhan bey ilginize teşekkürler

biraz geciktim özür dilerim

korhan bey bu text boxtlar da üzerine tıklamadan entere basmadan textboxtan çıkarken

olayına değilde işlem bittiğinde verileri yaza olabilirmi

şöyle formül text5 te yazılı işlemlerse 1,2,3,4 textboxlarda bu 4 texte veriyi girdiğimde

text 5 işlem sonucunu verse olabilirmi

teşekkürler

 

[Korhan Ayhan]

Selamlar,

Userformunuzun kod bölümüne aşağıdaki kodları uygulayıp denermisiniz.

Option Explicit
 
Private Sub TextBox1_Change()
    Call HESAPLA
End Sub
 
Private Sub TextBox2_Change()
    Call HESAPLA
End Sub
 
Private Sub TextBox3_Change()
    Call HESAPLA
End Sub
 
Private Sub TextBox4_Change()
    Call HESAPLA
End Sub
 
Sub HESAPLA()
    On Error Resume Next
    TextBox4 = TextBox1 * TextBox2
    TextBox4 = Replace(TextBox4, ".", ",")
    TextBox5 = IIf(TextBox3 >= 17, TextBox4 * 25, TextBox4 * 12.5)
    TextBox5 = Replace(TextBox5, ".", ",")
End Sub

 

[aydın3838]

sayın korhan bey çok teşekkür ederim sizi yordum kusura bakmayın

mükemmel çalışıyor