Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Добавление значений из формы на разные листы с условием - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление значений из формы на разные листы с условием (Макросы/Sub)
Добавление значений из формы на разные листы с условием
DirtyTony Дата: Вторник, 19.01.2016, 15:45 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день.

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


Сообщение отредактировал DirtyTony - Вторник, 19.01.2016, 15:46
 
Ответить
СообщениеДобрый день.

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

Автор - DirtyTony
Дата добавления - 19.01.2016 в 15:45
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(36Kb)


 
Ответить
Сообщение[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]

Автор - devilkurs
Дата добавления - 19.01.2016 в 16:59
DirtyTony Дата: Вторник, 19.01.2016, 17:11 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - DirtyTony
Дата добавления - 19.01.2016 в 17:11
DirtyTony Дата: Вторник, 26.01.2016, 20:42 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

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


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

Автор - DirtyTony
Дата добавления - 26.01.2016 в 20:42
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление значений из формы на разные листы с условием (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!