ListView'de Seçilen Ayı Listele

[unalh]

S.a Arkadaşlar.

Ekteki dosyada ListView''e listelenen verileri Seçilen aya göre listelemesini nasıl yapabiliriz.

"Cari kod bölümünden arama yapınca gelen verileri istediğim aya göre listelemek."


İlginize teşekkürler.

 

[Orion1]

Dosyanız ektedir.
Comboboxtan ay seçip bul butonuna basınız.

Private Sub CommandButton1_Click()
Dim ay As Integer
ListView1.ListItems.Clear
If ComboBox1.Value = "" Then Exit Sub
ay = ComboBox1.ListIndex + 1
c = WorksheetFunction.CountA(ActiveSheet.Range("B2:B65536")) + 1
With ListView1
    For i = 2 To c
        If Month(Cells(i, "C").Value) = ay Then
            X = X + 1
            .ListItems.Add , , Cells(i, 1)
            .ListItems(X).SubItems(1) = Cells(i, 3)
            .ListItems(X).SubItems(2) = Format(Cells(i, 6), "#,##0.00")
        End If
    Next
End With
End Sub

 

[unalh]

Evren hocam çok teşekkür ederim.

Dosya istediğim gibi olmuş.

Yapmış olduğunuz görsel içinde ayrıyetten teşekkür ederim.

Hayırlı Tatiller.

 

[Orion1]

Evren hocam çok teşekkür ederim.

Dosya istediğim gibi olmuş.

Yapmış olduğunuz görsel içinde ayrıyetten teşekkür ederim.

Hayırlı Tatiller.

Rica ederim.
İyi tatiller.

 

[unalh]

Evren hocam şöyle bir sorun var.

Cari kod seçtiğim zaman o cariye ait seçtiğim ayda hareket varsa o hareketler listelenmesi gerekiyor.
Bu şekliyle örneğin Nisan ayını seçiyorum ve nisan ayındaki tüm hareketler listeleniyor.

 

[unalh]

Burada cari kod kısıtı verilerek ay araması yapılması gerekiyor bu konuda yardımcı olabilecek arkadaş varmıdır.

 

[Orion1]

Burada cari kod kısıtı verilerek ay araması yapılması gerekiyor bu konuda yardımcı olabilecek arkadaş varmıdır.

Dosyanız ektedir.
O aya ait tüm kodları listelemek isterseniz textbox ı boş bırakınız.

 

[unalh]

Evren Hocam çok teşekkür ederim.

Hayırlı işler

 

[Orion1]

Evren Hocam çok teşekkür ederim.

Hayırlı işler

Rica ederim.
İyi çalışmalar.