hücre içindeki farklı değerleri seçme

[korki]

arkadaşlar merhaba excelde bir hücre içersinde hem metin hem rakam olarak değerler var aynı hücre içerisinde ör olarak Türkiye İstanbul 00008635 ben burdaki sadece rakam olan değerin gelmesini istiyorum başındaki sıfırlarda silinerek bunu excelde nasıl yapabilirim 2000 kayıt oldupu için bunları tek tek silmek baya zaman alıyor şimdiden teşekkür ederim...

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyebilirsiniz. Değerlerin A sütununda olduğu varsayılarak yazılmıştır kodlar.

Sub RakamAl()
Dim i As Long
Dim j As Integer
Dim Rakam As String
For i = 1 To [A65536].End(3).Row
    Rakam = ""
    For j = 1 To Len(Cells(i, "A"))
        If IsNumeric(Mid(Cells(i, "A"), j, 1)) = True Then Rakam = Rakam & Mid(Cells(i, "A"), j, 1)
    Next j
    Cells(i, "A") = Rakam + 0
Next i
End Sub

 

[korki]

merhaba hocam şu kodu kullansam fakat başındaki sıfırları nasıl sildiririm burda sayının
Function RakamAl(Hücre)
Dim Karakter, i As Integer
Dim Sonuç
For i = 1 To Len(Hücre)
Karakter = Mid(Hücre, i, 1)
If IsNumeric(Karakter) = True Then
Sonuç = Sonuç & Karakter
End If
Next i
RakamAl = Sonuç
End Function

 

[Necdet]

Merhaba,

Function RakamAl(Hücre)
Dim Karakter, i As Integer
Dim Sonuç
For i = 1 To Len(Hücre)
Karakter = Mid(Hücre, i, 1)
If IsNumeric(Karakter) = True Then
Sonuç = Sonuç & Karakter
End If
Next i
RakamAl = Sonuç [B][COLOR=red]+ 0
[/COLOR][/B]End Function