Textbox "Metin olarak saklanan sayı" hatası

[cocoa35]

Merhaba Arkadaşlar. Yapmış olduğum formun üstünde bulunan textbox'a virgül'lü örn.(2,65) rakam girerek excel sayfasındaki hücreye bu rakamı yazdırmak istiyorum. Fakat rakam excel sayfasına aynen yazılsa'da hücrede "Metin olarak saklanan sayı" diye ikaz'lı olarak yazılıyor.buda benim hesaplarımı etkiliyor. bunu nasıl düzeltebilirim textbox'dan yazdıklarım hücreye sayı olarak nasıl gönderebilirim.şimdiden teşekkürler.
Benim userform'daki kod'lar şöyle;

Private Sub CommandButton1_Click()

Sayfa76.Range("R45").Value = UserForm89.TextBox1.Text
Sayfa76.Range("R40").Value = UserForm89.TextBox2.Text
Sayfa76.Range("R41").Value = UserForm89.TextBox3.Text
Sayfa76.Range("R48").Value = UserForm89.TextBox4.Text

If UserForm89.CheckBox1.Value = True Then
UserForm89.CheckBox2.Value = flase
Sayfa76.Range("R38") = 2
End If
If UserForm89.CheckBox2.Value = True Then
UserForm89.CheckBox1.Value = flase
Sayfa76.Range("R38") = 1
End If
Unload Me
UserForm79.Show
End Sub

 

[Ömer BARAN]

Merhaba.
Kodlarınızda sayısal değerler yazacağınız Textboxlar için ilgili kod satırlarını aşağıdaki gibi değiştirince istenilenin gerçekleşmesi gerekir..

Sayfa76.Range("R45").Value = Val(Replace(TextBox1.Value, ",", "."))

 

[GÖRKEMEREL]

Sheets("22Data").Cells(seçim, 12) = Val(Replace(TextBox10.Value, ".", ""))

bu kod ilgili hücrenin içine sayı değeri gönderiyor ama virgülden sonrasını ,00 olarak atıyor
örneğin textbox'a 25.543,98 yazıp gönderiyorum ilgili hücreye 25.543,00 olarak gönderiyor çok araştırdım ama çözemedim yardımcı olursanız çok sevinirim şimdiden teşekkürler.

 

[ÖmerFaruk]

Denermsisin
Sheets("22Data").Cells(seçim, 12) = TextBox10 *1