excelde keyword üzerinden arama yapma

[Pınar_21]

Merhabalar;

Excel'de bir yayın listesi kaydettim ve yayın adı, anahtar sözcük, özet, yayının pdf linki gibi sütunlar içeren yaklaşık 170 satırlık bir veritabanı. Ben kullanıcının bir diyalog kutusuna herhangi bir kelime yazması halinde excelin linki ve tüm sütunları tarayarak, eğer bu kelime sayfada kayıtlıysa onunla ilgili kaynakların bir listesini yapmasını istiyorum. Bunun biraz da göze hitap eden bir şey olması gerekiyor, içinden çıkamadım. Yardımcı olursanız çok sevinirim.
İyi akşamlar...

 

[Murat OSMA]

Üzerinde çalıştığınız bir dosya varsa lütfen ekler misiniz ?

 

[Pınar_21]

bu bir kısmı, linkler yer almıyor içinde ama linkli hali lazımsa biraz beklemenizi rica edeceğim.

 

[Murat OSMA]

Dosya formatınızı .xls olarak kaydedip yüklerseniz, office 2003 kullanan arkadaşlar da yardımcı olabilirler...

 

[Pınar_21]

öneriniz için teşekkürler.

 

[Murat OSMA]

Dosyanızı kodları aşağıdadır... Dosyayı da ayrıca ekledim.

■ Module kodları;

Sub Osma()
UserForm1.Show
End Sub

■ UserForm kodları;

Public con As Object, rs As Object

Private Sub Textbox1_Change()
On Error GoTo Hata
Dim Baslik As String
If TextBox1.Text = "" Then
rs.Filter = ""
Else
rs.Filter = "[F7] like '%" & TextBox1.Text & "%'"
End If
If rs.fields.Count > 1 Then
End If
ListBox1.Column = rs.getrows
If Hata Then
Hata:
MsgBox "Aradığınız kayıt Bulunamamıştır"
End If
End Sub

Sub Baglan()
Set con = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
con.Open "provider=microsoft.jet.oledb.4.0;" & _
        "data source=" & ThisWorkbook.FullName & ";" & _
        "extended properties=""excel 8.0;hdr=no"""
rs.Open "select * from [Sayfa1$]", con, 1, 1
ListBox1.ColumnCount = rs.fields.Count
ListBox1.Column = rs.getrows
End Sub

Private Sub UserForm_Initialize()
Call Baglan
ListBox1.ColumnWidths = "40;30;110;110;60;30;130;35;35;50;40;75;100"
End Sub

İyi akşamlar...

 

[Pınar_21]

Emeğinize,zihninize sağlık, çok güzel olmuş. Çok teşekkür ederim gerçekten.
İyi akşamlar...

 

[Murat OSMA]

Rica ederim Pınar Hanım...

Özel mesaj ile bir soru yöneltmişsiniz, cevabını vereyim;
Evet, diğer sütunlarda da filtreleme yapabilirsiniz.
Öncelikle filtrelemek istediğiniz sütun sayısı kadar formunuza TextBox ilave edin.
Sonra da her bir TextBox'ın aşağıdaki gibi kendi change olaylarında sadece sütun sayısını belirten [F7] yi değiştirmeniz yeterli olacaktır...

Private Sub Textbox1_Change()
On Error GoTo Hata
Dim Baslik As String
If TextBox1.Text = "" Then
rs.Filter = ""
Else
rs.Filter = "[F7] like '%" & TextBox1.Text & "%'"
End If
If rs.fields.Count > 1 Then
End If
ListBox1.Column = rs.getrows
If Hata Then
Hata:
MsgBox "Aradığınız kayıt Bulunamamıştır"
End If
End Sub

İyi akşamlar.