comboboxa elle veri girilmesin

Katılım
22 Kasım 2005
Mesajlar
101
Excel Vers. ve Dili
2003
Almanca
sitede bir ara görmüstüm ama iki saattir ariyorum ama bulamadim. comboboxa elle veri girisini kisitlamak istiyorum sadece verdigim listeden degeri alinabilsin. tesekkür ederim.
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,895
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
Private Sub ComboBox1_Change()
ComboBox1.Locked = True
End Sub

kodlarını kendi Comboboxınıza göre düzenleyin
 
Katılım
22 Kasım 2005
Mesajlar
101
Excel Vers. ve Dili
2003
Almanca
sayin fructose

ilginiz icin tesekkür ederim ama bu tam benim istedigim degil. combocoxta acilir kutu sadece bir kere aciliyor bu kodla. benim istedigim acilir kutunun her zaman acilip veri secebilmem. yani sadece veri secebilmem ve veri girememem.
tesekkürler
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,895
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
comboboxta acilir kutu sadece bir kere aciliyor bu kodla

veri secebilmem ve veri girememem

ComboBox1.Locked = True

ile veriyi seçersiniz ama Combobox kilitli olduğu için elle içine girip değiştiremezsiniz.


İstediğim tam bu değil demişsiniz bundan farklı ne istiyorsunuz
 
Katılım
5 Temmuz 2006
Mesajlar
2
Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ComboBox1 = Empty
End Sub
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,895
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
Sn taner3106

Farklı anlamışım şu şekildeki gibi kullanın

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ComboBox1.Locked = True
End Sub

Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ComboBox1.Locked = False
End Sub
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,190
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Comboboxın özelliklerin bulunduğu pencerede Style özelliğini 2-fmStyleDropDownlist olarak değiştirin istediğiniz olacaktır.
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Anladığım kadaryıyla,
Örnek Kod :
Private Sub UserForm_Initialize()
ComboBox1.AddItem "Taner"
ComboBox1.AddItem "3106"
End Sub
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,895
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
Comboboxın özelliklerin bulunduğu pencerede Style özelliğini 2-fmStyleDropDownlist olarak değiştirin istediğiniz olacaktır
Bazen kodla uğraşınca bildiğin şey aklına gelmiyor, illa kodla çözeceğim diye uğraşıyorsun.

Alternatif oldu benimkide

Şunu daha önce yazsanız olmazmı Sn COST_CONTROL :D

İyi çalışmalar :hey:
 
Katılım
22 Kasım 2005
Mesajlar
101
Excel Vers. ve Dili
2003
Almanca
cok tesekkür ederim sayin arkadaslar. sayenizde bu isi de hallettik. :keyif:
 
Üst