Soru X Yıl Y Ay Z Gün İfadesini Güne Çevirme

[yerbakili]

[TR][TD]
Merhaba,
Elimde, aşağıdaki MEVCUT sütunundaki değerler bulunmakta. Lüzum üzerine bu değerleri OLMASI GEREKEN sütunundaki gibi gün karşılığındaki (YIL*365 + AY*30 + GÜN) değerlerine ihtiyacım var. Metin kırpma konusunda oldukça zayıf olduğumdan sizlerin yardımına ihtiyacım var.
Şimdiden teşekkürler.

MEVCUT OLMASI GEREKEN
4999 GÜN 4999
38 YIL 24 AY 14590
10 YIL 130 AY 139 GÜN 7689
25 YIL 9125
51 AY 36 GÜN 1566
18 AY 540
[/TD]
[TD]

[/TD][/TR]
[TR][TD]

[/TD]
[TD]

[/TD][/TR]

 

[YUSUF44]

Aşağıdaki makro A sütunundaki verileri istediğiniz gibi B sütununa yazar:

Sub gunleme()
son = Cells(Rows.Count, "A").End(3).Row
For i = 1 To son
    If Cells(i, "A") <> "" Then
        yil = 0
        ay = 0
        gun = 0
        veri = Trim(Cells(i, "A"))
        a = Split(veri, " ")
        For j = 0 To UBound(a)
            If a(j) = "YIL" Then yil = a(j - 1) * 365
            If a(j) = "AY" Then ay = a(j - 1) * 30
            If a(j) = "GÜN" Then gun = a(j - 1)
        Next j
        Cells(i, "B") = yil + ay + gun
    End If
Next
End Sub

 

[yerbakili]

Aşağıdaki makro A sütunundaki verileri istediğiniz gibi B sütununa yazar:

Sub gunleme()
son = Cells(Rows.Count, "A").End(3).Row
For i = 1 To son
    If Cells(i, "A") <> "" Then
        yil = 0
        ay = 0
        gun = 0
        veri = Trim(Cells(i, "A"))
        a = Split(veri, " ")
        For j = 0 To UBound(a)
            If a(j) = "YIL" Then yil = a(j - 1) * 365
            If a(j) = "AY" Then ay = a(j - 1) * 30
            If a(j) = "GÜN" Then gun = a(j - 1)
        Next j
        Cells(i, "B") = yil + ay + gun
    End If
Next
End Sub

Tam istediğim gibi olmuş @YUSUF44, teşekkür ederim.