Перенос значения в строку ниже и печать (макрос)

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Перенос значения в строку ниже и печать (макрос) (Макросы/Sub)

Georgy91

Дата: Вторник, 14.05.2019, 10:49 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

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

К сообщению приложен файл: 8873596.xls (29.0 Kb)

Ответить

sboy

Дата: Вторник, 14.05.2019, 12:21 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 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

Ответить

Georgy91

Дата: Вторник, 14.05.2019, 16:08 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Большое спасибо!
Все работает!

Ответить

Перенос значения в строку ниже и печать (макрос) (Макросы/Sub)

Страница 1 из 1
1