Kriterli arama ??

[unalh]

S.a Arkadalar,



5 adet TextBox dan oluşan bir arama formumvar burada yapmak istediğim arama yaptığım resimde de görüldüğü gibi il kısmında listelenen verilerin içersinden tekrar diğer TextBox larda arama yaparak kısıt verme. Bu tüm TextBox lar için geçerli ( ili istanbul olarak listeledikten sonra ilçe veya adres gibi bölümlerinden tekrar arama yapam )

İlginize teşekkür ederim.
Hayırlı işler

 

[unalh]

Dosya ektedir.

 

[masiva80]

Formda değilde excel in autofilter özlliğini kullanarak süzme yapsan

 

[masiva80]

Yada önce makro kullanarak süzme yap, sonra forma taşı

 

[unalh]

Form üzerinde kullanmam gerekiyor bu form yapmış olduğum programın bir parçası
masiva80 ilgine teşekkür ederim.

 

[masiva80]

Kod kullanarak önce sayfada süzdür, sonra bu süzülmüş verileri forma taşısan nasıl olur., fikir vermek açısından

 

[Orion1]

Dosyanız ektedir.
Yalnız isim diye arama için kriter yani taxtbox koymuşsunuz ama listviewde listelenmemişsiniz. ben onu isim adlı sütun başlığınıza göre yaptım.Kodlar küçük büyük harfe duyarlı değildir.
Kodlarda arama başlar şeklinde yapıldı.
Yalnız size tavsiyem bu kodları textboxların changed olayına yazammanız.
Bir programcı bira geniş düşünmeli.İleride kayıtlarınız çoğaldığına 30-40 bin(elbet bir gün o kadar olacak) sonra kullanan kişiler arakanaızdan size dua etmesinler.
O zaman bu şekilde arama işkence olur.
En iyisi butana yazmak.
Yinede siz bilirsiniz.

Sub listele()
Dim sh As Worksheet, x As Long, i As Long, sat As Long
Dim kod As String, isim As String, adres As String
Dim il As String, ilce As String
Dim kodt As String, isimt As String, adrest As String
Dim ilt As String, ilcet As String
Set sh = Sheets("BorçluBilgi")
sat = sh.Cells(65536, "B").End(xlUp).Row
ListView1.ListItems.Clear
kodt = UCase(Replace(Replace(Ara.Text, "ı", "I"), "i", "İ"))
isimt = UCase(Replace(Replace(TextBox1.Text, "ı", "I"), "i", "İ"))
adrest = UCase(Replace(Replace(TextBox2.Text, "ı", "I"), "i", "İ"))
ilcet = UCase(Replace(Replace(TextBox3.Text, "ı", "I"), "i", "İ"))
ilt = UCase(Replace(Replace(TextBox4.Text, "ı", "I"), "i", "İ"))
With ListView1
    For i = 2 To sat
        kod = UCase(Replace(Replace(sh.Cells(i, "B").Value, "ı", "I"), "i", "İ"))
        isim = UCase(Replace(Replace(sh.Cells(i, "D").Value, "ı", "I"), "i", "İ"))
        adres = UCase(Replace(Replace(sh.Cells(i, "E").Value, "ı", "I"), "i", "İ"))
        ilce = UCase(Replace(Replace(sh.Cells(i, "F").Value, "ı", "I"), "i", "İ"))
        il = UCase(Replace(Replace(sh.Cells(i, "G").Value, "ı", "I"), "i", "İ"))
        If kod Like kodt & "*" And isim Like isimt & "*" And _
        adres Like adrest & "*" And ilce Like ilcet & "*" And il Like ilt & "*" Then
            x = x + 1
            .ListItems.Add , , Cells(i, 1)
            .ListItems(x).SubItems(1) = Cells(i, 2)
            .ListItems(x).SubItems(2) = Cells(i, 3)
            .ListItems(x).SubItems(3) = Cells(i, 5)
            .ListItems(x).SubItems(4) = Cells(i, 6)
            .ListItems(x).SubItems(5) = Cells(i, 7)
        End If
    Next i
End With
End Sub

 

[unalh]

Evren bey kodlar için çok teşekkür ederim .

Dediğinizi bende düşündüm veriler çoğaldıça arama dahada güç olacak.
Belki bu arama olayını kapsamlı ara diye bir bölüm yapıp oradan aratabilirim.

Hayırlı işler.