Combobox ta sabit sayı formatı

[okankoc25]

Combobox a girdiğim sayının başına "1000" sayı otomatik gelsin istiyorum.Yardımlarınızı için şimdiden tşk ederim.

 

[NBATMAN]

Merhaba,
aşağıdaki kodlar işinize yarar mı?

Option Explicit

Private Sub ComboBox1_Change()
Dim sabit As Integer
Dim imlec As Integer
sabit = ComboBox1.TextLength
imlec = ComboBox1.SelStart
If imlec < 4 Then
ComboBox1.Text = "1000"
ComboBox1.SelStart = sabit + 1
End If
End Sub

Private Sub UserForm_Initialize()
ComboBox1.Text = "1000"
End Sub

 

[okankoc25]

teşekkür ederim.ellerine sağlık

 

[NBATMAN]

Rica ederim. Kolay gelsin...

 

[Murat OSMA]

Konu çözülmüş ama ufak bir bilgi vereyim; ComboBox sayı girmek için değil, seçim yapmak içindir..