Textbox a girilen sayıyı tabloya aktarma

[scorpix]

herkeze selamlar
ben aidat takibi yapılması için basit bi tablo hazırladım. bu tabloyu UserForm ile desteklemek istiorum. herşeyi hazırladım herşey istediğim gibi çalışıo ancak alınan ödeme tutarı girdiğim textboxtaki rakam excele aktarıldığında sayıyı metin olrak görüyor. Hata nerede olabilir bulamadım yardımınızı bekliorum.
teşekkürler

Örnek Dosya ektedir.

 

[BG]

Sayın scorpix

herkeze selamlar
ben aidat takibi yapılması için basit bi tablo hazırladım. bu tabloyu UserForm ile desteklemek istiorum. herşeyi hazırladım herşey istediğim gibi çalışıo ancak alınan ödeme tutarı girdiğim textboxtaki rakam excele aktarıldığında sayıyı metin olrak görüyor. Hata nerede olabilir bulamadım yardımınızı bekliorum.
teşekkürler

Örnek Dosya ektedir.

aşağıdaki komut satırını

TextBox3 = Format(TextBox3, "#,##0.00")

bu şekilde değiştiriniz

TextBox3 = Val(Format(TextBox3, "#,##0.00"))

 

[scorpix]

Sayın Gökhan Polat
verdiğiniz kodu ilgili yere yazdım şuan rakam olrak görüyor ama şimdide küsüratları tamamlıo 125,30 yazdığımda 125,00 olarak geçio tabloya

 

[scorpix]

Sorunu Çözdüm Aynı sorunu yaşayan arkadaşlar için nasıl yaptığımı aktarıorum.

TextBox3 = Format(TextBox3.Value, "#,##0.00")

bu satır olduğu gibi kalacak alttarafta textbox lardaki veriyi excele aktarmakla alakalı kısımda

s1.Cells(say, "e") = TextBox3.Value

yazan kısım aşağıdaki ile değiştirilmeli

s1.Cells(say, "e") = CDbl(TextBox3)

sn. Gökhan Polat ilgilendiğiniz için tekrardan teşekkür ederim..

 

[Ridan]

Dim sat, son, deg, s As Integer
'mükerrer kontrol
For sat = 2 To Cells(65536, "b").End(xlUp).Row
If Cells(sat, "b") = TextBox1 Then
MsgBox "Bu isimden daha önce girilmiş", vbInformation
Exit Sub: End If: Next

'*****verigir
If TextBox1 = "" Then MsgBox "Önce isim girmelisiniz", vbInformation: Exit Sub
son = Cells(65536, "b").End(xlUp).Row + 1
Cells(son, "b").Value = CDbl(TextBox1.Value)
Cells(son, "c").Value = CDbl(TextBox2.Value)
.................

Cells(son, "c").Value = CDbl(TextBox2.Value) satırı boş bırakıp kaydetmek istediğim zaman hata veriyor. bunu nasıl düzeltebiliriz.

Run-time error '13':
type mismatch

 

[Ridan]

excel 2007 den kaynaklanan bir durum mudur acaba. alt sürümlerde böyle bi problem yok mu.