Sertifika_database sayfasında KURS 1 Yazılı olanları ara bul listele

[tahsinanarat]

Sub BulListele()
    Set S1 = Sheets("Sertifika_database")
    Set S2 = Sheets("arama")
    S2.Range("B2:K65000").ClearContents
    son1 = S2.Cells(65000, 1).End(xlUp).Row
        For i = 2 To son1
        Ara = S2.Cells(i, 1)

        Set c = S1.Range("e:e").Find(Ara, , xlValues, xlWhole)
            If Not c Is Nothing Then

              sat = c.Row
              S2.Cells(i, 2) = S1.Cells(sat, 1)
              S2.Cells(i, 3) = S1.Cells(sat, 2)
              S2.Cells(i, 4) = S1.Cells(sat, 3)
              S2.Cells(i, 5) = S1.Cells(sat, 4)
              S2.Cells(i, 6) = S1.Cells(sat, 5)
              S2.Cells(i, 7) = S1.Cells(sat, 6)
              S2.Cells(i, 8) = S1.Cells(sat, 7)
              S2.Cells(i, 9) = S1.Cells(sat, 8)
              S2.Cells(i, 10) = S1.Cells(sat, 9)
              S2.Cells(i, 11) = S1.Cells(sat, 10)
              End If


              Next
  MsgBox "İşleminiz tamamlanmıştır.", vbInformation, ""
End Sub

Yukarıdaki kod ile arama sayfasında a sutununda yazılı olanları, Sertifika_database sayfasının E sutununda eşleşenleri bulup arama sayfasına getirebiliyorum.

Benim istediğim, Sertifika_database sayfasının K sutununda değişik gördüğü kurs isimleri yazılı, ben bunlardan KURS 1 yazılı olanların getirilmesini istiyorum, kodda nasıl bir değişiklik yapmalıyım.

Teşekkürler

 

[ÖmerFaruk]

Sorunuzun anlaşılması için dosyanızı da ekleyebilirmsiniz?