Combobox'dan Listview'e veri aktarma

[seddur]

Merhaba.Combobox1'de yılın ayları var ve ben bu 12 ayı listview1'e döngü ile yada satır satır yazarak aktarmak istiyorum.Yani listview 12 satır olacak. Yardımcı olacak arkadaşa Teşekkür ederim.

 

[Orion1]

Buyurun.

Dim i As Byte
ListView1.ListItems.Clear
For i = 1 To 12
ListView1.ListItems.Add , , ComboBox1.List(i - 1, 0)
Next

 

[Orion1]

Dosyayı buraya ekledim.

 

[seddur]

Merhaba dosyanıza bir ilave yaptım.Buna göre listview 1.sutununa sayfa1 deki veriye göre Her ayın DOLU sayısını,.2.sutuna ise BOŞ sayısını yazdırmak istiyorum.Yardımcı olabilirseniz sevinirim.

 

[Orion1]

AY adlarında son harflerden sonra boşluk var.Ekim ayında bilhassa.
Dosyayı ekliyorum.

Private Sub CommandButton1_Click()
Dim i As Long, dolu As Long, bos As Long
ListView1.ListItems.Clear
For i = 1 To 12
    ListView1.ListItems.Add , , ComboBox1.List(i - 1, 0)
    dolu = WorksheetFunction.CountIfs(Range("D2:D" & Rows.Count), ComboBox1.List(i - 1, 0), _
    Range("F2:F" & Rows.Count), "DOLU")
    ListView1.ListItems(i).SubItems(1) = dolu
    bos = WorksheetFunction.CountIfs(Range("D2:D" & Rows.Count), ComboBox1.List(i - 1, 0), _
    Range("F2:F" & Rows.Count), "")
    ListView1.ListItems(i).SubItems(2) = bos
    dolu = 0
    bos = 0
Next
End Sub

 

[seddur]

Tamam Ekim aylarını düzelttim.Yardımlarınız için tekrar Teşekkür ederim.

 

[Orion1]

Kolay gelsin.