DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub UserForm_Initialize()
ComboBox1.AddItem "ali"
ComboBox1.AddItem "vali"
ComboBox1.AddItem "kali"
ComboBox1.AddItem "sali"
ComboBox1.AddItem "fali"
ComboBox1.AddItem "dali"
ComboBox1.AddItem "tali"
ComboBox1.AddItem "yali"
ComboBox1.AddItem "rali"
ComboBox1.AddItem "gali"
End Sub
Private Sub UserForm_Initialize()
For X = 1 To 10
UserForm1.Controls("ComboBox" & X).AddItem "AHMET"
UserForm1.Controls("ComboBox" & X).AddItem "ALİ"
UserForm1.Controls("ComboBox" & X).AddItem "HASAN"
UserForm1.Controls("ComboBox" & X).AddItem "MEHMET"
UserForm1.Controls("ComboBox" & X).AddItem "AYŞE"
UserForm1.Controls("ComboBox" & X).AddItem "ZEKİ"
UserForm1.Controls("ComboBox" & X).AddItem "SEZEN"
UserForm1.Controls("ComboBox" & X).AddItem "VELİ"
UserForm1.Controls("ComboBox" & X).AddItem "HÜSEYİN"
UserForm1.Controls("ComboBox" & X).AddItem "LEVENT"
Next
End Sub