Cümle içindeki kelimeyi aratma

[Galus]

Aratma yapıldığında sayfadaki herhangi bir hücredeki kelimler arasından kelimeyi listboxa getirebilirmiyiz?

Örneğin: Aksiyon, Dram, Gerilim, Western cümlesinden arttırıldığında "gerilim" yazan satırlar listboxa gelsin.

Saygılar..

 

[fedeal]

Merhaba ,

Private Sub CommandButton1_Click()
Set sf = Sheets("sayfa1")
ListBox1.Clear
ListBox1.ColumnCount = 11
ReDim fdl(1 To 11, 1 To 1)
a = a + 1
ReDim Preserve fdl(1 To 11, 1 To a)
For k = 1 To 11
fdl(k, a) = sf.Cells(1, k)
Next k
For i = 2 To sf.Cells(65536, "f").End(xlUp).Row
If WorksheetFunction.CountIf(sf.Cells(i, "f"), "*" & TextBox1.Text & "*") > 0 Then
a = a + 1
ReDim Preserve fdl(1 To 11, 1 To a)
For k = 1 To 11
fdl(k, a) = sf.Cells(i, k)
Next k
End If
Next i
If a > 0 Then ListBox1.Column = fdl
Erase fdl
End Sub

deneyin istediginiz bumu?

 

[Galus]

Üstadım süper olmuş. Allah (CC) razı olsun. F sütunundakileri getiriyor. Yalnız H sütununda oyuncuları seçmiyor. Aramayı sayfanın genelinde yapamazmıyız?

Teşekkürler..

 

[fedeal]

arama kriteri belirlenmeli artarda gelen harflere göre arama yapıyor(su yazarak ararsanız suç olanları bulacaktır).sayfa geneline yayarsak sağlıklı sonuç alınırmı bilemiyorum(özellikle kayıt sayısı çok olursa).Kriter seçimli bir örnek hazırladım işinize yarar umarım.

 

[Galus]

Üstadım,

Harika olmuş. Teşekkürler. Yalnız seçenek düğmeleri olmadan direk texboxa yazılan kelimeyi getirtsek daha iyi olurdu. Kullanacağım userformda yer sıkntısı var da.(Allah (CC) razı olsun zaten o FilimFihrist programını da siz yapmıştınız.)

Saygılar..

 

[fedeal]

Altarnatif olarak bir çalışma daha yaptım userform2 de inceleyin(sayfadaki commandbutton2 ile açın) harfleri yazdıkca arıyor.
Allah (CC) cümlemizden razı olsun

 

[Galus]

Altarnatif olarak bir çalışma daha yaptım userform2 de inceleyin(sayfadaki commandbutton2 ile açın) harfleri yazdıkca arıyor.
Allah (CC) cümlemizden razı olsun

Üstadım,

Tam olarak aradığım buydu. Şükranlarımı arz ederim.

Saygılar...

 

[fedeal]

Saygılar ,iyi çalışmalar.

 

[Galus]

arama kriteri belirlenmeli artarda gelen harflere göre arama yapıyor(su yazarak ararsanız suç olanları bulacaktır).sayfa geneline yayarsak sağlıklı sonuç alınırmı bilemiyorum(özellikle kayıt sayısı çok olursa).Kriter seçimli bir örnek hazırladım işinize yarar umarım.

Üstadım,

Bu seçenekli arama sonunda hiç birşey bulunamazsa "KAYIT BULUNAMADI" diye mesajbox uyarısı verdirilebilinir mi?

Saygılar..

 

[fedeal]

Üstadım,

Bu seçenekli arama sonunda hiç birşey bulunamazsa "KAYIT BULUNAMADI" diye mesajbox uyarısı verdirilebilinir mi?

Saygılar..

kodların en altına alttaki kırmızı kodları ekleyin,

Private Sub TextBox1_Change()
Set sf = Sheets("sayfa1")
ListBox1.Clear
ListBox1.ColumnCount = 11
ReDim fdl(1 To 11, 1 To 1)
a = a + 1
ReDim Preserve fdl(1 To 11, 1 To a)
For k = 1 To 11
fdl(k, a) = sf.Cells(1, k)
Next k
For i = 2 To sf.Cells(65536, "f").End(xlUp).Row
For sütun = 1 To 11
If WorksheetFunction.CountIf(sf.Cells(i, sütun), "*" & TextBox1.Text & "*") > 0 Then
z = z + 1
End If
Next
If z > 0 Then
a = a + 1
ReDim Preserve fdl(1 To 11, 1 To a)
For k = 1 To 11
fdl(k, a) = sf.Cells(i, k)
Next k
End If
z = 0
Next i
If a > 0 Then ListBox1.Column = fdl
Erase fdl
[COLOR="Red"]If a < 2 Then
MsgBox " kayıt bulunamadı"
End If[/COLOR]
End Sub

 

[Galus]

Hocam,

Çok teşekkürler...

Saygılar...

 

[Galus]

Private Sub CommandButton1_Click()
Set sf = Sheets("sayfa1")
ListBox1.Clear
ListBox1.ColumnCount = 11
ReDim fdl(1 To 11, 1 To 1)
a = a + 1
ReDim Preserve fdl(1 To 11, 1 To a)
For k = 1 To 11
fdl(k, a) = sf.Cells(1, k)
Next k
If OptionButton1 = True Then sütun = 6
If OptionButton2 = True Then sütun = 8
If OptionButton3 = True Then sütun = 10
If OptionButton4 = True Then sütun = 2
If OptionButton5 = True Then sütun = 3
If OptionButton6 = True Then sütun = 5
If sütun < 1 Then
MsgBox "arama kriteri seçimi yapmalımısınız"
Exit Sub
End If
For i = 2 To sf.Cells(65536, "f").End(xlUp).Row
If WorksheetFunction.CountIf(sf.Cells(i, sütun), "*" & TextBox1.Text & "*") > 0 Then
a = a + 1
ReDim Preserve fdl(1 To 11, 1 To a)
For k = 1 To 11
fdl(k, a) = sf.Cells(i, k)
Next k
End If
Next i
If a > 0 Then ListBox1.Column = fdl
Erase fdl
----------------------

Bu kodlar ile bir hücredeki sadece ilk pragrafta arama yapıyor. Filmin konusuna göre arattığımda ikinci , üçüncü ve diğer paragrafları görmüyor. Hücredeki tüm kelimelere göre aratmak münkün mü? Teşekkürler...

 

[Galus]

Hücre içerisindeki boşluğu yoksay gibi bir kod eklemek gerek herhalde.

 

[Galus]

Kopy paste yaptıktan sonra paragraf bitimi ve başlangıcında küçük kare gibi simgeler oluşuyor. Bu karecikleri sildim bir şey farketmedi. Sorun paragraf boşluğunda.

 

[Galus]

Konuya göre örneğin "Mafya" arattırdığımda Yaralı Yüz filmi listboxa geliyor. Aynı filmin ikinci paragraf başındaki "Howard" diye arattırdığımda sonuç alınamıyor.