[Yardım]  ComboBox ta iki kolon

Açılır liste kutusu.

ComboBox ta iki kolon

İleti#1)  KarıncaZ » 02 Ekm 2017 01:34

Merhaba

ComboBox1 ve ComboBox2 nesnelerim var. ComboBox1 de Hesap Kodları var. ComboBox2 de de alt hesaplarıyla birlikte koşula göre liste alıyorum. Combobox2 de değişince ListView e listelemek istiyorum ancak bir türlü yapamadım.

Private Sub ComboBox1_Change()
Set s2 = Sheets("Hesaplar")
sat2 = s2.Cells(65536, 1).End(xlUp).Row

ComboBox1.RowSource = ""
ComboBox1.ColumnCount = 2

For s = 2 To sat2
If Left(s2.Cells(s, "A"), 3) = CStr(ComboBox2.Value) Then
ComboBox1.AddItem s2.Cells(s, "A") & " " & s2.Cells(s, "B")
'// Bu şekilde iki kolonu çekiyorum ancak diğer ComboBox2 değişince kod çalışmıyor.
'// ComboBox1.AddItem s2.Cells(s, "A")
'// İle veri çekince ComboBox2 değişince kod çalışıyor
End If
Next
End Sub


Private Sub ComboBox2_Change()
ListView1.View = lvwReport
Set S1 = Sheets("Muavin")
say = S1.Range("A65536").End(xlUp).Row
ListView1.ListItems.Clear
With ListView1
j = 1
For j = 1 To say
If CStr(S1.Cells(j, 1)) = CStr(ComboBox1) Then
i = ListView1.ListItems.Count + 1
.ListItems.Add , , S1.Cells(j, 1)
.ListItems(i).SubItems(1) = S1.Cells(j, 2)
.ListItems(i).SubItems(2) = S1.Cells(j, 3)
.ListItems(i).SubItems(3) = S1.Cells(j, 4)
.ListItems(i).SubItems(4) = S1.Cells(j, 5)
.ListItems(i).SubItems(5) = S1.Cells(j, 6)
.ListItems(i).SubItems(6) = Format(S1.Cells(j, 7), "##,##0.00")
.ListItems(i).SubItems(7) = Format(S1.Cells(j, 8), "##,##0.00")
.ListItems(i).SubItems(8) = Format(S1.Cells(j, 9), "##,##0.00")
End If
If j Mod 1 = 0 Then
End If
Next

End With

ListView1.ColumnHeaders(7).Alignment = lvwColumnRight
ListView1.ColumnHeaders(8).Alignment = lvwColumnRight
ListView1.ColumnHeaders(9).Alignment = lvwColumnRight

ListView1.FullRowSelect = True
End Sub

ComboBox ı iki sütun yapıp her iki sütunada ayrı ayrı veriyi nasıl çekebiliriz.
Kullanıcı avatarı
KarıncaZ
Yeni Başlamış
 
Adı Soyadı:Zülfü YORULMAZ
Kayıt: 04 Nis 2009 23:32
Konum: KOCAELİ
Meslek: SMMM
Yaş: 39
İleti: 29
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KOCAELİ/DERİNCE

Forum ComboBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe