Никак не могу разобраться с написанием условия для распредления значений из формы по таблицам находящихся на разных листах, по скольку только учусь решать такие задачи. При условии что выбран определенный эксперт и время в форме, передать введенное значения в поле "ФИО посетителя" в таблицу на Листе1 в ячейку соответсвующую эксперту и времени( до трех посетителей в определенное время) и в таблицу на листе2 + остальные значения из формы по порядку ввода. Пытался сделать сам, но условие получается слишком грамоздким. Значения не всегда попадают в нужную ячейку. Надеюсь объяснил доступно. Файл с примером прилогаю.
Добрый день.
Никак не могу разобраться с написанием условия для распредления значений из формы по таблицам находящихся на разных листах, по скольку только учусь решать такие задачи. При условии что выбран определенный эксперт и время в форме, передать введенное значения в поле "ФИО посетителя" в таблицу на Листе1 в ячейку соответсвующую эксперту и времени( до трех посетителей в определенное время) и в таблицу на листе2 + остальные значения из формы по порядку ввода. Пытался сделать сам, но условие получается слишком грамоздким. Значения не всегда попадают в нужную ячейку. Надеюсь объяснил доступно. Файл с примером прилогаю.DirtyTony
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
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
Добрый день. В продолжении работы с данным файлом. Встрял на обратной задаче. Реализовал удаление записи в ячейке на листе1 и удаление связанных с ним данных на листе2 при помощи кнопки. Но при открытии общего доступа на листе1 вместо удаления данных из ячейки удаляется вся строка. Просьба помочь. Файл прилагаю. [moder]Для нового вопроса создайте новую тему в соответствии с Правилами форума[/moder]
Добрый день. В продолжении работы с данным файлом. Встрял на обратной задаче. Реализовал удаление записи в ячейке на листе1 и удаление связанных с ним данных на листе2 при помощи кнопки. Но при открытии общего доступа на листе1 вместо удаления данных из ячейки удаляется вся строка. Просьба помочь. Файл прилагаю. [moder]Для нового вопроса создайте новую тему в соответствии с Правилами форума[/moder]DirtyTony