ComboBox'a Tarihleri Aldırmak

[dirac]

Sub auto_open()

UserForm1.Show
End Sub

Private Sub UserForm1_Initialize()
TTBox.SetFocus

ayBox.AddItem "Ocak"
ayBox.AddItem "Þubat"
ayBox.AddItem "Mart"
ayBox.AddItem "Nisan"
ayBox.AddItem "Mayıs"
ayBox.AddItem "Haziran"
ayBox.AddItem "Temmuz"
ayBox.AddItem "Ağustos"
ayBox.AddItem "Eylül"
ayBox.AddItem "Ekim"
ayBox.AddItem "Kasım"
ayBox.AddItem "Aralık"
ayBox.ListIndex = 0

yilBox.AddItem "2004"
yilBox.AddItem "2005"
yilBox.AddItem "2006"
yilBox.AddItem "2007"
yilBox.AddItem "2008"
yilBox.AddItem "2009"
yilBox.AddItem "2010"
yilBox.ListIndex = 2


End Sub

arkadaşlar yukardaki kod çalıştığında içinde yukarda gördüğünüz girdilerin olması gereken comboboxlar boş geliyor.
nerde hata yapıyor olabilirim. :? :?

 

[class37]

Merhabalar
Sayın diraç sorduğunuz soruya ait cevabı araştıracak olan arkadaşların kolay bulabilmesi için sorunuzu başka bir başlık altında sorsaydınız daha iyi olurdu.

Private Sub UserForm_Initialize()
Dim i%
Dim TMP$
    ayBox.Clear
    For i = 1 To 12
        TMP = Format(DateSerial(2004, i, 1), "mmmm")
        ayBox.AddItem TMP
    Next i
    ayBox.ListIndex = 0
yilBox.AddItem "2004"
yilBox.AddItem "2005"
yilBox.AddItem "2006"
yilBox.AddItem "2007"
yilBox.AddItem "2008"
yilBox.AddItem "2009"
yilBox.AddItem "2010"
yilBox.ListIndex = 0
End Sub

 

[xxrt]

başka bir başlık altında sorsaydınız daha iyi olurdu.

Teşekkür ederiz sayınclass37,Yeni başlık olarak buraya taşındı.

 

[class37]

Merhabalar
Sayın xxrt teşekküre ne gerek var.Bu forum hepimizin herkes bir yerinden tutarsa dahada verimli olur.Bu arada Başta sayın Hüseyin olmak üzere size ve diğer modetör arkadaşlar ile katkısı geçen herkese teşekkürler.

 

[dirac]

class37 ve xxrt ikinize de teşekkür ederim.

yalnız benim sorun yine devam ediyor. userform görsel olarak son derece güzel bir şekilde açılıyor ama comboboxlar boş. sizin kodu da denedim. zaten teorik olarak eleman yerleştirmede pek bir farkı yok.

başka combobox içeren örnek userform kodları inceledim. bir hata varmış gibi görünmüyor. gözden kaçan ne olabilir.

 

[a_self_lion]

Dosyanızı gönderirseniz daha kolay halledilir snaıyorum sayın dirac
bence combobox un Rowsourch özelliğini kullansanız daha kolay halledersiniz

 

[Ongun]

Sayın dirac, birde aşağıdaki şekilde denermisiniz. Kolay gelsin

Private Sub UserForm_Initialize()
Dim i%
Dim TMP$
ComboBox2.Clear
For i = 1 To 12
TMP = Format(DateSerial(2004, i, 1), "mmmm")
ComboBox2.AddItem TMP
Next i
ComboBox2.ListIndex = 0
ComboBox1.AddItem "2004"
ComboBox1.AddItem "2005"
ComboBox1.AddItem "2006"
ComboBox1.AddItem "2007"
ComboBox1.AddItem "2008"
ComboBox1.AddItem "2009"
ComboBox1.AddItem "2010"
ComboBox1.ListIndex = 0
End Sub

 

[dirac]

ornek dosyayı yolluyorum arkadaşlar. tüm modüller yok, sadece userform açılması ile ilgili kısım. eminim gözden kaçan küçük bir hatam vardır. ama ne

teşekkürler

 

[Levent Menteşoğlu]

Private Sub UserForm1_Initialize()

yukarıdaki kodun başlığında hatanız ver aşağıdaki gibi olmalı bir rakamını kaldırmalısınız.

Private Sub UserForm_Initialize()

 

[dirac]

kafa yoran herkese teşekkürler arkadaşlar. leventm dediği gibi gözden kaçırmışım. tekrar teşekkürler.