Hücre içerisindeki kelimeden başka hücreye veri çekme

[OnnuuR]

Merhaba arkadaşlar iyi günler, ben bir firmada parça reçeteleri yapıyorum, bu işin büyük kısmını sizin yardımlarınızla çözebildim.
Dosyayı açıklayayım, P0001881 yazan kısım ürün adı, hemen altında ürüne ait prosesler sıralanıyor. Bu reçetenin tamamlanmasında son bir kısım kaldı o da şu şekilde, bir hücrenin içindeki kelimelerin başında sayılar var ve bu sayıları başka hücrelere aktarmak istiyorum. sayfa 2'de nasıl dolması gerektiğini gösterdim. Bu şekilde kelimeye dayalı veriler çekebiliyor muyuz? E ve F sütunlarını yaptım, G sütunu kaldı

x3 diş, x1 delik, x1 büküm

yazan yeri değiştirebilirim oraları manuel dolduruyorum mesela şu şekilde de yapabilirim formülde kolaylık olacaksa; 3diş3delik3büküm, 3diş-3delik-3büküm.

Diş Açma	3​
Delik Delme	1​
Büküm	1​

En son böyle olması gerek.


Bunu formülle yapabilir miyiz acaba? Teşekkür ederim.

Dosya:

İndir malzeme

Dosyayı indir malzeme

dosya.co

 

[excelokyanus500]

Merhaba.
Fonksiyon kullanmak isterseniz. Şu şekilde olabilir.Bu fonksiyonu kod sayfasına yapıştırın.

Function VirguldenAl(metin As String, sira As Integer) As String
   
    Dim parcalar() As String
    Set r = CreateObject("VBScript.RegExp")
    sPattern = "\d+"
    r.Pattern = sPattern
   
    parcalar = Split(metin, ",")
   
    If sira >= 1 And sira <= UBound(parcalar) + 2 Then
        parca = Trim(parcalar(sira - 1))
        Set mc = r.Execute(parca)
        For Each m In mc 
        VirguldenAl = m.Value
        Next
    Else
        VirguldenAl = "Geçersiz Sıra"
    End If
End Function

Formül kullanımı şöyle
C4 ve aşağı doğru.
=VirguldenAl($G$2;1)
=VirguldenAl($G$2;2)
=VirguldenAl($G$2;3)

gibi...

 

[OnnuuR]

Bunu denedim ama başarılı olamadım ya makroyu çalıştıramadım sanırım, onu çalıştıramadığım için de virül komutları geçerli olmuyor

 

[excelokyanus500]

Makroyu nasıl kullabileceğinize dair konuyla da alakalı bir anlatımı buraya ekliyorum.

KTF nasıl kullanılır.

 

[OnnuuR]

Makroyu nasıl kullabileceğinize dair konuyla da alakalı bir anlatımı buraya ekliyorum.

KTF nasıl kullanılır.

Çok teşekkür ederim.