metin olarak saklanan sayı.. uyarısı

[mavidus]

arkadaşlar a48 hücresine textbox tan veri girişi yapıyorum ama veri hücreye girdiğinde devamlı "metin olarak saklanan sayı" uyarısı veriyor.
textbox için aşağıdaki kodlar yazılı acaba kodlarda hatamı varda herzaman textbox içeriğini metin olarak görüyor.

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3 = Format(TextBox3, "##,##.00")
End Sub

Private Sub TextBox3_Change()
If TextBox3 = "" Then Exit Sub
If IsNumeric(TextBox3.Value) = False Then
MsgBox "LÜTFEN SADECE 0-9 ARASINDA SAYISAL DEÐER GİRİNİZ"
TextBox3 = ""
TextBox3.SetFocus
End If
End Sub

 

[mavidus]

yardım edebilecek kimse yok mu acaba...?

 

[Levent Menteşoğlu]

A48 hücresine veriyi örneğin; [a48]=texbox1*1 şeklinde yazarak kaydedin. Textboxtan direk aktarılan veri metin olarak algılanacaktır. Ama 1 ile çarparak sayıya çevirirsiniz. Bu işin en pratik çözümüdür.

 

[mavidus]

syn leventm
Private Sub CommandButton20_Click()
Sheets("ocak (06)").Select
Range("A48").Value = CLng(CDate(TextBox1.Text))
Range("b48").Value = TextBox4.Text
Range("c48").Value = TextBox2.Text
Range("d48").Value = TextBox3.Text
Range("e48").Value = TextBox5.Text
[d48] = texbox3 * 1
end sub
yazdım ama sonuç alamadım nerde yanlış yapmışım acaba

 

[Levent Menteşoğlu]

[d48] = texbox3 * 1

Yukarıdaki ifadeyi silin. Aşağıdaki satırda 1 ile çarpmayı ilave edin.

Range("d48").Value = TextBox3.Text *1