aranacak sütunda aranan kelime-cümleye eşleşenleri sırasıyla başka sayfaya getirmek

[KMLZDMR]

Sayın üstadlar, forumdaşlar,
aranacak sütunda aranan kelime-cümleye eşleşenleri sırasıyla başka sayfaya getirmekSütunun içinde geçen kelime veya cümleleri bularak eşleşenleri başka sayfaya sıralayarak ilgili alanlara getirmek)
Ekli dosyada;
Sayfa2 ye G sütunundaki "kod2" sıralamasına göre
"KOD2" alanında geçen isimleri C sütunundaki ürün adları içinde arayarak eşleşenleri Ssayfa2 ye KOD2 sıralamasında aşağıya doğru
sayfa 1'ın A,B,C,D başlıkları altındaki değerleri eşleşerek sayfa2 nin alanlarına sırasıyla getirtmek gerekmektedir.

Örneğin: G sütunundaki "Hedef Vurma Oyunu" cümlesini C sütununda geçenleri bulup sırasıyla Sayfa2 deki "Ürün adı" sütununa alt alta getirecek ve buna denk olan satır değerlerini de ilgili sütunlarına getirecek.

konu hakkında yardım etmeniz mümkün mü?

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Ara_Yaz()
    
    Dim S2 As Worksheet, i As Long, c As Range, Adr As String, sat As Long

    Set S2 = Sheets("Sayfa2")
    
    Application.ScreenUpdating = False
    Sheets("Sayfa1").Select
    S2.Range("A2:F" & Rows.Count).ClearContents
    
    sat = 2
    For i = 2 To Cells(Rows.Count, "G").End(xlUp).Row
        If Cells(i, "G") <> "" Then
            Set c = [C:C].Find(Cells(i, "G"))
            If Not c Is Nothing Then
                Adr = c.Address
                Do
                    S2.Cells(sat, "A") = Cells(i, "F")
                    S2.Cells(sat, "B") = Cells(i, "G")
                    S2.Cells(sat, "C") = Cells(c.Row, "A")
                    S2.Cells(sat, "D") = Cells(c.Row, "B")
                    S2.Cells(sat, "E") = Cells(c.Row, "C")
                    S2.Cells(sat, "F") = Cells(c.Row, "D")
                    sat = sat + 1
                    Set c = [C:C].FindNext(c)
                Loop While Not c Is Nothing And c.Address <> Adr
            End If
        End If
    Next i
    
    S2.Select
    Application.ScreenUpdating = True
    
End Sub

.

 

[KMLZDMR]

sayın ömer teşekkür ederim. Excel formülleri ile yapmaya ihtiyacım var.

 

[KMLZDMR]

Sayın üstadlar,
"aranacak sütunda aranan kelime-cümleye eşleşenleri sırasıyla başka sayfaya getirmek" başlıklı yukarıdaki soruya formüllerle cevap verebilecek var mı?

 

[KMLZDMR]

Sayın üstadlar,
"aranacak sütunda aranan kelime-cümleye eşleşenleri sırasıyla başka sayfaya getirmek" başlıklı yukarıdaki soruya formüllerle cevap verebilecek var mı? (2)

 

[Ömer]

Hafta sonu foruma giremediğim için cevap geçikti.
Eki inceleyin.

.