combobox tarih alma

[zfr10]

Selam arkadaşlar benim sorunum userform üzerindeki comboboxlara tarih alma işlemi.Detaylı bilgi çalışma sayfamda mevcuttur.Yardımcı olursanız memnun olurum.Saygılar...

 

[Levent Menteşoğlu]

Sorunuz anlaşılmıyor. Biraz daha detaylı açıklama yaparmısınız.

 

[zfr10]

sayfa içindeki userform üzerinde 5 tane beyaz renkli combobox var onlara takvim atamak istiyorum yardımlarınızı bekliyorum

 

[İhsan Tank]

takvim atamak istiyorum derken neyi kastediyorsunuz.
bir yılda 365 gün var hangi tarihi atamak istiyorsunuz

 

[zfr10]

bütün tarihleri yani 2011 yılının veya diğer yılların tarihleri dt picker gibi

 

[Korhan Ayhan]

Merhaba,

Sanıyorum siz DtPicker kullanmak istemiyorsunuz. Bu sebeple ComboBox nesnelerini takvim gibi kullanmak istiyorsunuz. Gerçi form nesnelerinde "Takvim" nesnesi bulunuyor ama siz ComboBox istediğiniz için aşağıdaki kodu kullanabilirsiniz.

Kod 2000-İçinde bulunduğumuz yıl arasındaki tarihleri ComboBox1 nesnesinde alt alta listeler ve otomatik olarak bugünün tarihini seçer.

Option Explicit
 
Private Sub UserForm_Initialize()
    Dim YIL As Integer, AY As Byte, GÜN As Byte
    
    For YIL = 2000 To Year(Date)
        For AY = 1 To 12
            For GÜN = 1 To 31
                ComboBox1.AddItem Format(DateSerial(YIL, AY, GÜN), "dd.mm.yyyy")
            Next
        Next
    Next
    ComboBox1.Value = Format(Date, "dd.mm.yyyy")
End Sub

 

[zfr10]

Combobox ve tarih

Selam arkadaşlar comboboxa dt picker şeklide takvim nasıl eklenir.Yardımlarınızı bekliyorum.Saygılar ve sizlerin ve tüm islam aleminin ramazan-ı şerif ayını kutlar hayırlara vesile olmasını Yüce ALLAH'tan niyaz ederim.