listboxa veri alma

[metinozlu]

data sayfası a ve d sütunlarıdaki verileri başka bir sayfaya almadan listbox1 in 1. ve 2. sütunlarına nasıl alınabilir

• ?

 

[Levent Menteşoğlu]

Userforma aşağıdaki kodu yazarak deneyin.

[vb:1:9977a4e28e]Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2
For sat = 1 To Sheets("data").Cells(65536, 1).End(xlUp).Row
ListBox1.AddItem
ListBox1.List(sat - 1, 0) = Sheets("data").Cells(sat, 1).Value
ListBox1.List(sat - 1, 1) = Sheets("data").Cells(sat, 4).Value
Next
End Sub[/vb:1:9977a4e28e]

 

[metinozlu]

veriler geliyor
teşekkür ederim