Combobox ile Listbox'a şartlı veri gönderilmesi

[gezgin-49]

Sayın üstadlarım, elimdeki bir combobox ile bir listBox' a excelde "Sayfa1" isimli bir sayfadaki verileri yazdırmak istiyorum, örneğin "ComboBox kutusunda "Sayfa1 A1 hücresindeki veri seçildiğinde ListBox kutusuna aynı sayfada B1 hücresindeki verileri göstermesini istiyorum, ancak yeni veri girdiğimde Listbox kutusundaki bilgiler kaybolacak yani listeleme yapmayacak bu konuda yardımlarınızı bekliyorum.
veri aralığı Sayfa1 A1:A20 (Combobox için)
Sayfa1 B1:B20 (ListBox için)

 

[N.Ziya Hiçdurmaz]

Yanıt

İki örnek hangisi işinize yarar ise kullanırsınız

Private Sub ComboBox1_Change()
Dim SUT As Integer
ListBox1.Clear
For SUT = 2 To Cells(65536, ComboBox1.ListIndex + 1).End(3).Row
ListBox1.AddItem Cells(SUT, ComboBox1.ListIndex + 1)
Next
End Sub
Private Sub UserForm_Initialize()
Dim SUT As Integer
For SUT = 1 To Sheets("Sayfa1").UsedRange.Rows.Count
ComboBox1.AddItem Cells(1, SUT)
Next
ComboBox1.ListIndex = 0
End Sub

Private Sub ComboBox1_Change()
Dim SUT As Integer
ListBox1.Clear
For SUT = 1 To Sheets("Sayfa1").UsedRange.Rows.Count
If ComboBox1 = Cells(SUT, "A") Then
Cells(SUT, "A").Select
ListBox1.AddItem Selection.Offset(0, 1).Value
End If
Next
End Sub
Private Sub UserForm_Initialize()
Dim SUT As Integer
For SUT = 1 To Sheets("Sayfa1").UsedRange.Rows.Count
ComboBox1.AddItem Cells(SUT, "A")
Next
ComboBox1.ListIndex = 0
End Sub

 

[gezgin-49]

Sayın Üstadım çok teşekkür ederim, işime yaradı