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
Son Düzenleme: 21/12/2015, 20:41, Düzenleyen: idrisy.