listboxa veri almak

[memduh]

Merhaba arkadaşlar.
Listboxa D1 ile L1 Arası 1. satırdaki verileri dikey şekilde aldırabilirmiyim?

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:671601a0eb]For a = 4 To 12
ListBox1.AddItem
ListBox1.List(a - 4, 0) = Cells(1, a).Value
Next[/vb:1:671601a0eb]

 

[memduh]

Sayın Leventm Bey çok teşekkür ederim. Elinize sağlık.
İki Sorum daha olacak yardımcı olursanız sevinirim.
1-Verdiğiniz kodları Listbox3 ye aldım. Listbox1 e Comboboxa göre veri alıyorum. Sizin Fomülünüzle listbox3 e sabit veri alıyorum. Listbox1 Dolu olduğu zaman Listbox3 e veri gelsin boş olduğunda ise veri gelmesin.

2-Bu kodlarlada listbox2 veri alıyorum. Ayni Þekilde listbox1 boş olduğunda veri gelmesin dolu olduğunda listbox2 e veri gelsin.

Private Sub ListBox1_Click()
ListBox2.Clear
Satır = Sheets("Sayfa1").[c7:c500].Find(ListBox1).Row
ListBox2.AddItem "" & Sheets("sayfa1").Cells(Satır, 13)
ListBox2.AddItem "" & Sheets("sayfa1").Cells(Satır,14)
ListBox2.AddItem "" & Sheets("sayfa1").Cells(Satır, 15)
End Sub

Excel2003-Türkçe

 

[memduh]

Hallettim tüm arkadaşlara saygılar.