ComboBox İle Liste Alma Sorunu!

[ocamsul]

Arkadaşlar aşağıdaki Kod dizisi ile ComboBox da seçmiş olduğum veriye ait listeyi almaya çalışıyorum ancak sorun nerde çözemedim ilgili kodlar A4 hücresinden itibaren sıralanıyo yani A4 de seçilen değere ait verileri sıralayacak. Yardımlarınızı bekliyorum arkadaşlar.

 

[Levent Menteşoğlu]

Comboboxtaki kodu aşağıdaki ile değiştirin.

Private Sub ComboBox1_Change()
ListBox1.Clear
son = Cells(65536, 1).End(xlUp).Row
For i = 1 To son
If Cells(i, 1).Value = ComboBox1.Text Then
c = c + 1
ListBox1.AddItem
For Y = 1 To 10
ListBox1.List(c - 1, Y - 1) = Cells(i, Y).Value
Next
End If
Next
End Sub

 

[ocamsul]

Sn: leventm

Üsdadım çok teşekkür ederim. Sağolun.

 

[ocamsul]

Arkadaşlar öncelikle herkese iyi çalışmalar dilerim sorum binevi listeleme ile ilgili olduğu için buraya yazdım Userform üzerinde 3 adet OptionButton mevcut üzerlerindede hangi satırlar arası listeleme yapacağı açıklanmış. Örneğin a4'den a7'ye kadar listele seçeneği seçildiğinde a4 ile a7 arasında H sütununa kadar olan aralığı ListBox da listelemesini sağlamak istiyorum. Yardımlarınızı bekliyorum.

 

[veyselemre]

Userformun kod sayfasına aşağıdaki kodları ekleyin,

Sub ekle(bas, son)
ListBox1.Clear
For i = bas To son
    c = c + 1
    ListBox1.AddItem
        For Y = 1 To 10
            ListBox1.List(c - 1, Y - 1) = Cells(i, Y).Value
        Next
Next
End Sub
Private Sub OptionButton1_Click()
    Call ekle(4, 7)
End Sub
Private Sub OptionButton2_Click()
    Call ekle(8, 10)
End Sub
Private Sub OptionButton3_Click()
    Call ekle(4, 17)
End Sub

 

[ocamsul]

veyselemre üsdat teşekkür ederim. ellerine sağlık. tam istediğim gibi.