listboxta renkli hücrelerin gözükmesi

[muratozmenler]

listboxta a sütununda kırmızı renkli olan hücreleri ve karşılığı olan f hücresindeki veriyi nasıl gösteririz. listboxta sadece a ve f sütunu gözükecek yani

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Private Sub UserForm_Initialize()
    With ListBox1
    .Clear
    .ColumnCount = 2
    .ColumnWidths = "50;50"
    
    For X = 1 To Range("A65536").End(3).Row
    If Cells(X, 1).Interior.ColorIndex = 3 Then
    .AddItem
    .List(Satır, 0) = Cells(X, 1)
    .List(Satır, 1) = Cells(X, 6)
    Satır = Satır + 1
    End If
    Next
    
    End With
End Sub

 

[muratozmenler]

çok teşekkür ederim...
Iyi çalışmalar dilerim...