ComboBox üzerine ayların getirilmesi

[Hacı Bayram ÖZKAN]

Bir Userform üzerinde bulunan ComboBox üzerine ayları getirmek istiyorum, nasıl yaparım, bu ayları herhangi bir Excel sayfasından almayacak direk ComboBox'un kod bölümünde yazılı olacak. Hepinize teşekkürler.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Private Sub UserForm_Initialize()
 
    Dim i As Byte
 
    For i = 1 To 12
        ComboBox1.AddItem Format(CDate("1." & i), "mmmm")
    Next i
 
End Sub

.

 

[Hacı Bayram ÖZKAN]

Ömer bey bu oldu güzel ama, bunu şöyle yaptım,
Private Sub UserForm_Initialize()

Dim i As Byte

For i = 1 To 12
ComboBox1.AddItem "ahmet, mehmet, veli"
Next i

End Sub
olmadı, yani 12 tane isim var bunları tek tek ComboBox'un üzerine nasıl alırım. buna bakarmısın teşekkürler.

 

[Ömer]

Private Sub UserForm_Initialize()
    
    With ComboBox1
        .AddItem "excel"
        .AddItem "web"
        .AddItem "tr"
    End With
    
End Sub

Şeklinde yazabilirsiniz.

.

 

[Levent Menteşoğlu]

Alternatif olarak aşağıdaki gibide yapabilirsiniz.

Private Sub UserForm_Initialize()
aylar = Array("Ocak", "Şubat", "Mart", "Nisan", "Mayıs", "Haziran", "Temmuz", "Ağustos", "Eylül", "Ekim", "Kasım", "Aralık")
ComboBox1.List = aylar
End Sub

 

[Hacı Bayram ÖZKAN]

Ömer bey ve Levent Bey elinize sağlık teşekkür ederim.