bir cümlede nümerik değerlerin başka bir sütuna ayrılması

[metinavci23]

merhaba arkadaşlar

ekte gönderdiğim dosyada A sütununda bulunan Sokak isimlerinin içindeki rakamları ayrı bir sütuna makro ile ayırmak istiyorum.
bilmiyorum mümkün mü ama sadece "/ " işaretinin önündeki rakamları eğer ayırabilirsem ,mükemmel olur.yani Mesela: Gazi Cd.No:25/2 nin içinden başka sütuna sadece 25 değeri aktarması

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub AYIR()
    [E2:E65536].ClearContents
    For X = 2 To [A65536].End(3).Row
    For Y = 1 To Len(Cells(X, 1))
    If Mid(Cells(X, 1), Y, 1) = "/" Then GoTo Devam
    If IsNumeric(Mid(Cells(X, 1), Y, 1)) Then Cells(X, 5) = Cells(X, 5) & Mid(Cells(X, 1), Y, 1)
    Next
Devam:
    Next
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[metinavci23]

cevap

teşekürler sayın Cost_Control.Mükemmel olmuş.teşekür ederim.iyi akşamlar dilerim