combobox ve listbox ilişkisi

[Erdinç FIRTINA]

Değerli forum üyeleri,
Belirli bir sütundaki veriler ölçüt olarak belirlenip, sadece o sütundaki veriler listboxa alınıyor. B sütunundan sonra gelen C,D,E,F,G vb. sütunlardaki verileri de alabilmek için kodda ne gibi bir değişiklik yapılmalıdır?

Private Sub ComboBox1_Change()
ListBox1.Clear
For suz = 1 To WorksheetFunction.CountA(Range("b1:b65536"))
If Range("b" & suz) Like ComboBox1 & "*" Then
ListBox1.AddItem
s = s + 1
ListBox1.List(s - 1, 0) = Range("b" & suz)
End If
Next
End Sub


Yardımlarınız için şimdiden teşekkürler!!!

 

[Orion1]

Aşağıdaki kodlar işinizi görür.

Private Sub ComboBox1_Change()
ListBox1.ColumnCount = 6
ListBox1.Clear
For suz = 1 To Cells(65536, "B").End(xlUp).Row
If Range("b" & suz) Like ComboBox1 & "*" Then
ListBox1.AddItem
For k = 2 To 7
    ListBox1.List(s, k - 2) = Cells(suz, k).Value
Next k
s = s + 1
End If
Next
End Sub

 

[Erdinç FIRTINA]

Sayın Orion2,
Yardımlarınız için çok teşekkür ederim. Ancak error veriyor. Dosyamı ekte sunuyorum bir bakabilirseniz çok sevinirim.

Şimdiden çok teşekkürler!!!

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub ComboBox1_Change()
Dim s As Long, k As Byte
ListBox1.ColumnCount = 23
ListBox1.Clear
ReDim myarr(1 To 23, 1 To 1)
For suz = 1 To Cells(65536, "B").End(xlUp).Row
If Range("b" & suz) Like ComboBox1 & "*" Then
s = s + 1
ReDim Preserve myarr(1 To 23, 1 To s)
For k = 1 To 23
    myarr(k, s) = Cells(suz, k + 1).Value
Next k
End If
Next
ListBox1.Column = myarr
End Sub

 

[Erdinç FIRTINA]

Sayın Orion2,
Yardımlarınız için çok teşekkürler!
Ama yine de error veriyor.
Şöyleki, silinecek veya düzeltilecek bir veri seçebilmek için comboboxa harf girdiğimde (bu harf girişinin de küçük-büyük duyarlı olması ile ilgili zannettim ama değilmiş) error veriyor.
Ayrıca listboxta 25 veri gözükmüyordu ama onu hallettim herhalde.

Eğer yardım edebilirseniz çok sevinirim.

 

[Orion1]

Hata düzeltildi.
25.nci kolon dahl edildi.
Ayrıca Küçük büyük harfe duyarsızlaştırıldı.
Ekli dosyayı incleyiniz.

 

[Erdinç FIRTINA]

Sayın Orion2,
Yardımlarınız için çok ama çok teşekkür ediyorum.
Ancak sil ve düzelt kodları daha hala çalışmıyor. Sitedeki değerli ustaların yardımını bekliyorum.