ListBox'da listeleme ve seçme

[imdatsaral]

Arkadaşlar,

Ekdeki dosyada Sayfa1 deki A B C sütunlarındaki verileri sayfa2 de bulunan ListBox'da görmek ve seçtiğim modeli C1 hücresine EDS Nosunu yazdırmak istiyorum
yardımcı olursanız sevinirim.

 

[scorpix]

selamlar

Ekteki Dosyayı inceleyiniz

 

[Orion1]

Dosyanız ekte.

Private Sub ListBox1_Click()
If ListBox1.ListCount > 0 Then Range("C1").Value = ListBox1.Column(0)
End Sub

Private Sub Worksheet_Activate()
ListBox1.ListFillRange = "Sayfa1!A2:C" & Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row
ListBox1.Height = 160
End Sub

 

[scorpix]

evren beyin çözümü herzamanki gibi daha iyi olmuş. Evren beyden dün öğrendiğim bişeyi burada kullana bilirsiniz. Çalışma sayfasındaki listbox ın özelliklerinden columnHeads ı True yaptığınızda Listboxın en üst satırında sutun başlıkları çıkacaktır.

iyiki varsın Evren

 

[imdatsaral]

Arkadaşlar elinize bilginize sağlık yardımlarınız için çok teşekkür ederim