YTL VE YKR'yi ayrı Texboxlara attırma

[leyhus]

Herkese Merhaba,

userform üzerinde textbox1'e girdiğim rakamı örneğin 500.56 sayısının 500 kısmını textbox2'ye, 0,56 kısmını Textbox2'ye nasıl attırabilirim. Yardımcı olursanız sevinirim. Şimdiden ALLAH razı olsun.

 

[Haluk]

TextBox1'e 500,51 olarak girin ...

Private Sub TextBox1_Change()
    If TextBox1 = Empty Then TextBox2 = Empty: TextBox3 = Empty
    On Error Resume Next
    YTL = Split(TextBox1, ",")
    TextBox2 = YTL(0)
    TextBox3 = "0," & YTL(1)
End Sub

Eğer TextBox1'e 500.51 olarak girecekseniz ....

Private Sub TextBox1_Change()
    If TextBox1 = Empty Then TextBox2 = Empty: TextBox3 = Empty
    On Error Resume Next
    YTL = Split(TextBox1, ".")
    TextBox2 = YTL(0)
    TextBox3 = "0," & YTL(1)
End Sub

 

[leyhus]

TeŞekkÜr Ederİm Sayin Haluk Bey