listbox'dan listbox'a

[mgcaglayan]

Selamlar;
userformda iki listbox yer almaktadır.
listbox1 de A1:A2000 arasında yer alan veriler lestelenmekte, bu verilerden (örneğin A300 de yer alan) biri üzerine tıkladığımızda, Listbox2 da B:H arasında yer alan bilgilerin dökümü sağlabilirmi ? Daha kısa deyişle, List1 ile List2 arasında köprü oluşturabilir mi?

 

[Ali]

Sayın Mahmut Beyin bir çalışması var onu ekledim bir inceleyin

 

[Ali]

Oradaki ekle butonun kodları yerine
ListBox1.RowSource = "Sayfa1!A1:A2000" 'Listeye alacağın verilerin kaynağını seç.

 

[mgcaglayan]

Teşekkürler,
Ancak, istenen çalışma bu değil. List1 içindeki veri üzerine tıkladığımızda list2 içersinde B:H sütununda yer alan başlık (tabi bu arada userforma label yerleşmiş olacak) altında ilgili satır tamamen görünecek.
Anlatabildiğim kadar dosya ekte

 

[Ali]

Dosyanı eklermisin

 

[mgcaglayan]

Gönderilmiştir.

 

[Levent Menteşoğlu]

Listbox1 e aşağıdaki kodu yazın. Ayrıca listbox2 nin kolon sayısınıda properties penceresinden 3 yapın.

[vb:1:018a402fe3]Private Sub ListBox1_Click()
sat = ListBox1.ListIndex + 1
adr = "b" & sat & ":d" & sat
ListBox2.RowSource = adr
End Sub
[/vb:1:018a402fe3]

 

[mgcaglayan]

Sonsuz Teşekkürler