Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Заполнение таблицы через форму в соответствии с номером столбца.
 
Помогите пожалуйста с заполнением таблицы.
Файл прикреплён.
 
Если отказаться от красоты в виде объединенных ячеек в первом столбце, то можно таким кодом (для 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 
Согласие есть продукт при полном непротивлении сторон.
 
И зачем в таблице формулы? Считайте всё макросом.
 
СПАСИБО!!!
 
Помогите пожалуйста зафиксировать вставленную ячейку. Чтобы после вставки данных оставалась активная ячейка куда были вставлены данные.
Страницы: 1
Читают тему (гостей: 1)