hücredeki veriden sadece istenileni almak

[şehiriçi]

merhaba arkadaşlar
sitede arama yapmaya zamanım olmadığı için bu soruyu gönderiyorum
elimdeki veri miktarı fazla tek tek yazmak zorunda kalmadan hücre içindeki sadece rakamları ayrı bir sütunda görmem gerek

 

[Orion1]

KTF yazdım.
Dosyanız ektedir.

DOSYAYI İNDİR

=rakam(A1)

Function rakam(hcr As Range) As Double
On Error GoTo 10
rakam = CDbl(VBA.StrReverse(Split(VBA.StrReverse(hcr), " ")(1)))
Exit Function
10 rakam = 0
End Function

 

[şehiriçi]

orion1 ... teşekkürler

 

[bzace]

Merhabalar,
Alternatif olsun.

=--PARÇAAL(YERİNEKOY(A1;" ";
YİNELE(" ";100));MBUL("TL";YERİNEKOY(A1;" ";YİNELE(" ";100)))-200;100)

Saygılar,
Hay marja!!

 

[Orion1]

orion1 ... teşekkürler

Rica ederim.
İyi çalışmalar.