onlara gerek yok silebiliriz ama yapamadım yardımcı olurmusunuz

(21/12/2015, 20:39)idrisy yazdı: UserForm2 deki



Private Sub UserForm_Initialize()

CmbKAdi.RowSource = "Data!A3: A65000"
ComboBox1.AddItem "Ocak"
ComboBox1.AddItem "Şubat"
ComboBox1.AddItem "Mart"
ComboBox1.AddItem "Nisan"
ComboBox1.AddItem "Mayıs"
ComboBox1.AddItem "Haziran"
ComboBox1.AddItem "Temmuz"
ComboBox1.AddItem "Ağustos"
ComboBox1.AddItem "Eylül"
ComboBox1.AddItem "Ekim"
ComboBox1.AddItem "Kasım"
ComboBox1.AddItem "Aralık"
ComboBox2.AddItem "2009"
ComboBox2.AddItem "2010"
ComboBox2.AddItem "2011"
ComboBox2.AddItem "2012"
End Sub

kodunu

Private Sub UserForm_Initialize()

CmbKAdi.RowSource = "Data!A3: A65000"
End Sub

kısmını bu kod ile değiştir
Eğer 
ComboBox1.AddItem "Ocak"

ComboBox1.AddItem "Şubat"
ComboBox1.AddItem "Mart"
ComboBox1.AddItem "Nisan"
ComboBox1.AddItem "Mayıs"
ComboBox1.AddItem "Haziran"
ComboBox1.AddItem "Temmuz"
ComboBox1.AddItem "Ağustos"
ComboBox1.AddItem "Eylül"
ComboBox1.AddItem "Ekim"
ComboBox1.AddItem "Kasım"
ComboBox1.AddItem "Aralık"
ComboBox2.AddItem "2009"
ComboBox2.AddItem "2010"
ComboBox2.AddItem "2011"
ComboBox2.AddItem "2012"
bunlarında olmasını istiyorsan ComboBoxları ekle