textbox sayı formatı

[hikmet]

sn.hocalarım,
dosyamdaki userformda üç adet textbox var ve bunlara rakam giriyorum
fakat bunu sheet'e aktardığı zaman metin gibi algılıyor hesaplama hücresi ve hesaplamıyor. İlgili hücreleri "hücreleri biçimlendir" bölümünde sayı olarak belirttim ama yine de olmuyor.
Benim userformdaki textboxların birincisinde formatın "12,345.50" ikincisinde "1,23" üçüncüsünde ise "1,2345" olması gerekiyor
kodları ben şu şekilde düzenledim lütfen hatalarımı düzeltirmisiniz.

Private Sub txt_kg_change()
txt_kg.Value = Format(txt_kg, "##,###.##")
End Sub

Private Sub txt_bfıyat_Change()
txt_bfıyat.Value = Format(txt_bfıyat, "#.##")
End Sub

Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1, "####.##")
End Sub

 

[Levent Menteşoğlu]

Bunun en kısa yolu textboxtaki değeri 1 (bir) ile çarparak sayıya dönüştürmektir. Ã?rneğin;

Range("A1")=Textbox1*1

 

[hikmet]

hocam sizi bulmak iyi oldu
lütfen 2 dk bekleyin deneyip size bilgi vereyim

 

[hikmet]

leventm hocam, üçüncü textbox ta hücreyi giriyorum kayıt yaparken type mismatch mesajı veriyor neden yapabilir

 

[Levent Menteşoğlu]

Bu durumda textboxtaki veri metin anlamına gelir. Kodlarınızı yazarmısınız.

 

[hikmet]

size dosyayı göndersem hocam

 

[hikmet]

hocam dosya ekte, yardımlarınız için teşekkürler

 

[Levent Menteşoğlu]

Bir ile çarpma işlemini kaydet butonunun içindeki kodlarda uygulayın. Change olayındakini iptal edin.