• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Katılım
13 Aralık 2014
Mesajlar
28
Excel Vers. ve Dili
excel 2013 türkçe
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.
 

Ekli dosyalar

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.
Kod:
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
 
Ç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.
 

Ekli dosyalar

Cevap?

Cevap bekliyorum, çözerseniz memnun olurum...
 
Geri
Üst