• DİKKAT

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

textbox ile listbox da veri sıralama(süzme)

5 numaralı mesajdan dosyayı indirebilirsiniz.:cool:
 
evren bey
süpersiniz

yardımlarınızdan dolayı teşekkürler

iyi çalışmalar
 
Üstadım öncelikle iyi günler dilerim
excel konusunda acemi olduğu belirterek söze başlayayım. oluşturduğum userformda textboxlar yardımıyla listboxta süzme yapamak istiyorum TEXTBOX 1 E YAZIP LİSTBOX TA SÜZME YAPTIKTAN SONRA TEXTBOX2 YE GEÇİP SÜZÜLENLER İÇERİSİNDEN İKİNCİ BİR SÜZME YAPMASINI İSTİYORUM YANİ TEXTBOX 1 ADI ALİ OLANLARI SÜZDÜKTEN SONRA TEXTBOX2 DE SOYADI "D" İLE BAŞLAYANLARI ve TEXTBOX3 TE BAŞKA BİR KRİTERLE SÜZDÜREBİLMEK İSTİYORUM toplam 7 sütun ve 7 TEXTBOX var. sizin gibi üstadların forumlarda verdiği bilgileri kendi dosyama uyarlayarak aşağıdaki şekli verdim. bu haliyle çalışıyor fakat istediğimi yapmıyor ikinci süzmeyi yaparken dahaönce yapılan süzme işlemi yok gibi davranıyor birtürlü çözemedim. sizin bu konuda eklediğiniz dosyada istediğime benziyor. İnceleyip yardımcı olursanız sevinirim. şimdiden kolay gelsin. . ilginize teşekkür ederim.

Private Sub UserForm_Initialize()
Dim hWnd As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000

dolu_son_satır = Sheets("fihrist").Cells(65536, "A").End(xlUp).Row

ListBox1.RowSource = "fihrist!A2:G" & dolu_son_satır

ListBox1.ColumnHeads = True

ListBox1.ColumnCount = 7

ListBox1.ListIndex = -1

