listbox yardım

[otokoc]

comboboxla C satırında secim yapmama rağmen listboxda A ve B satırlarında süzme yapamıyorum.dosyam ektedir.
tesekkürler.

 

[Orion1]

Dosya ekte.

Sub suz()
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
[a1:c500].AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Sheets("Sayfa1").Range("E1:E2"), Unique:=False
End Sub

 

[otokoc]

sayın evren cok tesekkür ederim.tam istediğim gibi emeğine sağlık.
sayenizde güzel bi sözlük olacak.esen kalın

 

[Orion1]

sayın evren cok tesekkür ederim.tam istediğim gibi emeğine sağlık.
sayenizde güzel bi sözlük olacak.esen kalın

Rica ederim.
iyi çalışmalar.

 

[LUCENT31M]

Otokoc arkadaşım eline sağlık çok güzel olmuş.Kodun ana yapısını kullanıp, benim programda listeleme yapmak istiyorum.senin yaptığında 1 kelime karşılık karşıda bir kelime çıkıyor,onuda listboxa yazıyor.benim programda sıra no/gelen kurum/tarih/no/konu/ilişiği ve cinsi var..ben aramayı gelen kurum ve konuya göre ayrı textbox'lardan yapmak istiyorum. gelen kuruma göre kodu uyarladım.ancak sadece ilk sütunu görebiliyorum.gerci sıra numaları doğru.ancak benim istediğim yedi sütünuda göstersin.sanırım anlatabildim.yardımcı olursanız sevinirim.

 

[Ferhat Pazarçevirdi]

Otokoc arkadaşım eline sağlık çok güzel olmuş.Kodun ana yapısını kullanıp, benim programda listeleme yapmak istiyorum.senin yaptığında 1 kelime karşılık karşıda bir kelime çıkıyor,onuda listboxa yazıyor.benim programda sıra no/gelen kurum/tarih/no/konu/ilişiği ve cinsi var..ben aramayı gelen kurum ve konuya göre ayrı textbox'lardan yapmak istiyorum. gelen kuruma göre kodu uyarladım.ancak sadece ilk sütunu görebiliyorum.gerci sıra numaları doğru.ancak benim istediğim yedi sütünuda göstersin.sanırım anlatabildim.yardımcı olursanız sevinirim.

Örnek bir dosya ilave ediniz.

 

[LUCENT31M]

hocam dosyam

Hocam programın sadece gelen evrak kısmı çalışıyor..listeleme kısmına gittiğimizde en sonda, gelen kuruma ve konuya göre listelemek istiyorum. listeleme kodunu sitede bir arkadaşın sözlük kısmında aldım.çok hoşuma gitti.yani1 harf bile yazınca list box'ta görüntü çıkıyor,2 ve 3.de seçenek azalıyor.benim istediğim listeleme seçenekleri B(gelen kurum) E(konu) sütunları. ama ben bunları yazsamda 7 sütünu görmek istiyorum.program ise sadece kayıt nosunu gösteriyor.diğerleri boş.yardımcı olursanız sevinirim.şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodları denermisiniz.

'GÖNDEREN KURUMA GÖRE LİSTELEME
Private Sub TextBox24_Change()
    Set SGE = Sheets("GelenEvrak")
    Kriter = TextBox24.Value
    If Kriter <> "" Then
    ListBox1.Clear
    ListBox1.RowSource = ""
    ListBox1.ColumnCount = 7
    ListBox1.ColumnWidths = "25;160;55;35;250;50;50"
 
    For Each H&#252;cre In SGE.Range("B1:B" & SGE.[B65536].End(xlUp).Row)
    If Evaluate("=UPPER(""" & H&#252;cre & """)") Like "*" & Evaluate("=UPPER(""" & Kriter & """)") & "*" Then
    ListBox1.AddItem
    ListBox1.List(Sat&#305;r, 0) = H&#252;cre.Offset(0, -1).Value
    ListBox1.List(Sat&#305;r, 1) = H&#252;cre.Value
    ListBox1.List(Sat&#305;r, 2) = Format(H&#252;cre.Offset(0, 1).Value, "dd.mm.yyyy")
    ListBox1.List(Sat&#305;r, 3) = H&#252;cre.Offset(0, 2).Value
    ListBox1.List(Sat&#305;r, 4) = H&#252;cre.Offset(0, 3).Value
    ListBox1.List(Sat&#305;r, 5) = H&#252;cre.Offset(0, 4).Value
    ListBox1.List(Sat&#305;r, 6) = H&#252;cre.Offset(0, 5).Value
    Sat&#305;r = Sat&#305;r + 1
    End If
    Next
    Else
    ListBox1.Clear
    End If
    Set SGE = Nothing
End Sub
 
'KONUYA G&#214;RE L&#304;STELEME
Private Sub TextBox25_Change()
    Set SGE = Sheets("GelenEvrak")
    Kriter = TextBox25.Value
    If Kriter <> "" Then
    ListBox1.Clear
    ListBox1.RowSource = ""
    ListBox1.ColumnCount = 7
    ListBox1.ColumnWidths = "25;160;55;35;250;50;50"
 
    For Each H&#252;cre In SGE.Range("E1:E" & SGE.[E65536].End(xlUp).Row)
    If Evaluate("=UPPER(""" & H&#252;cre & """)") Like "*" & Evaluate("=UPPER(""" & Kriter & """)") & "*" Then
    ListBox1.AddItem
    ListBox1.List(Sat&#305;r, 0) = H&#252;cre.Offset(0, -4).Value
    ListBox1.List(Sat&#305;r, 1) = H&#252;cre.Offset(0, -3).Value
    ListBox1.List(Sat&#305;r, 2) = Format(H&#252;cre.Offset(0, -2).Value, "dd.mm.yyyy")
    ListBox1.List(Sat&#305;r, 3) = H&#252;cre.Offset(0, -1).Value
    ListBox1.List(Sat&#305;r, 4) = H&#252;cre.Value
    ListBox1.List(Sat&#305;r, 5) = H&#252;cre.Offset(0, 1).Value
    ListBox1.List(Sat&#305;r, 6) = H&#252;cre.Offset(0, 2).Value
    Sat&#305;r = Sat&#305;r + 1
    End If
    Next
    Else
    ListBox1.Clear
    End If
    Set SGE = Nothing
End Sub

 

[LUCENT31M]

Hocam Allah Razı Olsun...gece gece aydınlattınız beni.bende bişiler deniyoum.saloun.Allah ne muradınız warsa versin...Hakkınızı Helal Edin...İyi Çalışmalar...