listbox'a süz...

[aliakgul]

İyi akşamlar,
Formdaki combobox'da seçtiğim müşteri ile ilgili kayıtların listbox'da listelenmesini istiyorum. Benim formda ise tüm kayıtlar listeleniyor. Seçilen müşterinin tüm kayıtlarının sadece bir sütundaki bilgileri olsa kolay ama, ben ilgili kayıtlardaki birden fazla sütunu süzdürmek istiyorum...
İlgilenenlere teşekkür ederim...

 

[Orion1]

İyi akşamlar,
Formdaki combobox'da seçtiğim müşteri ile ilgili kayıtların listbox'da listelenmesini istiyorum. Benim formda ise tüm kayıtlar listeleniyor. Seçilen müşterinin tüm kayıtlarının sadece bir sütundaki bilgileri olsa kolay ama, ben ilgili kayıtlardaki birden fazla sütunu süzdürmek istiyorum...
İlgilenenlere teşekkür ederim...

Hangi aralığı süzmek istiyorsunuz?

 

[aliakgul]

Merhaba,
Şu anda comboboxda bir müşteri seçtiğimde, listboxda tüm müşterilerle ilgili kayıtlar listeleniyor. Ben sadece seçilen müşteri ile ilgili kayıtları listeletmek istiyorum...

 

[Orion1]

Merhaba,
Şu anda comboboxda bir müşteri seçtiğimde, listboxda tüm müşterilerle ilgili kayıtlar listeleniyor. Ben sadece seçilen müşteri ile ilgili kayıtları listeletmek istiyorum...

Buraya Müşterilerinin hangi kolonda olduğunu ve bilgilerinin hangi kolonda olduğunu yazmamışsınız.Ben kendime göre kodları yazarsam sonra siz o kodları kendinize göre uyarlayabilecekmisiniz?Öyleyse ben kodları yazıp yollayım.Zaten Bu kolonları söylemediğinize göre ben bu şekilde algıladım.Ben kodları yazıp yollayım siz kendinize göer ayarlayın.

 

[aliakgul]

Müşteriler C kolonunda yer alıyor. B,C,D,E,F,G kolonlarını listeletmek istiyorum ama ilerde kolon sayısını arttırabilirim.

 

[Orion1]

B,C,D,E,F,G kolonlarını listeletmek istiyorum ama ilerde kolon sayısını arttırabilirim.

Aranacak veri B sütunundamı?

 

[aliakgul]

Müşteriler C sütununda yer alıyor.Ben B,D,E,F,G sütunlarını listelentmek istiyorum.

 

[Orion1]

Eğer daha önceki kodlarda listboxa rowsource metodu ile veriler alınmışsa o satır silmeniz gerekir.Aksi takdirde kodlar çalışmaz hata verir.
Kodlar aşğıda .dosyada ekte.

Private Sub CommandButton1_Click()
Dim k  As Range, a As Long, ilk_adr As String, t As Byte
ListBox1.Clear
ReDim myarr(1 To 6, 1 To 1)
Set k = Range("C:C").Find(ComboBox1.Value, , xlValues, xlWhole, , xlNext)
If Not k Is Nothing Then
    ilk_adr = k.Address
    Do
        a = a + 1
        ReDim Preserve myarr(1 To 6, 1 To a)
        For t = 1 To 6
            myarr(t, a) = k.Offset(0, t - 2).Value
        Next t
        Set k = Range("C:C").FindNext(k)
    Loop While k.Address <> ilk_adr And Not k Is Nothing
    ListBox1.Column = myarr
End If
End Sub

 

[aliakgul]

Benim çalışmaya uyarlayamadık hocam yani çalıştıramadık... Benim dosya üzerinde bir inceleme fırsatın olursa sevinirim...