Sütundaki yılları benzersiz combobox'a alma

[Usyk]

Merhaba,

A sütununda "dd.mm.yyyy" şeklinde tarihlerim var. Bunları yıllarını "yyyy" şeklinde tekrarsız combobox1'e alabilirmiyim.

Saygılarımla.

 

[ahmed_ummu]

Bakabilir misiniz.

 

[veyselemre]

Private Sub UserForm_Initialize()
    Dim veri, r, i&, ii&
    veri = Range("A2:A" & Cells(Rows.Count, 1).End(3).Row).Value
    With CreateObject("Scripting.Dictionary")
        For Each r In veri
            .Item(Year(r)) = Null
        Next r
        veri = .keys
        For i = LBound(veri) To UBound(veri) - 1
            For ii = i + 1 To UBound(veri)
                If veri(i) > veri(ii) Then r = veri(i): veri(i) = veri(ii): veri(ii) = r
            Next ii
        Next i
        ComboBox1.List = veri
    End With
End Sub

 

[Usyk]

Bakabilir misiniz.

Sayın Ahmet Ummu, üyeliğim yetmediği için bakamadım, ilginiz için teşekkür ederim.

 

[Usyk]

Private Sub UserForm_Initialize()
    Dim veri, r, i&, ii&
    veri = Range("A2:A" & Cells(Rows.Count, 1).End(3).Row).Value
    With CreateObject("Scripting.Dictionary")
        For Each r In veri
            .Item(Year(r)) = Null
        Next r
        veri = .keys
        For i = LBound(veri) To UBound(veri) - 1
            For ii = i + 1 To UBound(veri)
                If veri(i) > veri(ii) Then r = veri(i): veri(i) = veri(ii): veri(ii) = r
            Next ii
        Next i
        ComboBox1.List = veri
    End With
End Sub

Sayın veyselemre

İstediğim gibi olmuş, ilgi ve yardımınız için çok teşekkür ederim, saygılarımla.