Поле со списком (Элемент ActiveX) заполнение

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Поле со списком (Элемент ActiveX) заполнение (Макросы/Sub)

Dmitryru87

Дата: Вторник, 04.08.2015, 09:50 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день . Уже все перерыл, перечитал .Помогите !!!!
Есть поле списка (Active X) . Информация (Названия блюд) берется с этой же странице. Записываться с столбец С и только в одну строку. Хочу сделать так , чтобы при выборе из списка, заполнялся весь столбец "С" по порядку.

К сообщению приложен файл: 7569467.xlsx (24.5 Kb)

Сообщение отредактировал Dmitryru87 - Вторник, 04.08.2015, 12:00

Ответить

китин

Дата: Вторник, 04.08.2015, 10:32 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7035

Репутация: 1079 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Цитата Dmitryru87, 04.08.2015 в 09:50, в сообщении № 1

Есть поле списка

а здесь нетути.файлик приложите rules

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Dmitryru87

Дата: Вторник, 04.08.2015, 11:26 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Странно , прилеплял файл. Сейчас получилось прилепить!

Сообщение отредактировал Dmitryru87 - Вторник, 04.08.2015, 12:03

Ответить

DJ_Marker_MC

Дата: Вторник, 04.08.2015, 13:15 | Сообщение № 4

Группа: Друзья

Ранг: Ветеран

Сообщений: 991

Репутация: 213 ±

Замечаний: 0% ±

Excel 2019

Dmitryru87, Добрый день.
Проверяйте. Так?
[vba]

Код

Private Sub Продукия_Change()
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
End Sub

[/vba]

К сообщению приложен файл: 7569467.xlsm (30.8 Kb)

Ответить

Dmitryru87

Дата: Среда, 05.08.2015, 09:02 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Спасибо огромное !!!

Подскажите , как сделать чтобы при вводе раскрывался список?

[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]

К сообщению приложен файл: 9050266.xlsm (30.6 Kb)

Сообщение отредактировал Pelena - Среда, 05.08.2015, 09:21

Ответить

Поле со списком (Элемент ActiveX) заполнение (Макросы/Sub)

Страница 1 из 1
1