Добрый день Господа Товарищи )
Бьюсь второй день уже ( мне кажется вокруг трубы кручусь, но не пойму куда копать )) ).
Имеется макрос, который запрашивает диапазон для печати и потом по полученным номерам (выбранным мышкой) строк формируется текст с последующей вставкой в word-шаблон и выводом на печать.
Суть проблемы (для меня ) ): выбор смежных ячеек отрабатывает нормально, а вот, если выбрать не смежные ячейки, то вылазит ошибка после нажатия "Ок" в окне "Выбор данных для печати" (k).
Как ее победить?
Думается мне, что нужно как-то по хитрому организовать "забор данных" не смежных ячеек, но как не соображу.
Направьте на путь истинный ну или тут подскажите куда копать
Бьюсь второй день уже ( мне кажется вокруг трубы кручусь, но не пойму куда копать )) ).
Имеется макрос, который запрашивает диапазон для печати и потом по полученным номерам (выбранным мышкой) строк формируется текст с последующей вставкой в word-шаблон и выводом на печать.
Суть проблемы (для меня ) ): выбор смежных ячеек отрабатывает нормально, а вот, если выбрать не смежные ячейки, то вылазит ошибка после нажатия "Ок" в окне "Выбор данных для печати" (k).
Как ее победить?
Думается мне, что нужно как-то по хитрому организовать "забор данных" не смежных ячеек, но как не соображу.
Направьте на путь истинный ну или тут подскажите куда копать
Код |
---|
On Error GoTo Inform xAddress = Application.ActiveWindow.RangeSelection.Address Set k = Application.InputBox("Выберите данные для печати:", "Выбор данных для печати", xAddress, , , , , 8) If k Is Nothing Then Exit Sub xScreenUpdate = Application.ScreenUpdating xAlert = Application.DisplayAlerts Application.ScreenUpdating = False Application.DisplayAlerts = False |