Combobox ile listboxa filitre uygulama

[drkdrk]

Combobox ile listboxa filitre uygulama (çözüldü)

Arkadaşlar selam

Formda aradım bir çok combobox ile süzme ve listbox görüntüleme bilgisi buldum fakat benim istediğim özellikte olmadığı için konu açtım. Eğer yanlış yada doğru yerde değilse hemen kilitlenip silinebilir.

Ekteki dosyamda herşeyi anlattım. Yapmak istediğim excelldeki tablolarıma göre comboboxlardan veri süzüp listboxa filitre uygula ve kaldır butonları ile süzülü veriyi listeleyip kaldırmak istiyorum. yardımlarınıza çok ihtiyacım var.

dosyam ektedir.

 

[drkdrk]

yardımcı olabilecek kimse yok mu arkadaşlar?

 

[drkdrk]

arkadaşlar yardımcı olabilecek yokmu? Süzme işlemini nasıl yapabilirim? Çok acil lazım

 

[drkdrk]

Private Sub UserForm_Initialize()

ListBox1.ColumnCount = 2 ' lisbox'ta ki sütun sayısı
ListBox1.ColumnWidths = "100" 'lisbox'taki sütunların genişliği
ListBox1.RowSource = "KL!A4:B4" & Sheets("KL").Range("A5000").End(xlUp).Row 'lisbox'ta gösterilecek hücre aralığı
ListBox1.ColumnHeads = True 'listboxta birinci satırı sabitler tıklanmaz

Dim m As Integer
    For m = 4 To Range("C5000").End(3).Row
    If WorksheetFunction.CountIf(Range("C4:C" & m), Cells(m, "C")) = 1 Then
    ComboBox6.AddItem Cells(m, "C")
    End If
    Next m
    
Dim x As Integer
    For x = 4 To Range("D5000").End(3).Row
    If WorksheetFunction.CountIf(Range("D4:D" & x), Cells(x, "D")) = 1 Then
    ComboBox7.AddItem Cells(x, "D")
    End If
    Next x

Dim W As Integer
    For W = 4 To Range("G5000").End(3).Row
    If WorksheetFunction.CountIf(Range("G4:G" & W), Cells(W, "G")) = 1 Then
    ComboBox8.AddItem Cells(W, "G")
    End If
    Next W

Dim FQQ As Integer
    For FQQ = 4 To Range("Q5000").End(3).Row
    If WorksheetFunction.CountIf(Range("Q4:Q" & FQQ), Cells(FQQ, "Q")) = 1 Then
    ComboBox9.AddItem Cells(FQQ, "Q")
    End If
    Next FQQ

Dim H As Integer
    For H = 4 To Range("R5000").End(3).Row
    If WorksheetFunction.CountIf(Range("R4:R" & H), Cells(H, "R")) = 1 Then
    ComboBox10.AddItem Cells(H, "R")
    End If
    Next H

Dim Z As Integer
    For Z = 4 To Range("F5000").End(3).Row
    If WorksheetFunction.CountIf(Range("F4:F" & Z), Cells(Z, "F")) = 1 Then
    ComboBox11.AddItem Cells(Z, "F")
    End If
    Next Z

Dim RQ As Integer
    For RQ = 4 To Range("M5000").End(3).Row
    If WorksheetFunction.CountIf(Range("M4:M" & RQ), Cells(RQ, "M")) = 1 Then
    ComboBox12.AddItem Cells(RQ, "M")
    End If
    Next RQ

Dim T As Integer
    For T = 4 To Range("K5000").End(3).Row
    If WorksheetFunction.CountIf(Range("K4:K" & T), Cells(T, "K")) = 1 Then
    ComboBox13.AddItem Cells(T, "K")
    End If
    Next T
    
Dim G As Integer
    For G = 4 To Range("E5000").End(3).Row
    If WorksheetFunction.CountIf(Range("E4:E" & G), Cells(G, "E")) = 1 Then
    ComboBox14.AddItem Cells(G, "E")
    End If
    Next G
    
Dim S As Integer
    For S = 4 To Range("J5000").End(3).Row
    If WorksheetFunction.CountIf(Range("J4:J" & S), Cells(S, "J")) = 1 Then
    ComboBox15.AddItem Cells(S, "J")
    End If
    Next S

Dim V As Integer
    For V = 4 To Range("L5000").End(3).Row
    If WorksheetFunction.CountIf(Range("L4:L" & V), Cells(V, "L")) = 1 Then
    ComboBox16.AddItem Cells(V, "L")
    End If
    Next V

Dim NX As Integer
    For NX = 4 To Range("P5000").End(3).Row
    If WorksheetFunction.CountIf(Range("P4:P" & NX), Cells(NX, "P")) = 1 Then
    ComboBox17.AddItem Cells(NX, "P")
    End If
    Next NX
    
Dim NXS As Integer
    For NXS = 4 To Range("T5000").End(3).Row
    If WorksheetFunction.CountIf(Range("T4:T" & NXS), Cells(NXS, "T")) = 1 Then
    ComboBox17.AddItem Cells(NXS, "T")
    End If
    Next NXS


End Sub

Arkadaşlar 1. mesajda eki düzenledim. Comboboxlara ve listboxa verileri yukarıdaki gibi aldırıyorum. Fakat 1 den fazla comboboxla verileri süzmek istiyorum ama beceremedim. Yani comboboxtan seçtiğim veri hemen listboxtanda süzülsün istiyorum. Comboboxlar bir biri ile uyumlu çalışmalı yani herhangi bir comboboxtan veri süzmüşsem 2.bir comboboxtan süzeceğim veri süzülmüş veri üzerinden olmalı. Yardımlarınızı bekliyorum. Çok acil

 

[drkdrk]

yardımcı olabilecek ?

 

[drkdrk]

arkadaşlar 1. mesajdaki dosyayı güncelledim soruma gelince:

comboboxtan seçilen veriler listboxta sıralanıyor. Yapmak istediğim listboxta filitrelenen veri listboxtan seçtiğimde doğru satır excelde seçili olsun. Yani listboxtaki seçilen veri excelde hangi satırdaysa o satırın ilk hücresi seçilsin istiyorum. Ayrıca comboboxtan süzme işlemi yaparken biraz işlem biraz yavaş kalıyor hızlı süzme işlemi yapabileceğim bir kod varsa düzenleyebilirsek çok iyi olur.

aslında formda bir konu buldum fakat orada ekli dökümanlar silinmiş üzerinden uzun zaman geçmiş. yardımlarınızı bekliyorum arkadaşlar allah rızasın için.

 

[drkdrk]

Arkadaşlar sorunlarımı hallettim. Buraya dosyayı tekrar ekleyeceğim bittiğinde. Şimdi şöyle birşey sormak istiyorum. 6 dan 18 kadar comboboxlarım var ben herhangi bir comboboxtan veri süzdüğümde diğer comboboxların bu süzülen veri içersinden veri alsın. Örneğin combobox8 den veri süzdüğümde diğer 6,7,9,10,11,12,13,14,15,16,17,18 comboboxlar bu süzülen değer içinden verileri alsın istiyorum. Umarım anlatabilmişimdir. Yardımcı olabilecek var mı acaba ?