Hücreye yazmak

[selim_1]

Arkadaşlar Sorunum şu
Veri girişini comboboxsun üzerine 2 defa tıklayınca değilde entere basınca hücreye yazsın.
Private Sub ComboBox1_dblClick(ByVal Cancel As MSForms.ReturnBoolean)
Selection.Cells = ComboBox1.Value
Unload Me
End Sub
Yardımlarıız için şimdiden teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:1a4328ba46]Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then Selection.cells = ComboBox1.Value
End Sub
[/vb:1:1a4328ba46]

Not:comboboxın style özelliğinide properties penceresinden "fmStyleDropDownList" olarak ayarlarsanız enterden sonra imleç yine combobox üzerinde kalır.

 

[selim_1]

leventm
Teşekkürler.