Hücreye girilen verinin sayısal veriye dönüştürülmesi

[u.L.a.s]

Merhabalar


Elimde aşağıdaki gibi bir kod mevcut
Bu kod ile şunu sağlamış oluyorum. Örneğin AT2 hücresine "(212) 215 65 87 t"
gibi bir veri girmişsem numeric değerleri hücreye yansıtıyor yani bu şekilde girilen veri "2122156587" oluyor.

Fakat AT sütununda örneğin bir yerden satır satır kopyaladığım veriler olsun
AT2 den itibaren AT21 e kadar bu verileri copy paste ile yapıştırmış olayım
Bu numeric düzeltmeyi sağlamıyor aksine vba hatası veriyor bana.
Acaba bu problemi nasıl aşabilirim bilgi ve yardımlarınızı rica ederim

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [AT:AT]) Is Nothing Then Exit Sub
If Target = "" Or IsNumeric(Target) = True Then Exit Sub
rakam = Target
For k =  To Len(Target.Value)
If IsNumeric(Mid(rakam, k, )) = False Then rakam = Replace(rakam, Mid(rakam, k, 1), "")
Next: Target = rakam & ""
End Sub

 

[Muzaffer Ali]

Aşağıdaki kodu kullanın.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Integer
    For i = 1 To Target.Count
        If Intersect(Target(i), [AT:AT]) Is Nothing Then Exit Sub
        If Target(i) = "" Or IsNumeric(Target(i)) = True Then Exit Sub
        rakam = Target(i)
        For k = 1 To Len(Target(i).Value)
            If IsNumeric(Mid(rakam, k, 1)) = False Then rakam = Replace(rakam, Mid(rakam, k, 1), "")
        Next
        Target(i) = rakam & ""
    Next
End Sub

 

[u.L.a.s]

çok teşekkürler üstadım emeğine bilgine sağlık