Listbox ile ilgili bir soru

[skyper]

Merhabalar,

Şöyle bir sorum olacak. Ekteki dosyadada görüleceği üzere bir matris var diyelim ve ortadaki hücreler bir ise listbox a en sol kolondaki 1 e karşılık gelen veriyi listbox a atmak istiyorum. Yani en sol kolondan başka 5 kolon var diyelim ve 5 tane de listbox var. 2. kolonda alt alta 1 ler olsun bu 1 lere karşılık gelen en soldaki kolondaki verileri ilgili listbox a atasın bunun için vba da vlookup fonksiyonunu mu kullanmam gerekir veya başka bir çözümü var mıdır ?

Teşekkürler, İyi ÇalışmalarEkli dosyayı görüntüle sample.xls

 

[Korhan Ayhan]

Selamlar,

İstediğiniz işlemi döngü ile rahatlıkla yapabilirsiniz. Ekteki örnek dosyayı incelermisiniz.

Option Explicit
 
Private Sub UserForm_Initialize()
    Dim X As Long, Satır As Long
    
    With ListBox1
        .Clear
        .ColumnCount = 2
        .ColumnHeads = False
        .ColumnWidths = "50;50"
    End With
    
    Satır = 0
    
    For X = 2 To [D65536].End(3).Row
        If Cells(X, 5) = 1 Then
        With ListBox1
            .AddItem
            .List(Satır, 0) = Cells(X, 4)
            .List(Satır, 1) = Cells(X, 5)
        End With
        Satır = Satır + 1
        End If
    Next
End Sub

 

[skyper]

Çok teşekkür ederim ilginize fakat şunu belirtmeyi unutmuşum burada bu 1 ler dinamik yani solverla yapılan bir hesaplamadan sonra kendisi biri mantığa göre yerşetiriyor bu 1 leri bu yüzden her seferinde bu farklı hücrelere gelen bu 1 leri nasıl atabilirim listboxa ?.

İyi Çalışmalar