bu kod ile combobox a renk isim ve kodlarını alıyorum ama
renkleri göremediğim için çok anlamlı olmuyor
renkleri nasıl comboboxta görebilirim
Private Sub deneme2()
Dim LastRow As Long
Dim i As Long
With BSComboBox1
.ListWidth = 200
.ListRows = 100
.ColumnCount = 3
.ColumnWidths = ";;0"
.TextColumn = 3
LastRow = Sheets("Colors").Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To LastRow
.AddItem Sheets("Colors").Range("B1:B100").Cells(i, 1).Value
.List(.ListCount - 1, 1) = Sheets("Colors").Range("A1:A100").Cells(i, 1).Value
.List(.ListCount - 1, 2) = .List(.ListCount - 1, 0) & vbTab & .List(.ListCount - 1, 1)
Next i
End With
End Sub