, ü rakam ayıracı olarak görmüyor

[uguristanbul]

Private Sub TextBox21_Change()
If ComboBox6.Value = "TL" Then
TextBox35.Value = 0
TextBox35 = Format(TextBox35.Value, "#,##0.00")
End If
If ComboBox6.Value <> "TL" Then
TextBox35 = Val(TextBox21.Value) * Val(TextBox38.Value)
End If
End Sub
Private Sub TextBox21_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc(",")
Case Else
KeyAscii = 0: MsgBox "Sadece rakam girebilirsiniz.", vbExclamation, "İŞLEM HATASI !"
End Select
End Sub
ve
Private Sub TextBox38_Change()
If ComboBox6.Value = "TL" Then
TextBox35.Value = 0
End If
If ComboBox6.Value <> "TL" Then
TextBox35 = Val(TextBox21.Value) * Val(TextBox38.Value)
End If
End Sub
yukardaki kodla
textbox21 e rakam girilmeye zorlanıyor
ve textbox21 ile textbox36 carpıp sonucu textbox38 e yazıyor
ancak bu textboxlar döviz kuru ile ilgili olduğundan 0 dan sonra 4 hane daha gitmesi gerekir.ancak örneğin
textbox21 e 10,1234 ve textbox38 e de 10 değerleini girdiğimde
textbox38 e 100 yazıyor virğülden sonrasını hesaplamıyor
ne yapmam gerekir
saygılar

 

[Huseyinkis]

If ComboBox6.Value = "TL" Then
TextBox35.Value = 0
TextBox35 = Format(TextBox35.Value, "#,##0.00")
End If
If ComboBox6.Value <> "TL" Then
TextBox35 = Val(TextBox21.Value) * Val(TextBox38.Value)
End If
End Sub
Private Sub TextBox21_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
    Case Asc("0") To Asc("9")
    Case Asc(",")
    Case Else
    KeyAscii = 0: MsgBox "Sadece rakam girebilirsiniz.", vbExclamation, "İŞLEM HATASI !"
    End Select
End Sub
ve
Private Sub TextBox38_Change()
If ComboBox6.Value = "TL" Then
TextBox35.Value = 0
End If
If ComboBox6.Value <> "TL" Then


TextBox35 = Format((Val(TextBox21.Value) * Val(TextBox38.Value)),"#,##0.0000")



End If
End Sub

Ekteki gibi denermisiniz.

 

[uguristanbul]

olmadı hocam

ekte gonderdigim dosyanın cari sayfası c sutununa cift tıkladıgınızda form acılır

 

[uguristanbul]

hocam
onerdiginiz cozum sadece textbox 35 i, den sonra 4 hane ilerletiyor
ancak gene carpmada , den sonrasını hesaplamıyor
yukrdaki msg de dosyayı gonderdim
saygılar

 

[uguristanbul]

hocam
sunu gordum
Private Sub TextBox21_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc(",")
Case Else
KeyAscii = 0: MsgBox "Sadece rakam girebilirsiniz.", vbExclamation, "İŞLEM HATASI !"
End Select
End Sub
kodundaki
Case Asc(",")
kodunu
Case Asc(".")
olarak degiştirirsem hesaplama yapıyor
demekki ole bi kod yazmalıyımki
tum , lleri . ya cevirmeli