Soru Hücrenin içinden kodları ayıklama

[dengeceteris]

Herkese günaydın..

Ekte örnek olarak gönderdiğim dosyada B sütununda muhasebe kodları ve tarihler var. Ben bunların içinden tarih olanları boş geçsin ama B sütununda içinde kod olan kısımların sadece kod olanları A sütununa getirmek istiyorum. Kısa bir örnek yaptım. Ama bunu mümkünse vba ile yapmam lazım. Reel dosyalar bazen milyon satırı buluyor formüller çalışmıyor.

yardımcı olacak uzman arkadaşlara şimdiden tşk ederim.

 

[dengeceteris]

Arkadaşlar meşgul ettim. Metni sütunlara ayırarakta yapılabilecek basit bir işlem aklıma gelmemiş.

 

[ÖmerBey]

Merhaba,
Kod kullanmak isterseniz buyurunuz...

Sub kod()
Range("A:A").ClearContents
Range("A:A").NumberFormat = "@"
With Range(Range("A2"), Cells(Rows.Count, 2).End(3))
    dz = .Value
    For a = LBound(dz) To UBound(dz)
        v = Split(dz(a, 2), " ")
        If UBound(v) > 0 Then dz(a, 1) = CStr(v(0))
    Next
    .Value = dz
End With
End Sub