• DİKKAT

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

listbox yardım

O

otokoc

Katılım
21 Şubat 2007
Mesajlar
36
Excel Vers. ve Dili
2003
comboboxla C satırında secim yapmama rağmen listboxda A ve B satırlarında süzme yapamıyorum.dosyam ektedir.
tesekkürler.
 
Dosya ekte.:cool:
Kod: 
Sub suz()
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
[a1:c500].AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Sheets("Sayfa1").Range("E1:E2"), Unique:=False
End Sub
 
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
 
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.
 
LUCENT31M' Alıntı:
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.
Genişletmek için tıkla ...
Örnek bir dosya ilave ediniz.
 
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.
 
Selamlar,

Aşağıdaki kodları denermisiniz.

Kod: 
'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
 
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...
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst