listbox tan hücrelere veri aktarma

[serendal]

arkadaşlar bu konu ile ilgili hiç bir yerde bir ipucu bulamadım
değişik kombinasyonlar denedim ama yapamadım

ekte dosyayı gönderdim.listbox1 den seçtiğim isimleri listbox2 ye yazdırıyorum sonrada listbox2 deki isimlerin yazdır tuşuna bastığımda sayfa2 de F11 hücresinden başlayarak sırayla F12, F13 .... e yazılmasını istiyorum

örnek,listbox2 de aşağıdaki veriler yazıyorsa ,karşısındaki hücrelerdede o veriler yazsın

listbox2 sayfa2
AHMET F11
MEHMET F12
ZEYNEP F13
ERDİNÇ F14



yardımcı olursanız çok sevinirim

 

[hamitcan]

Private Sub CommandButton3_Click()
    c = 10
    For i = 0 To ListBox2.ListCount - 1
        c = c + 1
        Cells(c, "f") = ListBox2.List(i)
    Next
End Sub

şeklinde deneyin.

 

[serendal]

çok teşekkür ederim hamitcan aradığım tam olarak buydu
müsaitsen sana bir soru daha sormak istiyorum

ekte yine bir dosya gönderdim.
bu dosyadada listbox1 de seçilen isme karşılık sayfa2 de o ismin karşılığına gelen verileri listbox2 de tablo halinde görmek istiyorum.

sayfa1 de her isimden bir adet var ama sayfa2 de bir isimden birden fazla olanlarıda var
atıyorum ordaki isimlerden biri ADEM TEMUR u tıklayınca o kişiyle ilgili tüm bilgileri listbox2 de görebilirmiyim

bu konudada yardım edebilirsen çok sevinirim
başka sormıcam söz

 

[hamitcan]

Private Sub ListBox1_Click()
    Sayfa2.Range("$A$1:$M$500").AutoFilter Field:=1, Criteria1:=ListBox1.Column(0)
    Sayfa2.Range("b1:m" & [a65536].End(3).Row).Copy Sayfa3.[a1]
    ListBox2.RowSource = "sayfa3!a1:m500"
End Sub