LİSTEBOX LİSTELEMEDE SORUN

[pointlesbj]

LÝSTEBOX LÝSTELEMEDE SORUN

ARKADAÞLAR,

EKDEKİ DOSYADA LİSTBOX İLK 4 KOLUNU LİSTELİYOR BUNU 6 YADA DAHA FAZLA KOLON EKLEMEK İÇİN GEREKLİ KODU YAZABİLİRSENİZ ÇOK SEVİNİRİM

SAYGILAR

 

[Merhum İdris SERDAR]

Kodunuzda 4 olanı 6 ( veya kaç kolon aldıracaksanız) yapın.

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 6
For a = 1 To Cells(65536, 1).End(xlUp).Row
If Cells(a, 1).Value <> 0 Then
c = c + 1
For b = 1 To 6
ListBox1.AddItem
ListBox1.List(c - 1, b - 1) = Cells(a, b).Value
Next
End If: Next
End Sub

 

[pointlesbj]

ÇOK TEÞEKKÜR EDERİM

SAYGILAR