Спасибо огромное !!!
Подскажите , как сделать чтобы при вводе раскрывался список?
[vba]Код
Private Sub Продукия_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
Application.ScreenUpdating = False
Application.EnableEvents = False
irow = Cells(Rows.Count, 3).End(xlUp).Row + 1
Cells(irow, 3).Value = Продукия.Value
Application.EnableEvents = True
Application.ScreenUpdating = True
Продукия = Empty
End If
End Sub
[/vba]
[moder]1) Для оформления кода есть кнопка #
2) Если это новый вопрос, то создайте новую тему[/moder]