Очень нужна помощь. Есть записанный макрос по выделению диапазона ячеек в одной Книге и копирование в другую.
Но нужно его автоматизировать, т.к. диапазон будет постоянно меняться. Что нужно поправить чтобы макрос сам выделял не скрытые заполненные ячейки.
Предыстория.
Есть Книга1 с большим числом ежечасно дополняемых данных и Книга2 с выборкой. Первый макрос запускается в Книге2 и фильтрует данные в Книге1 в зависимости от введенной даты. Второй должен копировать отфильтрованный диапазон в Книге1 и вставлять в Книгу2. Вот со вторым и возникла проблема.
Было много попыток, в самой удачной почему-то копируется вся таблица, только скрытые строки становятся пустыми. Мне такой вариант не подходит. Хочется чтобы ничего лишнего не было, даже пустых строк.
Буду благодарна за помощь.
Но нужно его автоматизировать, т.к. диапазон будет постоянно меняться. Что нужно поправить чтобы макрос сам выделял не скрытые заполненные ячейки.
| Код |
|---|
Sub КОПИРОВАНИЕ()
'
Range("Таблица3").Select
Selection.Clear
Range("A5").Select
Windows("2 котел.xlsx").Activate
Range("A18105:AI18167").Select 'вот тут нужно что-то изменить/дополнить
Selection.Copy
Windows("Выборка.xlsm").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub |
Предыстория.
Есть Книга1 с большим числом ежечасно дополняемых данных и Книга2 с выборкой. Первый макрос запускается в Книге2 и фильтрует данные в Книге1 в зависимости от введенной даты. Второй должен копировать отфильтрованный диапазон в Книге1 и вставлять в Книгу2. Вот со вторым и возникла проблема.
Было много попыток, в самой удачной почему-то копируется вся таблица, только скрытые строки становятся пустыми. Мне такой вариант не подходит. Хочется чтобы ничего лишнего не было, даже пустых строк.
Буду благодарна за помощь.
