Benzersiz tarihleri süzme hk.

[mumugul]

Merhaba,

Bir sütunda sıralı günlük bazda artan tarihler var.
Ben bu mevcut tarihlerden AY/YIL listesi almak istiyorum.

Yardımcı olur musunuz?

Saygılarımla...

 

[Erdem Akdemir]

Örnek dosya ekleyebilir misiniz.

 

[tugkan]

Merhaba,
İstediğiniz bu şekilde mi olacak?

 

[mumugul]

Merhaba,

Biraz uzun sürdü ama çözüme aşağıda ki kod ile ulaşabildim.
Sanırım sorumda çok açıklayıcı değildi!

Teşekkürler...

Private Sub UserForm_Initialize()

i = 3 ' ilk iki satır başlık içeriyor

ListBox1.AddItem Format(Month(Cells(i, 1)) & "/" & Year(Cells(i, 1)), "mmmm/yyyy") ' ilk değer 3.satırdan alınıyor

Do While Cells(i, 1) <> ""
    If ListBox1.List(ListBox1.ListCount - 1) <> Format(Month(Cells(i, 1)) & "/" & Year(Cells(i, 1)), "mmmm/yyyy") Then
    ListBox1.AddItem Format(Month(Cells(i, 1)) & "/" & Year(Cells(i, 1)), "mmmm/yyyy")
Else
End If

i = i + 1

Loop

End Sub