combobox a yazı girmek

[wes]

Private Sub UserForm_Activate()
Dim i As Integer
For i = 0 To 15
ComboBox1.AddItem i
Next i
End Sub

arkadaşar ben bu formülü "var" , "yok" gibi kullanmak istiyorum yani rakam yerine var veya yok yazsın nasıl yapıcam?

 

[wes]

arkadaşlar sanırım anlaşılmadı ben o comboboxta sadece ahmet ile mehmet i secmek istiyorum mesela.

 

[Ali]

Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Var"
.AddItem "Yok"
End With
End Sub

 

[wes]

sizden bir isteğim daha olucak fructose.ben birde combobox 6 ve 8 de var ve yok diye yazdırmak istiyorum.ayrıca combobox 7 ye de lise ve universite yazdırmak istiyorum nasıl yapabilirim bunu? teşekkürler.

 

[Ali]

Aşağıdaki gibi düzenleyin.

Private Sub UserForm_Initialize()
With ComboBox6
.AddItem "Var"
.AddItem "Yok"
End With
With ComboBox7
.AddItem "Lise"
.AddItem "Üniversite"
End With
With ComboBox8
.AddItem "Var"
.AddItem "Yok"
End With
End Sub

 

[wes]

çok sağolasın.eline sağlık