DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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 Ahmet Ummu, üyeliğim yetmediği için bakamadım, ilginiz için teşekkür ederim.Bakabilir misiniz.
Sayın veyselemreKod: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