Sütun başlıklarını combobox'a, içeriğini listbox'da listelemek

[EKREM1661]

Saygıdeğer Arkadaşlar..!

Bazı sütun başlıklarını combobox kutusuna yükleyip, ondan yapacağım seçim ile, o sütuna ait verileri listbox'da listelemek istiyorum. Göz bulandırmayacak sade bir dosya hazırladım..

Arkadaşlarımız bu işi çözerse çok makbule geçecek..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodları denermisiniz.

Private Sub ComboBox1_Change()
    Dim X As Long, BUL As Range
    
    ListBox1.Clear
    
    If ComboBox1 <> Empty Then
        Set BUL = Rows("5:5").Find(ComboBox1)
        If Not BUL Is Nothing Then
            For X = 6 To Cells(65536, BUL.Column).End(3).Row
                If WorksheetFunction.CountIf(Range(Cells(6, BUL.Column), Cells(X, BUL.Column)), Cells(X, BUL.Column)) = 1 Then
                    ListBox1.AddItem Cells(X, BUL.Column)
                End If
            Next
        End If
        Set BUL = Nothing
    End If
End Sub
 
Private Sub UserForm_Initialize()
    Dim X As Byte
    
    For X = 5 To 18
        If X <> 11 And X <> 12 And X <> 15 And X <> 17 Then
            ComboBox1.AddItem Cells(5, X)
        End If
    Next
End Sub

 

[EKREM1661]

Saygıdeğer hocam, Korhan Bey..! Çok gayet güzel ve net bir çözüm olmuş.. çok teşekkür ediyorum ve size hayat boyu başarılar diliyorum. Hoşça kalın.. (yardımınız başım üstüne)