End Sub
Private Sub TextBox1_Change()
On Error Resume Next
Dim k As range, adrs As String, j As Byte, a As Long
ReDim myarr(1 To 10, 1 To 1)
If TextBox1.Text = "" Then
ListBox1.RowSource = "FİHRİST!A2:G" & Sheets("FİHRİST").[A65536].End(xlUp).Row
Exit Sub
End If
With Worksheets("FİHRİST")
ListBox1.RowSource = ""
'Show all records of Database on Sheet1
If .FilterMode Then .ShowAllData
Set k = .range("A2:A65536").Find(TextBox1.Text & "*", , xlValues, xlWhole)
If Not k Is Nothing Then
adrs = k.Address
Do
a = a + 1
ReDim Preserve myarr(1 To 10, 1 To a)
For j = 1 To 10
myarr(j, a) = .Cells(k.Row, j).Value
Next j
Set k = range("A2:A65536").FindNext(k)
Loop While Not k Is Nothing And k.Address <> adrs
ListBox1.Column = myarr
End If
End With
End Sub
Private Sub TextBox2_Change()
On Error Resume Next
TextBox1 = Evaluate("=büyükharf(""" & TextBox1 & """)")
TextBox1 = Evaluate("=upper(""" & TextBox1 & """)")
Dim k As range, adrs As String, j As Byte, a As Long
ReDim myarr(1 To 10, 1 To 1)
If TextBox2.Text = "" Then
ListBox1.RowSource = "FİHRİST!A2:G" & Sheets("FİHRİST").[A65536].End(xlUp).Row
Exit Sub
End If
With Worksheets("FİHRİST")
ListBox1.RowSource = ""
'Show all records of Database on Sheet1
If .FilterMode Then .ShowAllData
Set k = .range("B2:B65536").Find(TextBox2.Text & "*", , xlValues, xlWhole)
If Not k Is Nothing Then
adrs = k.Address
Do
a = a + 1
ReDim Preserve myarr(1 To 10, 1 To a)
For j = 1 To 10
myarr(j, a) = .Cells(k.Row, j).Value
Next j
Set k = range("B2:B65536").FindNext(k)
Loop While Not k Is Nothing And k.Address <> adrs
ListBox1.Column = myarr
End If
End With
End Sub
 
listboxta süzme

doyayı ekledim arkadaşlar ilgilenirseniz sevinirim. saygılar
 

Ekli dosyalar

Selamlar,

Sn. kerwanci,

Ekte dosyanızda gerekli düzenlemeleri yaptım. İncelermisiniz.

Veri sayınız arttıkça kodlar TextBox ların Change olayına yazıldığı için biraz yavaşlama yaşayabilirsiniz. Sebebide siz her harfe basınca arama işlemi devreye girmektedir. Buda çoklu verilerde yavaşlamaya sebep olacaktır. Bu sıkıntıyı aşmak için aranacak veriyi yazdıktan sonra "Enter" tuşuna basarak kodu çalıştırmak size avantaj sağlayacaktır. Bu işlemide TextBox ların KeyDown olayına yazılacak bir kodla halledebiliriz. Bu şekilde biraz daha hız kazanabilirsiniz.
 

Ekli dosyalar

Korhan Ayhan üstadım yardımların için minnettarım. İşlerinde başarılar dilerim.
 
Evren Bey bilgilerinizi paylaştığınız için teşekkürler...
Benim elimde yaklaşık 10.000 satırdan ve 60-70 sütundan oluşan devasa verilerim var.
Amacım bu bilgilere pratik şekilde ulaşmak. Bunun için ekteki uygulamayı yapmaya çalışıyorum.
Üç adet optionbutton ile kriter oluşturup arama kutusuna kelime-rakam yazmaya başladığımda listboxta sonuçlar listelenmeye başlıyor.
Sizden istediğim listboxtaki sonuca çift tıkladığımda veriye ait diğer bilgilerin (d-e-f-g-h.... sütünlarında veriler var, örnekte bunları sildim...) multipage sayfalarındaki texboxlarda görüntülenmesi.
Günlerdir uğraşıyorum ama işin içinden çıkamadım. Lütfen yardım edin......
 

Ekli dosyalar

Merhaba

Ekdeki dosyada arama seçeneklerine tarih ekleyebilrimiyiz.
 
arkadaşlar bu listboxlara kolon ekleyip sonra da kolonlara tıklayıp nasıl alfabetik sıralama yapabiliriz. listview deki gibi ?
 
Ücret tipi ve tuatrı bölümün de adres atama yanlışlığı var gibi.denedim ama olmuyor.Ücret tutarı P de ama Q daki veriler geliyor.
Multipage ile ilgileniyorum.da.iyice incelemeye çalışıyorum.
Sevgiler...
 
Hocam ufak bi sorun oluştu. yeni bi isim kaydettiğimizde alfabetik sıraya göre kaydediyor ancak listbox ta görünmüyor. formu kapatıp açınca ancak görünüyor bunu nasıl gideririz teşekkürler
Hocam ayrıca aynı kodları kullanarak başka bi dosyada kullanıyorum ama kayıtta alfabetik sıralama yapmıyor
 
Son düzenleme:
Korhan Bey,

Elinize sağlık çok teşekkür ederim. Son derece pratik ve faydalı bir uygulama, önemli ihtiyaçlarımızı çözüyor.

Çalışmalarınızda başarılar dilerim.
 
tEXTBOX İLE LİSTBOX DAN SÜZÜLENİ SEÇMEK VE DOĞRU TEXTBOXLARA GİTMESİNİ SAĞLAMAK.

Merhabalar benimde sizlere sorum
Bir tane adres defteri proğramında
1-textboxtan süzüleni alt alta doğru şekilde sıralama yapmaktadır.
2-Ancak listboxtan örneğin Osman seçim yapıldığında bilgileri doğru şekilde doğru yerlere gitmemektedir.


Her ne kadar listbox taki 3 seçim yapıldığında yine bir üst seçim değerleri gelmektedir.

Lütfen bu konuya yardımcı Usta ve Eğitmenlerimiz yardımcı olabilir mi iyi geceler dilerim.
 

Ekli dosyalar

Merhabalar güzel bir soru için güzel bir cevap bekliyoruz :))
arama textboxında arama yapılıp listboxtan seçildiğinde bir üst satırdaki bilgiler geliyor
ancak süzme yapmadan seçim yapıldığında ise doğru lütfen yardımcı olabilir misiniz.?

yenilik025' Alıntı:
Merhabalar benimde sizlere sorum
Bir tane adres defteri proğramında
1-textboxtan süzüleni alt alta doğru şekilde sıralama yapmaktadır.
2-Ancak listboxtan örneğin Osman seçim yapıldığında bilgileri doğru şekilde doğru yerlere gitmemektedir.


Her ne kadar listbox taki 3 seçim yapıldığında yine bir üst seçim değerleri gelmektedir.

Lütfen bu konuya yardımcı Usta ve Eğitmenlerimiz yardımcı olabilir mi iyi geceler dilerim.
Genişletmek için tıkla ...
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst