listboxda filtre uygulaması

[murat23351]

teşekkürler arkadaşım ama bir sorun daha var listboxta okul ve kadro tipini seçtikten sonradageriye kalan verileri sayfa 2 ye aktarımı olmuyor ???

 

[Orion1]

teşekkürler arkadaşım ama bir sorun daha var listboxta okul ve kadro tipini seçtikten sonradageriye kalan verileri sayfa 2 ye aktarımı olmuyor ???

Dosyayı güncelledim.20 numaralı mesajdan indirebilirsiniz.

 

[murat23351]

emeğine sağlık güzel oldu...k::

 

[Orion1]

emeğine sağlık güzel oldu...k::

Rica ederim.
İyi çalışmalar.

 

[happysoldier]

benim bir ricam olacak, eğer comboboxa bir harf yazdığımızda aşağısındaki listeyi filtreleyebilir bir kod yazabilirmisiniz acaba?

 

[muhoa]

Arkadaşlar merhaba

Combobox ile listboxda veri filtreleme yapmaya çalışıyorum. Bu başlıktaki örnekleri inceliyordum da burdaki örneklerden farklı bir şekilde bir işlem yapmak istiyorum.
Buradaki örnekte listbox'ın veri kaynağını excelden sıralı olarak sütunlar olarak alıyor. Benim listbox'ımın veri kaynağında exceldeki bazı sütunları aldırmıyorum. Bu durumda da filtreleme yaparken karmaşıklık oluyor kodları istediğim gibi düzeltemedim. Yardımcı olurmusunuz?

 

[ipkis]

Merhaba,

Öncelikle bu paylaşım ve detaylı açıklamalarla dönüşleriniz için teşekkür ederim. Sayenizde pek çok şey öğrendim.

Ben bu kodları kendi prg mı uyarladım fakat şöyle bir uyarı veriyor.

"Hata no:91 Object variable or with block variable not set"


Ben çözümü trust center da aradım tüm tikleri kaldırdım falan ama olmadı.

Başka ne gibi bir sorun olabilir yardımcı olabilir misiniz?

Teşekkürler

 

[unur]

İyi geceler arkadaşlar,
Bu başlık altındaki örneklerden yararlanarak birşeyler yapmaya çalıştım ama kodlardan anlamadığım için tıkandım kaldım.(kodları ekleme çıkarma yaparak birşeyler yapmaya çalıştım.)

Aşağıdaki kodlarda bir hata oluşuyor çalıştıramadım.
Me.ListBox1.Clear ve Me.TextBox15.SetFocus
bu iki satırda hata veriyor genelde.

Yardımcı olacak arkadaşlara şimdiden teşekkürler.

Private Sub TextBox15_Change()
Dim k As Range, adrs As String, j As Byte, a As Long
ReDim myarr(1 To 12, 1 To 1)
With Worksheets("KAYIT")
Me.ListBox1.Clear
'Show all records of Database on Sheet1
If .FilterMode Then .ShowAllData
Set k = .Range("D265536").Find(TextBox1.Text & "*", , xlValues, xlWhole)
If Not k Is Nothing Then
adrs = k.Address
Do
a = a + 1
ReDim Preserve myarr(1 To 12, 1 To a)
For j = 1 To 12
myarr(j, a) = .Cells(k.Row, j).Value
Next j
Set k = Range("D265536").FindNext(k)
Loop While Not k Is Nothing And k.Address <> adrs
ListBox1.Column = myarr
End If
End With
End Sub


Private Sub UserForm_Initialize()
With Worksheets("KAYIT")
If .FilterMode Then .ShowAllData
Me.ListBox1.List = Range("A2:L" & .Cells(65536, "A").End(xlUp).Row).Value
Me.TextBox15.SetFocus
End With


ComboBox1.RowSource = "PARAMETRELER!A2:A3"
ComboBox2.RowSource = "PARAMETRELER!B2:B3"
ComboBox3.RowSource = "PARAMETRELER!E2:E20"
ComboBox4.RowSource = "PARAMETRELER!C2:C5"
TextBox8.Locked = True
TextBox8.Value = Range("M1")
With ListBox1
.RowSource = ""
.ColumnHeads = True
ListBox1.ColumnCount = 12
ListBox1.ColumnWidths = "30;40;40;90;140;90;90;50;50;40;50;50"
.RowSource = "KAYIT!A2:L" & Sheets("KAYIT").[L65536].End(3).Row

End With
End Sub

 

[Orion1]

İnitialize olayında li,stboxa verileri rowsource metodu ile almışsınız.
Dağa önceden rowsource olayı ile veri alınan listboxları silme işlemi clear ile değil de rowsource = "" şeklinde yapılmalıdır.

 

[unur]

Orion Bey Teşekkürler,
Dediğinizi yaptım ama başka bir satırda hata verdi, kodlardan anlamadığım için yanlış yerede eklemiş olabilirim.
Dosyamı ekledim.
Yapmak istediğim ise dosya numarasına göre ve konusuna göre arama yapabilmek.
Yardımcı olursanız sevinirim.
Teşekkürler.

 

[Orion1]

Orion Bey Teşekkürler,
Dediğinizi yaptım ama başka bir satırda hata verdi, kodlardan anlamadığım için yanlış yerede eklemiş olabilirim.
Dosyamı ekledim.
Yapmak istediğim ise dosya numarasına göre ve konusuna göre arama yapabilmek.
Yardımcı olursanız sevinirim.
Teşekkürler.

Aşağıdaki satırda textbox1 olamadığı için hata verdi.Onu textbox15 yaparsanız düzelir.

Private Sub TextBox15_Change()
Dim k As Range, adrs As String, j As Byte, a As Long
ReDim myarr(1 To 12, 1 To 1)
With Worksheets("KAYIT")
   Me.ListBox1.RowSource = ""
    'Show all records of Database on Sheet1
    If .FilterMode Then .ShowAllData
    Set k = .Range("D2:D65536").Find([B][COLOR="Red"]TextBox1.Text[/COLOR][/B] & "*", , xlValues, xlWhole)
    If Not k Is Nothing Then
        adrs = k.Address
        Do
            a = a + 1
            ReDim Preserve myarr(1 To 12, 1 To a)
            For j = 1 To 12
                myarr(j, a) = .Cells(k.Row, j).Value
            Next j
            Set k = Range("D2:D65536").FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adrs
        ListBox1.Column = myarr
    End If
End With
End Sub

 

[o2l3m]

Textbox 15 de arama yapınca Listbox da başlıklar siliniyor.
Bir de Textbox15 de içeren kelimeye göre sezgisel arama yapılabilir mi dosya numarası araması yapılırken.

Teşekkürler,

 

[Orion1]

Textbox 15 de arama yapınca Listbox da başlıklar siliniyor.
Bir de Textbox15 de içeren kelimeye göre sezgisel arama yapılabilir mi dosya numarası araması yapılırken.

Teşekkürler,

sütun başlıkları sadece rowsorce metodunda yapılabilir.
Diğer metodlarda başlık olamaz.Başlık yapmak için listboxun üstüne userforma labeller ekleyerek ve onlara captionlarına veri yazarak yapapbilirsiniz.
Sezgiselden kastınız nedir biraz açıklarsanız!

 

[o2l3m]

İçeren kelimeye göre filtreleme yaparak sonuçları gösterse

 

[Orion1]

İçeren kelimeye göre filtreleme yaparak sonuçları gösterse

Buyurun.

Set k = .Range("D2:D65536").Find(TextBox1.Text, , xlValues, xlPart)