Yıla ve Aya göre liste oluşturma

[Vedat Özer]

Merhabalar,


Kullanmakta olduğum bir dosyada mükerrersiz olarak Yıl ve Aya göre listeleme yapmak istiyorum.

Veri(X, 1) = Tarih Sütunu
Veri(X, 5) = Metin Kısmı

Teşekkür Ederim.

ReDim Liste(1 To UBound(Veri, 1), 1 To 5)
    
    With CreateObject("Scripting.Dictionary")
        .CompareMode = vbTextCompare
        For X = 1 To UBound(Veri, 1)
            If Veri(X, 1) >= S2.Range("c1") And Veri(X, 1) <= S2.Range("c2") Then[COLOR="DarkOrchid"]
                Kriter = Veri(X, 1) & ":" & Veri(X, 5)[/COLOR]
                If Not IsEmpty(Kriter) Then
                    If Not .Exists(Kriter) Then
                        Say = Say + 1
                        .Add Kriter, Say
                        Liste(Say, 1) = Veri(X, 1)
                        Liste(Say, 2) = Veri(X, 4)
                        Liste(Say, 3) = Veri(X, 5)
                    End If
                  
                End If
            End If
        Next
    End With

 

[Vedat Özer]

Merhabalar,

Koda küçük bir ekleme yaparak cevabıma ulaştım.

Kriter = Year(Veri(X, 1)) & ":" & Month(Veri(X, 1)) & ":" & Veri(X, 5)

.