İstenilen Değerlerden Öncesini Alma

[erggun]

Merhaba Arkadaşlar,
E-ticaret sitem için ürün filtreleme ile uğraşıyorum. ve tek tek çok zor oluyor.

Ben Ürün İsminde geçen gr ve mt karakterleri ile beraber önceki sayısal değerleri başka bir satıra yazdırmak istiyorum.

Örnek:
Shimano Catana CX Spinning -L- 2,70mt 3-14gr Kamış

Ürün Başlığından almak istediğim değerler "3-14gr" ve 2,70mt.

Yardımcı olurmusunuz?

Teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.

...::: Ekli Dosyayı İndirmek İçin Linki Tıklayınız :::...
https://yadi.sk/d/ypHs3DXtYh33j

İşlem Sonucu:

Sub kod()
    Application.ScreenUpdating = False
    
    Range("B1:C65536").ClearContents
    For sat = 1 To Cells(Rows.Count, "A").End(3).Row
        
        bul1 = WorksheetFunction.Search("gr", Cells(sat, "A"), 1) + 1
        For i = bul1 To 1 Step -1
            If Mid(Cells(sat, "A"), i, 1) = " " Then
                Exit For
            End If
        Next i
        Cells(sat, "B") = Mid(Cells(sat, "A"), i, (bul1 - i) + 1)
        
        bul2 = WorksheetFunction.Search("mt", Cells(sat, "A"), 1) + 1
        For a = bul2 To 1 Step -1
            If Mid(Cells(sat, "A"), a, 1) = " " Then
                Exit For
            End If
        Next a
        Cells(sat, "C") = Mid(Cells(sat, "A"), a, (bul2 - a) + 1)
        
    Next sat
    
    Application.ScreenUpdating = True
    MsgBox " B i t t i "
End Sub

. . .

 

[erggun]

Hüseyin Bey süper bir uygulama yapmışsınız. Çok teşekkür ederim. Çok yardımcı oldu gerçekten.

İnşallah ben de size farklı bi ortamda yardımcı olabilirim.

 

[Emir Hüseyin Çoban]

. . .

Alternatif,

Yukarıdaki örneğe göre A sütununu seçin >
Üst menüden Veri > Metni Sütunlara Dönüştür >
Sınırlandırılmış şeçeneğini seçerek > ileri >
Ayırıcılardan > boşluk seçin > Son

bu şekilde metin arasındaki boşluklara göre sütunlara parçalanmış olacaktır.

İşlem Sonucu:

. . .