Sayıları Virgülden ayırma

[howitget]

Merhaba Arkadaşlar,
Hepinize öncelikle böyle bir ortam yarattığınız için teşekkürler.
Öğrenilecek ne kadar çok şey var ! Neyse takıldığım noktaya geleyim.
Ben sistemden aldığım bir veride bir hücre içinde sayılar virgüllerle bütünleşmiş durumda Örnek olarak A hücresinde 100 lerce değer var bir tanesi şöyle 4,7,35,95,170 ama ben burdan sadece 4 ü seçip yanındaki b hücresine yazdırmak istiyorum aynı işlemi 2 - 4 ve 101 için yapmak istiyorum yani A hücresinin bir satırındaki değerlerden içinde 2 4 veya 101 varsa seçip yanındaki hücresine yazabilir mi ?
Dosyayı ekte gönderiyorum.
Şimdiden çok teşekkürler.
İyi çalışmalar.

 

[howitget]

Merhaba arkadaşlar Şimdi metni sütunlara dönüştür özelliğiyle ekteki gibi ayırdım fakat ben A sütununda 1 - 2 - 4 - 101 ve 103 ün yalnız seçilip oraya yerleştirilmesini istiyorum ?? yani A sütununda sadece bu dediklerim seçilip yazılabilir mi tekrar teşekkürler

 

[Orion1]

Dosyanız ekte.
KTF yaptım.Formül yani
Kulanımı:
=arabul(A1)

Function arabul(hcr As Range)
Dim dizi, i As Integer, deg1 As Variant, deg As Variant, k As Integer
deg1 = Array("", "1", "2", "4", "101", "103")
dizi = Split(hcr, ",")

For i = 1 To 5
    For k = LBound(dizi) To UBound(dizi)
        If dizi(k) = deg1(i) Then
            deg = deg & "-" & deg1(i)
        End If
    Next k
Next i
deg = Right(deg, Len(deg) - 1)
arabul = deg
End Function

 

[howitget]

Teşekkürler arkadaşım çok sağol
Eline sağlık kolay gelsin