userformdan excel aktarırken hata

[gmm]

arkadaşlar userformda girdiğim veriyi excele yolladığımda metin olarak saklanan sayı ibaresi çıkıyor. Hücre biçimlendirdende çözemiyorum yardım lütfen kodlarda eksiklik olabilir mi

 

[Orion1]

Sayısal değerler için aşağıdaki gibi.

ActiveCell.Offset(0, 10).Value = CDbl(TextBox4.Value)

Tarihler için;

cdate()

 

[ulutanas]

aynı sorunu bende yaşıyorum sayın orion1 yukarıda yazdığınız kodu nereye yazacağız UserForm_Initialize bölümünemi yoksa her textbox un içerisinemi bu konuda yardımcı olursanız sevinirim. iyi çalışmalar.

 

[Orion1]

aynı sorunu bende yaşıyorum sayın orion1 yukarıda yazdığınız kodu nereye yazacağız UserForm_Initialize bölümünemi yoksa her textbox un içerisinemi bu konuda yardımcı olursanız sevinirim. iyi çalışmalar.

Nerde kullanacaksanız oraya yazmalısınız.

 

[ulutanas]

sayın orion ilginiz için çok teşekkürler ama ben sizin dediğiniz kodları bekleyemedim sizden ricam ekteki dosyamı kontrol edebilir misin. iyi çalışmalar.

 

[Orion1]

sayın orion ilginiz için çok teşekkürler ama ben sizin dediğiniz kodları bekleyemedim sizden ricam ekteki dosyamı kontrol edebilir misin. iyi çalışmalar.

dosyanız ektedir.

Private Sub CommandButton1_Click()
FED = Sheets("KAYIT").Range("A65536").End(xlUp).Row + 1
Sheets("KAYIT").Range("A" & FED).Value = CDate(TextBox1.Text)
Sheets("KAYIT").Cells(FED, "B").Value = CDbl(ComboBox1.Text)
Sheets("KAYIT").Cells(FED, "C").Value = CDbl(TextBox2.Text)
Sheets("KAYIT").Cells(FED, "D").Value = CDbl(TextBox3.Text)
Sheets("KAYIT").Cells(FED, "E").Value = CDbl(TextBox4.Text)
Sheets("KAYIT").Cells(FED, "F").Value = CDbl(TextBox5.Text)
Sheets("KAYIT").Cells(FED, "G").Value = CDbl(TextBox6.Text)
MsgBox "Kaydedildi", , "ben"
End Sub

 

[ulutanas]

sayın orion ilgi ve alakanızdan dolayı çok teşekkürler sorunum çözüldü sayenizde. iyi çalışmalar dilerim.