Çoklu Sezgisel arama

[xemdarx]

Selamlar,
Dosyada arama özelliğini D,E ve F sütununa göre süzüp sonucu B sütunu olarak listboxta listeleyebilir miyiz?

 

[xemdarx]

Lütfen yardım ediniz.

 

[Ömer BARAN]

Merhaba.

Anladığım kadarıyla ; UserForm üzerinden deneme isimli sayfanın D, E ve F sütunlarını kapsayacak şekilde
arama yapmak ve bulunan verilere ait A ve B sütunu değerlerini ListBox'ta listeletmek istiyorsunuz.

Ancak arama işlemi için Userform'daki ListBox'un hemen üzerinde bir Combobox (sağ kenarında OK işareti görünmese de) yerleştirmişsiniz.
Arama işlemi için bir Combobox yerine TextBox kullanmanızını yerinde olacağını düşünüyorum.

ListBox'un hemen üstündeki Combobox'u silip onun yerine bir TextBox ekleyin (ben TextBox99 adını verdim) ve bu nesne için aşağıdaki kod blokunu kullanın.
Dikkat: kod, deneme isimli sayfanın H sütununu bulunan veri satırlarını işaretlemek için kullanıyor.
.

[B]Private Sub [COLOR="Red"]TextBox99[/COLOR]_Change()[/B]
Set d = Sheets("deneme")
son = d.Cells(Rows.Count, 1).End(3).Row
If Replace([COLOR="Red"]TextBox99[/COLOR], " ", "") = "" Then
    d.Range("[B][COLOR="Blue"]H[/COLOR][/B]2:[B][COLOR="blue"]H[/COLOR][/B]" & son).ClearContents
    ListBox1.RowSource = "deneme!A2:C" & son
Else
    ListBox1.RowSource = "": ListBox1.Clear
    d.Range("[B][COLOR="blue"]H[/COLOR][/B]2:[B][COLOR="blue"]H[/COLOR][/B]" & son).ClearContents
    x = 0
    For Each hcr In d.Range("[B][COLOR="Blue"][SIZE="4"]B[/SIZE][/COLOR][/B]2:[B][COLOR="blue"][SIZE="4"]F[/SIZE][/COLOR][/B]" & son)
        If Len(hcr.Value) <> Len(Replace(hcr.Value, [COLOR="Red"]TextBox99[/COLOR], "")) And d.Cells(hcr.Row, "[B][COLOR="blue"]H[/COLOR][/B]") = "" Then
            ListBox1.AddItem
            ListBox1.List(x, 0) = d.Cells(hcr.Row, "A")
            ListBox1.List(x, 1) = d.Cells(hcr.Row, "B")
            ListBox1.List(x, 2) = d.Cells(hcr.Row, "C")
            d.Cells(hcr.Row, "H") = "x"
            x = x + 1
        End If
    Next
End If
[B]End Sub[/B]

 

[xemdarx]

Ömer Bey, denedim oluyor fakat eksik. Sadece sayı değerlerini yazınca buluyor. Metin yazınca (c sütunu) işlem olmuyor.. Teşekkürler

 

[Ömer BARAN]

Tekrar merhaba.

Konu açılış mesajınızdaki cümle, arama işlemini D,E ve F sütunlarında yapmak istediğiniz şeklinde anlaşılıyor.

Önceki cevabımda For Each hcr In d.Range("D2:F" & son) satırında
(kırmızı renklendirdiğim kısmı, ki aramanın yapılacağı alan anlamına geliyor)
B2:F olarak değiştirin.
Ben önceki cevabımı güncelledim.
.

 

[xemdarx]

Sağolun, varolun Ömer Bey.

 

[xemdarx]

Selamlar Ömer Bey,
Textboxu space ile silince aşağıdaki uyarı çkıyor.

 

[xemdarx]

H sütunu yerine T seçtim. B2:F yerine de B2:E . Sorun ne olabilir?

 

[askm]

Space silme aracı değildir. Boşluk bırakma aracıdır.
Kodların başına aşağıdaki satırı ekleyip deneyin.
On Error Resume Next

 

[Ömer BARAN]

Space tuşuna basmak silme değil, BOŞLUK karakteri yazma işlemi.

Herneyse; önceki cevabımı tekrar güncelledim, sayfayı yenileyerek önceki kod cevabımı tekrar kontrol edin.
.

 

[xemdarx]

Arkadaşlar, backspace demek istemiştim. Neden cahil ilan ediyorsunuz?

 

[xemdarx]

Arkdaşlar, backspace demek istemiştim. Neden hemen cahil ilan ettiniz?

 

[Korhan Ayhan]

Merhaba,

Arkadaşlar sizi cahil ilan etmemişler. Bilgilendirme yapmışlar. Bence fazla alınganlık göstermişsiniz.