Benzersiz tarihleri süzme hk.

Katılım
12 Ekim 2004
Mesajlar
220
Excel Vers. ve Dili
365 Türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
3,596
Excel Vers. ve Dili
2016 PRO TÜRKÇE-İNG. 64 BİT
Örnek dosya ekleyebilir misiniz.
 
Son düzenleme:
Katılım
6 Kasım 2004
Mesajlar
199
Excel Vers. ve Dili
Excel 2016
Türkçe 64 BIT
Merhaba,
İstediğiniz bu şekilde mi olacak?
 

Ekli dosyalar

Katılım
12 Ekim 2004
Mesajlar
220
Excel Vers. ve Dili
365 Türkçe
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...

Kod:
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
 
Üst