texbox'ta exit olayı

[airborne]

Private Sub TextBox24_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox24 = Round((TextBox5 * 0.4), 2)
End Sub

yukarıdaki kod ile textbox5 te bulunan 415.44 rakamının %40 ını buluyorum fakat

Private Sub TextBox25_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox25 = Round((TextBox5 * 0.7), 2)
End Sub

bu kodla textbox5'in %70'ini bir türlü hesaplattıramıyorum.

nedeni ne olabilir. bir türlü çözemedim

 

[Mahmut Bayram]

şunu bir denesene
[vb:1:eb9e8794e9]Private Sub TextBox25_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
If TextBox5 = Empty Then
: Exit Sub
Else
TextBox25.Text = WorksheetFunction.Round((TextBox5.Text * 0.7), 2)
End If
End Sub[/vb:1:eb9e8794e9]

 

[airborne]

sayın partner textbox25 in üzerine mouse ile tıklamadan hesaplamıyor

 

[Mahmut Bayram]

[vb:1:21f0b0b690]Private Sub TextBox25_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
On Error Resume Next
If TextBox5 = Empty Then
: Exit Sub
Else
TextBox25.Text = WorksheetFunction.Round((TextBox5.Text * 0.7), 2)
End If
End Sub[/vb:1:21f0b0b690]

 

[airborne]

sorun hala çözülmedi sorun maaş bilgileri userformunun textbox25 inde. dosyam ektedir

 

[veyselemre]

Kodların çalışmaması mümkün değil, textbox25 in exit olayı gerçekleşmiyor olabilir muhtemelen, örnek dosya eklerseniz daha kolay çözüm elde edersiniz.

 

[airborne]

veysel emre hocam dosya yukarıda ekledim

 

[Tarkan VURAL]

Private Sub TextBox25_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
On Error Resume Next
If TextBox5 = Empty Then
: Exit Sub
Else
TextBox25.Value = WorksheetFunction.Round((TextBox5.Value * 0.7), 2)
End If
End Sub

textbox25.text 'ler textbox25.value olursa değerleri hesaplar
text = metin'lerin hesap özelliği yoktur, value = değer 'lerin hesap özelliği vardır.

Saygılar;
Tarkan VURAL

 

[veyselemre]

Eki inceleyin, ayrıca formdaki gelir vergisi oranlarıda eski oranlar sanırım.