Combobox'a Tarihin Sadece Yıl Bilgisini Almak

[ahmed_ummu]

Merhaba arkadaşlar.

Aşağıdaki kod ile A sütunundaki tarihlerden (Kırmızı renkli kodlar olmadan) benzersiz olanları Combobox'a listeliyor. Kırmızı renkli olan kodları ekleyince "Cells" kodunu seçip, "Expected list seperator or" hatası veriyor. Combobox'a benzersiz tarihlerin sadece yılını listelemek istiyorum. Yardımcı olursanız sevinirim.

ComboBox7.Clear
Sheets("İNTERNET_TELEFON").Select
For X = 2 To Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Range("a2:a" & X), Cells(X, 1)) = 1 Then
Format(ComboBox7.AddItem Cells(X, 1).Value,"yyyy")
End If
Next

 

[Cengiz Demir]

Format işlemini sadece hücreye uygulanacak şekilde dener misiniz ? Combobox dahil ettiğiniz için hata veriyor olabilir.

ComboBox7.AddItem Format(Cells(X, 1).Value,"yyyy")

 

[veyselemre]

    Dim huc
    ComboBox7.Clear
    Sheets("İNTERNET_TELEFON").Select
    With CreateObject("Scripting.Dictionary")
        For Each huc In Range("a2:a" & Cells(Rows.Count, 1).End(3).Row).Value
            If IsDate(huc) Then .Item(Year(huc)) = Null
        Next huc
        ComboBox7.List = .keys
    End With

 

[ahmed_ummu]

Format işlemini sadece hücreye uygulanacak şekilde dener misiniz ? Combobox dahil ettiğiniz için hata veriyor olabilir.

ComboBox7.AddItem Format(Cells(X, 1).Value,"yyyy")

Teşekkür ederim Cengiz bey.

 

[ahmed_ummu]

    Dim huc
    ComboBox7.Clear
    Sheets("İNTERNET_TELEFON").Select
    With CreateObject("Scripting.Dictionary")
        For Each huc In Range("a2:a" & Cells(Rows.Count, 1).End(3).Row).Value
            If IsDate(huc) Then .Item(Year(huc)) = Null
        Next huc
        ComboBox7.List = .keys
    End With

Teşekkürler sayın veyselemre