satırda yazan verileri listboxta listeleme

[serendal]

ekte dosyayı gönderiyorum
combobox1 den seçilen değerin karşılığında satırda sağa doğu yazılan verileri
listbox1 de listelemek istiyorum

yardımcı olursanız sevinirim

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub ComboBox1_Change()
ListBox1.Clear
Sheets("sayfa1").Select
Range("A:A").Select
Selection.Find(ComboBox1).Select
For sut = 1 To 10
If Selection Like ComboBox1 Then
ListBox1.AddItem
ListBox1.List(s, 0) = Cells(Selection.Row, sut)
s = s + 1
End If: Next
End Sub

 

[serendal]

çok teşekkür ederim N.Ziya Hiçdurmaz
sizden rica etsem forumda başka bir sorum daha olmuştu o konuda da yardımcı olabilimisiniz
sorumun linki ;

http://www.excel.web.tr/f48/secilen-kriterlere-gore-listbox-ta-suzme-t61942.html#post337922