Заполнение таблицы через форму в соответствии с номером столбца.

ХАВ62 Пользователь Сообщений: 41 Регистрация: 27.03.2013	#1 26.02.2015 23:05:43 Помогите пожалуйста с заполнением таблицы. Файл прикреплён. Прикрепленные файлы Заполнение таблицы.xlsm (25.83 КБ)

Sanja

Модератор

Сообщений: 16516 Регистрация: 10.01.2013

26.02.2015 23:37:21

Если отказаться от красоты в виде объединенных ячеек в первом столбце, то можно таким кодом (для CommandButton1, остальные по аналогии)

Код

Private Sub CommandButton1_Click()
'Заполняем белые ячейки согласно Продуктов названии в TextBox и Номеру столбца в ComboBox2.List
Dim rw As Integer
Dim cl As Integer
rw = Worksheets("Лист1").Range("A7:A15").Find(Me.ComboBox1, LookIn:=xlValues).Row
cl = Val(Me.ComboBox2)
Worksheets("Лист1").Cells(rw, cl) = Me.TextBox1
End Sub

Согласие есть продукт при полном непротивлении сторон

Юрий М Модератор Сообщений: 61037 Регистрация: 14.09.2012 Контакты см. в профиле	#3 26.02.2015 23:41:56 И зачем в таблице формулы? Считайте всё макросом.

ХАВ62 Пользователь Сообщений: 41 Регистрация: 27.03.2013	#4 27.02.2015 00:51:35 СПАСИБО!!!

ХАВ62 Пользователь Сообщений: 41 Регистрация: 27.03.2013	#5 27.02.2015 07:42:52 Помогите пожалуйста зафиксировать вставленную ячейку. Чтобы после вставки данных оставалась активная ячейка куда были вставлены данные.