Hücre içindeki metnin içinden yılları çekme

[shallala]

Merhaba,
Çok karmaşık bir excel dokümanım var. Örnek olarak bir kısmını eke yükledim.

Verilerin içinde metinle karışık yıllar var, yapmak istediğim sadece yılları ayrıştırmak.
Veri sayısı çok fazla, o yüzden elle yapmak imkansız. Bir makro buldum, ancak o da sadece sayıları alıyor, yılları tanımıyor. Yılları tanıması için ne yapılabilir?
Teşekkürler.

 

[uzmanamele]

Merhaba

Bu kod işinizi görür mü?

Sub Metinden_Sayi_Al()
For x = 1 To [a65536].End(3).Row
mtn = Replace(Cells(x, "a"), " ", ",")
    a = Split(mtn, ",")
    For i = 1 To UBound(a)
    If IsNumeric(a(i)) Then
        say = say & ";" & a(i)
        End If
    Next
    Cells(x, 2) = say
    say = Empty
Next
End Sub

 

[shallala]

Vallahi çalıştı hocam, ellerin dert neyim görmesin
Sadece eğer tarih başta ise belirleyemedi o kadar. O da çok mühim değil, devede kulak

 

[Korhan Ayhan]

Alternatif olarak aşağıdaki koduda kullanabilirsiniz.

Option Explicit
 
Sub Tarihleri_Ayir()
    Dim X As Long, Y As Integer, Veri As Variant, Tarih As String
    
    Range("B2:B" & Rows.Count).ClearContents
    
    For X = 2 To Cells(Rows.Count, 1).End(3).Row
        Veri = Split(Replace(Cells(X, 1), ",", ""), " ")
            For Y = 0 To UBound(Veri)
                If IsNumeric(Veri(Y)) Then
                    If Tarih = "" Then
                        Tarih = Veri(Y)
                    Else
                        Tarih = Tarih & "; " & Veri(Y)
                    End If
                End If
            Next
        Cells(X, 2) = Tarih
        Tarih = ""
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[shallala]

Çok teşekkürler.