• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Kriterli arama ??

  • Konbuyu başlatan Konbuyu başlatan unalh
  • Başlangıç tarihi Başlangıç tarihi
Katılım
15 Ocak 2009
Mesajlar
257
Excel Vers. ve Dili
Türkçe 2010
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
 

Ekli dosyalar

  • KISIT.JPG
    KISIT.JPG
    41.8 KB · Görüntüleme: 22
Form üzerinde kullanmam gerekiyor bu form yapmış olduğum programın bir parçası
masiva80 ilgine teşekkür ederim.
 
Kod kullanarak önce sayfada süzdür, sonra bu süzülmüş verileri forma taşısan nasıl olur., fikir vermek açısından
 
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.
Kod:
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
 

Ekli dosyalar

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.
 
Geri
Üst