Soru Texbox'a Hücrede ki Basamaklı Sayısı Alma

[Hsn55]

Merhabalar;
Ekli doayada Userform üzerinde buton ile TextBox1'e yazdığım sayıyı buton ile önce A1 hücresine alıyorum. Daha sonra ise A16 hücresinde ki sayıyı da ayın buton ile Textbox2'ye alıyorum. TextBox1'e 12,15 -123,57 şeklinde yazdığım zaman sıkıntı yok. Ancak virgülden sonra 3 ve daha fazlası bir rakam girdiğim zaman Textbox2'ye A16 hücresinde yazılan biçim de almıyor. Ben Texbox1'e hangi şekilde girersem Textbox2 a16 hücresinde hangi şekilde görürse o şekilde TextBox2 ye alabilir mi?
https://dosyam.org/Zw4/örnek_(2).xlsm

 

[Korhan Ayhan]

Aşağıdaki gibi denedim ve olumlu sonuç aldım. Sayfa adını kendinize göre düzenlersiniz.

Private Sub CommandButton1_Click()
    Dim S1 As Worksheet
    Set S1 = Sheets("Sayfa1")
    S1.Range("A1") = Replace(TextBox1.Value, ",", ".")
    TextBox2.Text = S1.Range("A16").Value
    Set S1 = Nothing
End Sub

 

[Hsn55]

Çok teşekkür ederim. Ellerinize sağlık.