Добавление значений из формы на разные листы с условием

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление значений из формы на разные листы с условием (Макросы/Sub)

DirtyTony

Дата: Вторник, 19.01.2016, 15:45 | Сообщение № 1

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

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

Сообщений: 3

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

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

Excel 2010

Добрый день.

Никак не могу разобраться с написанием условия для распредления значений из формы по таблицам находящихся на разных листах, по скольку только учусь решать такие задачи.
При условии что выбран определенный эксперт и время в форме, передать введенное значения в поле "ФИО посетителя" в таблицу на Листе1 в ячейку соответсвующую эксперту и времени( до трех посетителей в определенное время) и в таблицу на листе2 + остальные значения из формы по порядку ввода.
Пытался сделать сам, но условие получается слишком грамоздким. Значения не всегда попадают в нужную ячейку.
Надеюсь объяснил доступно.
Файл с примером прилогаю.

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

Сообщение отредактировал DirtyTony - Вторник, 19.01.2016, 15:46

Ответить

devilkurs

Дата: Вторник, 19.01.2016, 16:59 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 167

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

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

Excel 2007, 2010

[vba]

Код

Private Sub CommandButton1_Click()
    RowFIO = Worksheets("Лист1").Range("B:B").Find(What:=ComboBox1).Row
    ColumnTime = Worksheets("Лист1").Rows("1:1").Find(What:=ComboBox2).Column
    For i = 1 To 4
        If i = 4 Then MsgBox "Под данным экспертов в данное время уже внесены 3 посетителя": Exit Sub
        If Worksheets("Лист1").Cells(RowFIO, ColumnTime) = "" Then Exit For Else RowFIO = RowFIO + 1
    Next i
    Worksheets("Лист1").Cells(RowFIO, ColumnTime) = TextBox1.Value

    EmptyRows = Worksheets("Лист2").Cells(Rows.Count, 1).End(xlUp).Row + 1
    Worksheets("Лист2").Cells(EmptyRows, 1) = TextBox1.Value
    Worksheets("Лист2").Cells(EmptyRows, 2) = TextBox4.Value
    Worksheets("Лист2").Cells(EmptyRows, 3) = TextBox5.Value
    Worksheets("Лист2").Cells(EmptyRows, 4) = TextBox6.Value
    Worksheets("Лист2").Cells(EmptyRows, 5) = TextBox7.Value
    Worksheets("Лист2").Cells(EmptyRows, 6) = ComboBox2.Value

    End Sub

[/vba]

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

Ответить

DirtyTony

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

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

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

Сообщений: 3

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

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

Excel 2010

devilkurs, Спасибо, всё работает. Не знал реализацию через цикл. Вопрос закрыт.

Ответить

DirtyTony

Дата: Вторник, 26.01.2016, 20:42 | Сообщение № 4

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

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

Сообщений: 3

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

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

Excel 2010

Добрый день.
В продолжении работы с данным файлом. Встрял на обратной задаче. Реализовал удаление записи в ячейке на листе1 и удаление связанных с ним данных на листе2 при помощи кнопки. Но при открытии общего доступа на листе1 вместо удаления данных из ячейки удаляется вся строка. Просьба помочь. Файл прилагаю.
[moder]Для нового вопроса создайте новую тему в соответствии с Правилами форума[/moder]

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

Сообщение отредактировал Pelena - Вторник, 26.01.2016, 20:52

Ответить

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