listbox da göstermek

[ahsen]

selam
şöyle bir sorunum var
A1J1 satırında 1den 104 e kadar sıranumarası
A2J2 satırında da isimler var
2 sütunlu listbox1 de bu verileri nasıl sıralayabilirim
bununla ilgili kodu yazarsanız çok sevinirim.
teşekkürler.
bir de, vb veri tabanı hakkında öğretici, önerebileceğiniz bir kitap varmı acaba?

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:cc2dd75878]Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2
For a = 1 To 114
ListBox1.AddItem
ListBox1.List(a - 1, 0) = Cells(1, a).Value
ListBox1.List(a - 1, 1) = Cells(2, a).Value
Next
End Sub
[/vb:1:cc2dd75878]

 

[ahsen]

sn leventim teşekkürler.
izin verirseniz bir sorum daha olacak
listbox1 de herhangi bir veriyi seçtiğim zaman, o verinin bulunduğu kondaki 3. satıdan başlayıp aşağı doğru uzanan verileride listbox2 de görmek isityorum.
çok teşekkür ederim.

bir de, vb veri tabanı hakkında öğretici, önerebileceğiniz bir kitap varmı acaba?

 

[Levent Menteşoğlu]

1.sorunuz için aşağıdaki kodu deneyin. 2.sorunuz hakkında maalesef bilgi sahibi değilim.

[vb:1:d82d2e052b]Private Sub ListBox1_Click()
ListBox2.Clear
sut = ListBox1.ListIndex + 1
For b = 3 To Cells(65536, sut).End(xlUp).Row
ListBox2.AddItem
ListBox2.List(b - 3, 0) = Cells(b, sut).Value
Next
End Sub[/vb:1:d82d2e052b]

 

[abazya]

Merhaba:Sn ahsen

2.Sorunuza cevap olur kanısı ile şurayı bir inceleseniz ben de yeni buldum işinize yararsa kullanırsınız

http://www.advantageturk.com/DatabaseAdmin.aspx

 

[ahsen]

hepinize çok teşekkür ediyorum. :hey: :mutlu: :hey: