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

Вход

Регистрация

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

 

= Мир MS Excel/Перенос значения в строку ниже и печать (макрос) - Мир MS Excel

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

Excel 2016
Добрый день! Помогите, пожалуйста, составить макрос. Имеется таблица, которая содержит исходные данные для печатной формы; первый столбец таблицы (А) содержит метку «х», при перемещении которой по столбцу данные в печатной форме меняются (заполняется с помощью ВПР). Хочу сделать кнопку с макросом, при нажатии которой значение «х» перемещалось бы в строку ниже (из предыдущей строки удалялось) и затем вызывалось меню печати (чтобы вручную не вырезать и переставлять «х»). При этом на печать необходимо отправить листы "стр1" и "стр2" (см. файл-пример).
Файл-пример прикладываю, но пришлось удалить много данных из-за коммерческой информации.
Надеюсь, суть будет понятна.
Благодарю!
К сообщению приложен файл: 8873596.xls(29.0 Kb)
 
Ответить
СообщениеДобрый день! Помогите, пожалуйста, составить макрос. Имеется таблица, которая содержит исходные данные для печатной формы; первый столбец таблицы (А) содержит метку «х», при перемещении которой по столбцу данные в печатной форме меняются (заполняется с помощью ВПР). Хочу сделать кнопку с макросом, при нажатии которой значение «х» перемещалось бы в строку ниже (из предыдущей строки удалялось) и затем вызывалось меню печати (чтобы вручную не вырезать и переставлять «х»). При этом на печать необходимо отправить листы "стр1" и "стр2" (см. файл-пример).
Файл-пример прикладываю, но пришлось удалить много данных из-за коммерческой информации.
Надеюсь, суть будет понятна.
Благодарю!

Автор - Georgy91
Дата добавления - 14.05.2019 в 10:49
sboy Дата: Вторник, 14.05.2019, 12:21 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2498
Репутация: 699 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
если правильно понял (пример не информативен)
[vba]
Код
Sub Макрос1()
    With ActiveSheet.Range("A:A").Find("х")
        .Offset(1, 0).Value = .Value
        .Value = ""
    End With
    Sheets("стр1").PrintOut
    Sheets("стр2").PrintOut
End Sub
[/vba]
К сообщению приложен файл: 0514399.xls(52.5 Kb)


Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
если правильно понял (пример не информативен)
[vba]
Код
Sub Макрос1()
    With ActiveSheet.Range("A:A").Find("х")
        .Offset(1, 0).Value = .Value
        .Value = ""
    End With
    Sheets("стр1").PrintOut
    Sheets("стр2").PrintOut
End Sub
[/vba]

Автор - sboy
Дата добавления - 14.05.2019 в 12:21
Georgy91 Дата: Вторник, 14.05.2019, 16:08 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Большое спасибо!
Все работает!
 
Ответить
СообщениеБольшое спасибо!
Все работает!

Автор - Georgy91
Дата добавления - 14.05.2019 в 16:08
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос значения в строку ниже и печать (макрос) (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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