YTL VE YKR'yi ayrı Texboxlara attırma

Katılım
31 Ocak 2006
Mesajlar
61
Excel Vers. ve Dili
excell 2003
türkçe
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

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
TextBox1'e 500,51 olarak girin ...

Kod:
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 ....


Kod:
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
 
Son düzenleme:
Katılım
31 Ocak 2006
Mesajlar
61
Excel Vers. ve Dili
excell 2003
türkçe
TeŞekkÜr Ederİm Sayin Haluk Bey
 
Üst