Birden fazla anahtar kelime ile arama

[Cafein]

Herkese merhabalar.

Ekteki dosyada olduğu gibi arama sayfasındaki hücrelere yazdığım kelimelerin hepsinin birden veri sayfasında B sütununda bulunan cümleler içinde geçiyorsa satır numaralarını yazdıracak bir koda ihtiyacım var.

Biraz daha açıklamak gerekirse. Arama sayfasında kutucuklara mesela 3 farklı kelime yazdım. İstediğim olay; veri sayfasında B sütununda bulunan cümlelerin içinde bu 3 kelime birden aranacak. Eğer 3 kelimenin hepsininde geçtiği bir cümle varsa o satırın numarasını bana verecek bir kod.

Veri sayfası 10 bin satırdan fazla. Yardımız için şimdiden çok teşekkür ederim.

 

[uzmanamele]

Merhaba

Bunu deneyiniz.

Sub arama()
On Error Resume Next
ara1 = Sheets("arama").Range("a1")
ara2 = Sheets("arama").Range("a2")
ara3 = Sheets("arama").Range("a3")
For i = 1 To Range("a65536").End(3).Row
ara11 = Application.WorksheetFunction.Search(ara1, Cells(i, 2), 1)
ara22 = Application.WorksheetFunction.Search(ara2, Cells(i, 2), 1)
ara33 = Application.WorksheetFunction.Search(ara3, Cells(i, 2), 1)
bul = ara11 * ara22 * ara33
If bul > 0 Then
MsgBox Cells(i, 2).Address & Chr(10) & Cells(i, 2).Text
Exit For
End If
Next
End Sub

 

[Cafein]

çok teşekkür ederim uzmanamele

Bir sorum daha olacak. Bu makro işinde yeniyim mazur görün

If k < 50 Then
liste.List = Sheets("program").Range("A2:B30").Value
liste.ColumnCount = 2

Yukarıdaki kodda listbox verisini A2 ile B30 arasındaki satırlardan alıyor. Ben bunu A2 ile Bk şeklinde yapmak istiyorum. k burda integer sayı. bunun nasıl yapabilirim.

 

[Cafein]

If k < 50 Then
liste.List = Sheets("program").Range("A2","B"&k).Value
liste.ColumnCount = 2

Bu şekilde oluyormuş

 

[sariyar]

birden fazla anahtar kelime aratma

Benim de buna benzer sorunum var. Elimde yüzlerce çalışma sayfası var. Çalışma kitabı seçeneği ile kelime aratabiliyorum. Cümle içindeki kelimelerden farklı iki kelime yazarak aratma imkanım varmı? Örneğin bugün forumda soru sordum
Aramaya bugün ve sordum yazarak bu kelimelerin geçtiği kayıtları çalışma kitabında aratarak kayıtlara ulaşmak istiyorum.