Добрый вечер многоуважаемые форумчане!!! Чтоб облегчить работу "оператору" решил изменить подход к внесению данных в таблицу. Ранее подобная задумка была уже и решение было найдено но тут же задумка немного иначе. Вот смотрите на листе имеются две таблицы 1. Ввод 2. Черновик Как только оператор вносит запись в таблицу Ввод и нажимает кнопку то эти данные вносятся в таблицу Черновик. С этим можно сказать справились Код для кнопки:
[vba]
Код
Private Sub CommandButton1_Click() Application.EnableEvents = 0 Call Add_Sell Application.EnableEvents = 1 Range("Черновик").Cells(1) = Range("Черновик").Cells(1) End Sub
[/vba]
Код для внесения данных в таблицу:
[vba]
Код
Sub Add_Sell() 'Макрос для "формы" на листе ЧЕРНОВИК Application.EnableEvents = 0 n = Range("A100000").End(xlUp).Row + 1 'определяем номер последней строки в табл. Черновик Cells(n, 1) = Range("A2") 'вставляем в следующую пустую строку Cells(n, 2) = Range("B2") Cells(n, 3) = Range("C2") Cells(n, 4) = Range("E2") Cells(n, 5) = Range("F2") Cells(n, 8) = Range("G2") Cells(n, 22) = Range("H2") Range("A2,B2,C2,D2,E2,F2,G2,H2").ClearContents 'очищаем форму Application.EnableEvents = 1 End Sub
[/vba]
НО!!! Чтоб оператор несколько раз не тыкал туже самую запись. Как дополнить данный код чтоб одна запись в таблице Ввод дублировалась/копировалась в таблицу Черновик сразу аж 16-ть раз!? Но с несколькими условиями: 1. в столбец G цифровые значения Возраста образцов были по четыре раза (4;7;28;КНТ) 2. в столбец H маркировка образцов была по порядку от указанного оператором в таблице Ввод G2 Помогите пжл с решением задумки. Спасибо огромное заранее
Добрый вечер многоуважаемые форумчане!!! Чтоб облегчить работу "оператору" решил изменить подход к внесению данных в таблицу. Ранее подобная задумка была уже и решение было найдено но тут же задумка немного иначе. Вот смотрите на листе имеются две таблицы 1. Ввод 2. Черновик Как только оператор вносит запись в таблицу Ввод и нажимает кнопку то эти данные вносятся в таблицу Черновик. С этим можно сказать справились Код для кнопки:
[vba]
Код
Private Sub CommandButton1_Click() Application.EnableEvents = 0 Call Add_Sell Application.EnableEvents = 1 Range("Черновик").Cells(1) = Range("Черновик").Cells(1) End Sub
[/vba]
Код для внесения данных в таблицу:
[vba]
Код
Sub Add_Sell() 'Макрос для "формы" на листе ЧЕРНОВИК Application.EnableEvents = 0 n = Range("A100000").End(xlUp).Row + 1 'определяем номер последней строки в табл. Черновик Cells(n, 1) = Range("A2") 'вставляем в следующую пустую строку Cells(n, 2) = Range("B2") Cells(n, 3) = Range("C2") Cells(n, 4) = Range("E2") Cells(n, 5) = Range("F2") Cells(n, 8) = Range("G2") Cells(n, 22) = Range("H2") Range("A2,B2,C2,D2,E2,F2,G2,H2").ClearContents 'очищаем форму Application.EnableEvents = 1 End Sub
[/vba]
НО!!! Чтоб оператор несколько раз не тыкал туже самую запись. Как дополнить данный код чтоб одна запись в таблице Ввод дублировалась/копировалась в таблицу Черновик сразу аж 16-ть раз!? Но с несколькими условиями: 1. в столбец G цифровые значения Возраста образцов были по четыре раза (4;7;28;КНТ) 2. в столбец H маркировка образцов была по порядку от указанного оператором в таблице Ввод G2 Помогите пжл с решением задумки. Спасибо огромное заранееlebensvoll
lebensvoll = полон жизни с немецкого языка И в коде ошибка Улыбающая
Цитата
Cells(n + 12, 7).Resize(4) = "Лентяй"
также )))) форма не очищалась после внесения записи в таблицу " ' " лишняя в начале 16-й строки И еще одна ошибка что нумерация не продолжается оператор внес к примеру 1/161 и при нажатии кнопки первая внесенная запись должна быть 1/161 а последующие 15-ть записей 1/161; 1/162; ......1/76 Ну простите Вы меня, ну не дается мне написание этих кодов. Просто как горохом об стенку СПАСИБО ВАМ ОГРОМНЕЙШЕЕ
RAN, добрый вечер, спасибо за ответ и решение!!!
Цитата
lebensvoll = ЛЕНТЯЙ
lebensvoll = полон жизни с немецкого языка И в коде ошибка Улыбающая
Цитата
Cells(n + 12, 7).Resize(4) = "Лентяй"
также )))) форма не очищалась после внесения записи в таблицу " ' " лишняя в начале 16-й строки И еще одна ошибка что нумерация не продолжается оператор внес к примеру 1/161 и при нажатии кнопки первая внесенная запись должна быть 1/161 а последующие 15-ть записей 1/161; 1/162; ......1/76 Ну простите Вы меня, ну не дается мне написание этих кодов. Просто как горохом об стенку СПАСИБО ВАМ ОГРОМНЕЙШЕЕlebensvoll
Кто бы ты ни был, мир в твоих руках
Сообщение отредактировал lebensvoll - Понедельник, 25.03.2019, 23:34
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
оператор внес к примеру 1/161 и при нажатии кнопки первая внесенная запись должна быть 1/161 а последующие 15-ть записей 1/161; 1/162; ......1/76
