listbox

[arifcell]

Sayın arkadaşlar merhaba
listbox rowsource ozellıgını kullanarak ıstedıgım 1 ve 2 sutunları yazdırıyorum
Additem'i kullanarak 1 ve 2. sutunda bulunan degerlerı listboxsa yanyana yazdıramadım.
kısacası demek ıstedıgım su:
*listbox'ın 1 sutuna A1 dekı deger
*listbox'ın 2 sutuna b1 dekı deger yazmak ıstıyorum

herkese teşekkur ederım.

 

[nziya]

Private Sub UserForm_Initialize()
ListBox1.ColumnHeads = True 'SÜTUN BAŞLIKLARINI GÖSTERİR
ListBox1.ColumnCount = 2 'GÖSTERİLECEK SÜTUN SAYISINI BELİRLER
ListBox1.RowSource = ("A1:B65536") 'VERİ ARALIĞINI SEÇER
End Sub

 

[Ongun]

Merhaba,

ListBox1.ColumnCount = 15 ' sütun sayısı
ListBox1.ColumnWidths = "80;250;100;350;250;250;100;350;250;250;100;350;250;250;100" ' sutun genişliği
adres = "Sayfa1İ!A1:O5000" & a + 1 'veriyi alacağınız sayfa adı ve veri alınacak sutunlar
ListBox1.RowSource = adres ' verilerin lisbox`da gösterilmesi