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. :? :?
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. :? :?