DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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