Textbox sayı formatı

[haso_excel]

Merhaba arkadaşlar,
Aşağıdaki kodlarla bir userformdan A ve B kolonuna beri atmaya çalışıyorum. (A kolonu sayı, b kolonuda tarih) fakat A kolonunana giden textbox1 deki sayı hücreye oturduktan sonra sayı olmuyor. Nasıl çözebilirim yardımcı olur musunuz lütfen?

Private Sub CommandButton1_Click()
Cells([A65536].End(3).Row, "A").Select
ActiveCell.Offset(1, 0).Value = TextBox1.Text
ActiveCell.Offset(1, 1).Value = TextBox2.Text
Cells([A65536].End(3).Row + 1, "A").Select
TextBox1.Value = " "
TextBox2.Value = " "
TextBox1.SetFocus
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(TextBox1, "0.00")
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.Text = FormatDateTime(TextBox2, vbShortDate)
End Sub

 

[haso_excel]

Sub DUZELT()
For a = 2 To WorksheetFunction.CountA(Range("A:A")) + 1
If Cells(a, 1).Value > 0 Then
Cells(a, 1).Value = CDbl(Cells(a, 1))
End If
Next a
Columns("A:A").Style = "Comma"
End Sub

Private Sub CommandButton1_Click()
KAYIT_Click
DUZELT
End Sub

yukarıdaki kodlarla çözdüm belki daha kolay bir yolu vardır. Eğer bilen varsa paylaşırsa sevinirim.

 

[fedeal]

Private Sub CommandButton1_Click()
Cells([A65536].End(3).Row, "A").Select
ActiveCell.Offset(1, 0).Value = cdbl(TextBox1.Text)
ActiveCell.Offset(1, 1).Value = datevalue(TextBox2.Text)

bu işinizi görür umarım