Farklı sayfalardaki hücre içerigini kelime kelime arama

[Antepliislam]

Merhabalar,

Ekte göndermiş oldugum dosya içerisindeki hücrelerşn içerigini kelime kelime diger sayfadaki verilerle arama yaptırma istiyorum. Örnegin;

''islam yıldız bugün gelmeyecek'' kelimesinin önce "islam" ı aratacak hücrelerde buldugu takdirde "yıldız" kelimesini aratacak sonra da bugünü aratacak eşleştigi tadirde arama yaptıgı sütundaki stkkodunu diger sayfadaki yerine yapıştırmak istiyorum.

Şimdiden teşekkür ederim.

 

[Antepliislam]

Kimse yanıt vermeyecek sanırım !

 

[veyselemre]

STD sayfanızdaki B sütununu kelimelere bölüp arama yapıyor, son kelime SIYAH arama harici tutuldu, çünkü ilk sayfadaki STOK CİNSİ bilgilerinde yazılmamış. Son kelime hariç bütün kelimeleri arar hepsi aynı STOK CİNSİ nde geçiyorsa STOK KODUNU yazar.

Sub test()
    Set sD = Sheets("DBE")
    son = sD.Cells(Rows.Count, "A").End(3).Row
    lst1 = sD.Range("A2:B" & son)
    For i = 1 To UBound(lst1)
        lst1(i, 2) = Replace(lst1(i, 2), " ", "")
    Next i
    Set sD = Sheets("STD")
    son = sD.Cells(Rows.Count, "A").End(3).Row
    lst2 = sD.Range("B2:B" & son)

    For i = 1 To UBound(lst2)
        sD.Cells(i + 1, 6) = ""
        For ii = 1 To UBound(lst1)
            bulunmadi = False
            BOL = Split(lst2(i, 1), " ")
            For iii = 0 To UBound(BOL) - 1
                If InStr(lst1(ii, 2), BOL(iii)) = 0 Then
                    bulunmadi = True
                    Exit For
                End If
            Next iii
            If bulunmadi = False Then
                sD.Cells(i + 1, 6) = lst1(ii, 1)
                Exit For
            End If
        Next ii
    Next i
End Sub

 

[Antepliislam]

Çalıştıramadım...

Merhabalar öncelikle çalışmanız için çok teşekkür ederim. Bu Makroyu asıl excel sayfamda çalıştıramadım, sizde kontrol edip bu sayfaya uygular mısınız?

STOK CINSI stk_kart sayfasının B sütunundan taranıp, STD MALZEME sayfasının içindeki STOK CİNSİ ile kelime kelime arama yaptıktan sonra eşleşenlerin stok kodlarını STD MALZEME sayfasının f sütununa yazmasını istiyorum.

 

[Antepliislam]

Cevap?

Cevap bekliyorum, çözerseniz memnun olurum...