metin olarak kaydedilen sayıyı hatası

[MFY81]

Private Sub TextBox2_AfterUpdate()

On Error Resume Next

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

If Not IsNumeric(TextBox2.Value) Then
MsgBox "Hatalı Giriş." & vbLf & "Yalnızca sayısal değer girebilirsiniz..!! VE bu bölümü boş geçemezsiniz", vbCritical, "HATALI GİRİŞ !"
TextBox2 = ""
Exit Sub
End If

End Sub

sayfaya metin olarak saklanan sayı hatası veriyor.
bunu nasıl düzeltebilirim.

 

[ÖmerBey]

Textbox'taki veriyi hücreye aktarırken aşağıdaki şekilde aktarınız.

Range("A1") = 1 * TextBox2
Range("A1").NumberFormat = "#,##0.00"

 

[Necdet]

Merhaba,

Aşağıdaki gibi dener misiniz?

Private Sub CommandButton1_Click()
    Range("A1") = [COLOR="red"]CDbl[/COLOR](TextBox2.Value)
End Sub

Private Sub TextBox2_AfterUpdate()

    On Error Resume Next
    
    TextBox2 = Format(TextBox2, "#,##0.00")
    
    If Not IsNumeric([COLOR="Red"]CDbl[/COLOR](TextBox2.Value)) Then
        MsgBox "Hatalı Giriş." & vbLf & "Yalnızca sayısal değer girebilirsiniz..!! VE bu bölümü boş geçemezsiniz", vbCritical, "HATALI GİRİŞ !"
        TextBox2 = ""
        Exit Sub
    End If

End Sub

 

[MFY81]

Range("A1") = 1 * TextBox2
Range("A1").NumberFormat = "#,##0.00"


bu formül işimi görüyor ancak bunu A2 den itibaren boş hücreye yazdırarak devam etmesi gerekiyor. bu konuda yardımcı olabilirmisiniz.