Metin içindeki rakamları ayrı hücrelere göndermek

[mavikaranfil]

Bir metin içindeki rakamları ayırmak ve ayrı ayrı kendi hücrelerine yazdırmak istiyorum.
Ekteki örnekteki kırmızı metin içinde geçen rakamların mavi sayılar hanesinde yerlerine yazılmasını istiyorum.
İlgilenenlere şimdiden teşekkürler...

 

[uzmanamele]

merhaba
yerleşik fonksiyonlar ile çözümü var ama biraz uzun. vaktim olmadığından dosyayı tamamlayamadım. ilgilenen olursa nasıl yapılacağını maddeler halinde yazabilirim.

 

[mavikaranfil]

Biraz bahsedersiniz memnun olurum.

 

[uzmanamele]

merhaba
birsüre daha beklemenizi öneririm. uzman arkadaşlar makro ile gözüm üretirlerse daha kullanışlı olur. makul sürede makro çözümü gelmezse yerleşik fonksiyonlarla çözüm önerimi buraya yazabilirim.

 

[mavikaranfil]

Uygulamanın çözümü beni büyük bir dertten kurtaracak,
ilginize teşekkür ederim.

 

[uzmanamele]

merhaba
ekteki dosyada nasıl yapılacağını anlattım, fazla vakit ayıramadığımdan sadece yöntemi söyleyebilirim. umarım formülü tamamlayabilirsiniz.

 

[Zeki Gürsoy]

Makrolu çözüm.

Sub Ayir()
Dim i As Long, a() As String, j As Byte
 
For i = 2 To 11
    
    a = Split(Cells(i, 2))
    
    For j = 0 To UBound(a)
        
        If a(j) Like "*gün" Then
            Cells(i, "c") = Val(a(j))
            
        ElseIf a(j) Like "*saat" Then
            Cells(i, "d") = Val(a(j))
            
        Else
            Cells(i, "e") = Val(a(j))
        End If
        
    Next
    
Next
 
End Sub

 

[uzmanamele]

merhaba
syn Anemos'un kodları süper. makro çözümü kullanın. benim yöntem alternatif beyin jimnastiği olarak kalsın.

 

[mavikaranfil]

Çözüm üretenlere teşekkür ederim.
Sanırım bunlar sorunumu çözecek, tekrar teşekkürler....