Listbox hakkında!!!

[djoguzz]

Arkadaşlar herkese merhaba öncelikle,

Ekteki dosyada bir listbox mevcut. Şimdi benim sorum bu listbox ile nasıl exceldeki verileri görüp verilere tıkladığımızda textboxlara atabiliyoruz. Ayrıca textboxa girilen verileri her seferinde excelde verinin bi altındaki boş stunlara ekliyor (end x lup olayı oluyor bu sanırım). öncelikle bunları açıklayabilir misiniz acaba? mesela ben bu tabloda yan tarafta bir stünun daha listboxta görülmesini istersem ne yapmam gerekir?

 

[Mustafa MUTLU]

Private Sub UserForm_Initialize()

With UserForm1.ListBox1
.BackColor = vbYellow ' ListBox zemin Rengi
.ColumnCount = 2 ' Kaç sütun görmek istiyorsun ?
.ColumnWidths = "20;50" ' Sütunların Listboxtaki genişlikleri
If Sheets("Sayfa1").Range("B2") = Empty Then ' Veri aldığı sayfa
.RowSource = Empty
Else
.RowSource = "Sayfa1!B2:Z" & [Sayfa1!B65536].End(3).Row ' Verilerin olduğu sutun ve satırlar
End If
End With
End Sub

Private Sub ListBox1_Click()
Cells(ListBox1.ListIndex + 2, 1).Select
TextBox1.Text = Cells(ActiveCell.Row, "b")
TextBox2.Text = Cells(ActiveCell.Row, "c")
End Sub

Burada Text leri istediğin kadar artırabilirsin.

 

[djoguzz]

Private Sub UserForm_Initialize()

With UserForm1.ListBox1
.BackColor = vbYellow ' ListBox zemin Rengi
.ColumnCount = 2 ' Kaç sütun görmek istiyorsun ?
.ColumnWidths = "20;50" ' Sütunların Listboxtaki genişlikleri
If Sheets("Sayfa1").Range("B2") = Empty Then ' Veri aldığı sayfa
.RowSource = Empty
Else
.RowSource = "Sayfa1!B2:Z" & [Sayfa1!B65536].End(3).Row ' Verilerin olduğu sutun ve satırlar
End If
End With
End Sub

Private Sub ListBox1_Click()
Cells(ListBox1.ListIndex + 2, 1).Select
TextBox1.Text = Cells(ActiveCell.Row, "b")
TextBox2.Text = Cells(ActiveCell.Row, "c")
End Sub

Burada Text leri istediğin kadar artırabilirsin.

Hocam cevap için teşekkürler öncelikle,
yapmaya çalıştım ama beceremedim hocam benim istediğim şimdi eklediğim dosyada "müsteri" isimli sheets var. sayfa 1 deki butonla açılan formdaki listboxta "müsteri" sayfasının a2 ve a65536 arasındaki verileri alt alta versin bunlardan birine tıkladığımda yukardaki textboxlara sütün şeklinde verileri atsın. yani örnek vereyim, ekteki tabloda müsteri sayfasında a2 de "mehmet kurtuluş" ismi var form açıldığında listboxta mehmet kurtuluş görünecek sadece. sonra listboxta mehmet kurtuluş'a tıkladığımda diğer bilgiler yani b stünu c stünu d stünu e stünu textboxlara aktarılacak. bilmem anlatabildim mi


dosya eklendi hocam

 

[Mustafa MUTLU]

Al Kardeşim.

 

[djoguzz]

hocam eyvallah saolasın son bir sorum kaldı senide yordum kusura kalma

şimdi listboxa başka sayfadan veri almayı becerdim yani sayfa 1 de form açılıyor ama listbox "müsteri" sayfasından veriyi alıyor ancak listboxa tıkladığımda textbox a atmıyor. yani başka sayfadan veri çektiğimizde textboxlara nasıl aktarabilirim?