Добрый день. Возникла задача, сделать следующее: 1) На листе Наклад выделяю какой-то участок к примеру B5:E7 2) Определить последнюю дату на листе Наклад в столбце дата ( в данном случае это будет 5 февраля) 3) На листе Сверка скрыть все столбцы с датами, которые не соответствуют 5 февраля. 4) Полученные данные (выделенный диапазон в Наклад и Столбец на 5 ое февраля из Сверки) вывести на печать .
Вывод на печать с горем пополам сделал. Связная картинка из листа Сверки . Решение не ахти какое, но вроде работает Помогите решить остальные пункты.
Просьба перенести тему в раздел VBA
Добрый день. Возникла задача, сделать следующее: 1) На листе Наклад выделяю какой-то участок к примеру B5:E7 2) Определить последнюю дату на листе Наклад в столбце дата ( в данном случае это будет 5 февраля) 3) На листе Сверка скрыть все столбцы с датами, которые не соответствуют 5 февраля. 4) Полученные данные (выделенный диапазон в Наклад и Столбец на 5 ое февраля из Сверки) вывести на печать .
Вывод на печать с горем пополам сделал. Связная картинка из листа Сверки . Решение не ахти какое, но вроде работает Помогите решить остальные пункты.
4) Для печати нужен выделенный диапазон и столбец на 5 ое февраля из Сверки. А как они должны вместе выглядеть? Для печати, их ведь надо разместить на одном листе.
4) Для печати нужен выделенный диапазон и столбец на 5 ое февраля из Сверки. А как они должны вместе выглядеть? Для печати, их ведь надо разместить на одном листе.Wasilich
А как они должны вместе выглядеть? Для печати, их ведь надо разместить на одном листе.
Пока мысль крутится вокруг связанной картинки ( полученную через инструмент Камера), которая в свою очередь расположена на том же листе. Вторая мысль задействовать объединяющий лист и сформировав уже общий диапазон выводить его на печать.
А как они должны вместе выглядеть? Для печати, их ведь надо разместить на одном листе.
Пока мысль крутится вокруг связанной картинки ( полученную через инструмент Камера), которая в свою очередь расположена на том же листе. Вторая мысль задействовать объединяющий лист и сформировав уже общий диапазон выводить его на печать.
Уже на картинке видно, что не поместится весь этот огород на печатный лист. Короче, щас пообедаю и мин. через 30 сляпаю. Если никто раньше не сляпает.
Уже на картинке видно, что не поместится весь этот огород на печатный лист. Короче, щас пообедаю и мин. через 30 сляпаю. Если никто раньше не сляпает. Wasilich
Не надо спешить! Просто пример и оригинал не совпадают, а макрос жестко привязывается к колонкам и строкам, поэтому всякие смещения таблиц не допустимы. Я тут подумал, выделять весь диапазон таблицы малость проблематично, может достаточно будет выделения столбца с датой, а остальное автоматом копировать?
Не надо спешить! Просто пример и оригинал не совпадают, а макрос жестко привязывается к колонкам и строкам, поэтому всякие смещения таблиц не допустимы. Я тут подумал, выделять весь диапазон таблицы малость проблематично, может достаточно будет выделения столбца с датой, а остальное автоматом копировать?Wasilich
Типа, сколько колонок выделил столько и скопировал?
Нет обычно копирует весь фрагмент. Допустим в конце дня он делает сверку с кассой. Выделил 20.02 и скопировал. На следующий день где-то водку пил и забыл сделать сверку. 22.02 делает сверку и выделяет уже 21 и 22 вместе. А с листа сверки берет данные только за 22.02 В лист Сверки данные вносит вручную, то есть все перепроверяет и в ручную вписывает.
Типа, сколько колонок выделил столько и скопировал?
Нет обычно копирует весь фрагмент. Допустим в конце дня он делает сверку с кассой. Выделил 20.02 и скопировал. На следующий день где-то водку пил и забыл сделать сверку. 22.02 делает сверку и выделяет уже 21 и 22 вместе. А с листа сверки берет данные только за 22.02 В лист Сверки данные вносит вручную, то есть все перепроверяет и в ручную вписывает.Stormy
Wasilich, Показал. В принципе доволен. Теперь немного изменилось задание Не нужен поиск и копирование столбца по дате на листе Сверка. Нужно копировать последний столбец. Так понимаю, алгоритм будет таковым. 1) Ищем последний заполненный столбец 2) Вместе с первым копируем его?
Wasilich, Показал. В принципе доволен. Теперь немного изменилось задание Не нужен поиск и копирование столбца по дате на листе Сверка. Нужно копировать последний столбец. Так понимаю, алгоритм будет таковым. 1) Ищем последний заполненный столбец 2) Вместе с первым копируем его?Stormy
With Sheets("Сверка") ps = .Range("C" & Rows.Count).End(xlUp).Row ok = .UsedRange.Columns.Count 'последний столбец Set iz = .Range("B2:C" & ps) iz.Copy Sheets("Печать").Cells(2, cl) 'копируем В и С Range(.Cells(2, ok), .Cells(ps, ok)).Copy 'копируем последний Sheets("Печать").Cells(2, cl + 2).PasteSpecial Paste:=xlPasteValues End With
With Sheets("Сверка") ps = .Range("C" & Rows.Count).End(xlUp).Row ok = .UsedRange.Columns.Count 'последний столбец Set iz = .Range("B2:C" & ps) iz.Copy Sheets("Печать").Cells(2, cl) 'копируем В и С Range(.Cells(2, ok), .Cells(ps, ok)).Copy 'копируем последний Sheets("Печать").Cells(2, cl + 2).PasteSpecial Paste:=xlPasteValues End With