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

Вход

Регистрация

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

 

= Мир MS Excel/Заполнение таблицы через форму - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Заполнение таблицы через форму
AlexKaj Дата: Четверг, 12.09.2024, 09:27 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Всем здравствуйте.
Помогите разобраться пожалуйста.
Файлик прилагается.

Суть такая:
Выписываются Наряд-задания на работу

1) Лист "НЗ" заполняется (оранжевые ячейки) в ручную либо из выпадающего меню (подтягиваются с листов "Рабочие" и "Адреса")
2) Лист "ФормаП" содержит печатную форму которая заполняется с с листа "НЗ"

3) Лист "Архив" по замыслу должен содержать в себе все распечатываемые наряд-задания
Проблема: Как сделать так чтобы таблица "Архив" заполнялась автоматически после нажатия кнопки "Печать".
Чтоб каждое новое НЗ заполнялось в новую строку.
Это должен быть макрос или формула?


Направьте пожалуйста в какую сторону копать.
Если можно пример какой-нибудь
К сообщению приложен файл: narjad_zadanie_vremennoe.xlsm (40.1 Kb)
 
Ответить
СообщениеВсем здравствуйте.
Помогите разобраться пожалуйста.
Файлик прилагается.

Суть такая:
Выписываются Наряд-задания на работу

1) Лист "НЗ" заполняется (оранжевые ячейки) в ручную либо из выпадающего меню (подтягиваются с листов "Рабочие" и "Адреса")
2) Лист "ФормаП" содержит печатную форму которая заполняется с с листа "НЗ"

3) Лист "Архив" по замыслу должен содержать в себе все распечатываемые наряд-задания
Проблема: Как сделать так чтобы таблица "Архив" заполнялась автоматически после нажатия кнопки "Печать".
Чтоб каждое новое НЗ заполнялось в новую строку.
Это должен быть макрос или формула?


Направьте пожалуйста в какую сторону копать.
Если можно пример какой-нибудь

Автор - AlexKaj
Дата добавления - 12.09.2024 в 09:27
Nic70y Дата: Четверг, 12.09.2024, 09:42 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8972
Репутация: 2356 ±
Замечаний: 0% ±

Excel 2010
после[vba]
Код
Sheets("ФормаП").PrintOut preview:=True
[/vba]пишите
[vba]
Код
a = Sheets("Архив").Cells(Rows.Count, "a").End(xlUp).Row + 1
Sheets("Архив").Range("a" & a) = Лист1.Range("b4").Value
Sheets("Архив").Range("b" & a) = "'" & Лист1.Range("b2").Value & Лист1.Range("d2").Value
Sheets("Архив").Range("c" & a) = Лист1.Range("b8").Value
[/vba]и так далее


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Четверг, 12.09.2024, 09:44
 
Ответить
Сообщениепосле[vba]
Код
Sheets("ФормаП").PrintOut preview:=True
[/vba]пишите
[vba]
Код
a = Sheets("Архив").Cells(Rows.Count, "a").End(xlUp).Row + 1
Sheets("Архив").Range("a" & a) = Лист1.Range("b4").Value
Sheets("Архив").Range("b" & a) = "'" & Лист1.Range("b2").Value & Лист1.Range("d2").Value
Sheets("Архив").Range("c" & a) = Лист1.Range("b8").Value
[/vba]и так далее

Автор - Nic70y
Дата добавления - 12.09.2024 в 09:42
AlexKaj Дата: Четверг, 12.09.2024, 13:59 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

и так далее


Спасибо большое прям то что надо еще и номер правильно сформировали
 
Ответить
Сообщение
и так далее


Спасибо большое прям то что надо еще и номер правильно сформировали

Автор - AlexKaj
Дата добавления - 12.09.2024 в 13:59
AlexKaj Дата: Четверг, 12.09.2024, 14:08 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

единственное почему в лист "ФормаП" данные заносятся, а в "Архив" нет

до тех пор пока на листе "Архив" стоит защита (и ошибка выпадает с предложением поменять код), снимаешь защиту данные вносятся
хотя на листе "ФормаП" защита тоже стоит

подскажите пожалуйста как решить
 
Ответить
Сообщениеединственное почему в лист "ФормаП" данные заносятся, а в "Архив" нет

до тех пор пока на листе "Архив" стоит защита (и ошибка выпадает с предложением поменять код), снимаешь защиту данные вносятся
хотя на листе "ФормаП" защита тоже стоит

подскажите пожалуйста как решить

Автор - AlexKaj
Дата добавления - 12.09.2024 в 14:08
Nic70y Дата: Четверг, 12.09.2024, 14:19 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 8972
Репутация: 2356 ±
Замечаний: 0% ±

Excel 2010
формулы работают на защищенном листе,
а макрос нет.
в начале макроса нужно снять защиту, в конце поставить
[vba]
Код
Sheets("Архив").Unprotect Password:="1"
a = Sheets("Архив").Cells(Rows.Count, "a").End(xlUp).Row + 1
Sheets("Архив").Range("a" & a) = Лист1.Range("b4").Value
Sheets("Архив").Range("b" & a) = "'" & Лист1.Range("b2").Value & Лист1.Range("d2").Value
Sheets("Архив").Range("c" & a) = Лист1.Range("b8").Value

Sheets("Архив").Protect Password:="1"
[/vba]вместо "1" - свой пароль


ЮMoney 41001841029809
 
Ответить
Сообщениеформулы работают на защищенном листе,
а макрос нет.
в начале макроса нужно снять защиту, в конце поставить
[vba]
Код
Sheets("Архив").Unprotect Password:="1"
a = Sheets("Архив").Cells(Rows.Count, "a").End(xlUp).Row + 1
Sheets("Архив").Range("a" & a) = Лист1.Range("b4").Value
Sheets("Архив").Range("b" & a) = "'" & Лист1.Range("b2").Value & Лист1.Range("d2").Value
Sheets("Архив").Range("c" & a) = Лист1.Range("b8").Value

Sheets("Архив").Protect Password:="1"
[/vba]вместо "1" - свой пароль

Автор - Nic70y
Дата добавления - 12.09.2024 в 14:19
AlexKaj Дата: Пятница, 13.09.2024, 06:42 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

в начале макроса нужно снять защиту, в конце поставить


Спасибо большое
 
Ответить
Сообщение
в начале макроса нужно снять защиту, в конце поставить


Спасибо большое

Автор - AlexKaj
Дата добавления - 13.09.2024 в 06:42
  • Страница 1 из 1
  • 1
Поиск:

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