aşağı doğru olan verilerden istediğimizi seçmek

[ahsen]

selam arkadaşlar.
şöyle bir örneğim var:

A sütunu
1
Ali
Ayan
2
Sami
Topal
3
Candan
Kocaman
4
Necla
Tüfekçi
5
vs.

120 adet sütunda böyle alt alta veriler var. listbox1 yardımı ile sütun seçiyorum.
listbox2 de de 1 den 150ye kadar rakamlar var.

listbox2 de 2 yi tıkladığım zaman
label1 de SAMİ
label2 de TOPAL

4 ü tıklarsam
label1 de NECLA
label2 de TÜFEKÇİ

yazmasını istiyorum.
yardıcı olursanız sevinirim. hepinize teşekkürler. :hey:

 

[veyselemre]

eki inceleyin

 

[ahsen]

sn veyselemre harikasınız. çok teşekkür ederim sağolun. :mutlu: :mutlu: :mutlu:

 

[ahsen]

selam
ekteki çalışmaya birçift optionbutton ekledim.
sayfa 2 ye de sayfa 1 de olan verileri sütunlar halinde yer değiştirdim.
Yani sayfa1 alfabetik(sütun isimleri)
sayfa2 ise karışık

alfabtik seçili iken 1.sayfa daki
karışık seçili iken 2.sayfa daki (1. satırdaki sütun başlıklarına göre)
verilerin gösterilmesi şeklinde nasıl değiştirebiliriz?

yardımlarınız için teşekkür ediyorum :dua:

 

[veyselemre]

[vb:1:28e1cae79f]Private Sub ListBox2_Click()
Label1 = ""
Label2 = ""
On Error Resume Next

bul = Columns(ListBox1).Find(ListBox2).Row

If bul > 0 Then
Label1 = Cells(bul + 1, ListBox1)
Label2 = Cells(bul + 2, ListBox1)
End If

End Sub

Private Sub OptionButton1_Click()
Sayfa1.Select
End Sub

Private Sub OptionButton2_Click()
Sayfa2.Select
End Sub

Private Sub UserForm_Activate()
For x = 1 To 120
ListBox1.AddItem x
Next
For x = 1 To 150
ListBox2.AddItem x
Next
ListBox1.ListIndex = 0
ListBox2.ListIndex = 0
End Sub
[/vb:1:28e1cae79f]