Доброго времени, планетяне!!!
Помогите пожалуйста дополнить код макроса. Так как я сам не столь силен в макросах. Пример в приложении.
Есть таблица, которая будет обновляться ежедневно с большим количеством записей (более 700 тыс). После фильтрации (устанавливается вчерашняя дата), и нажатия кнопки, данные за вчерашний день должны будут скопированы на другой лист с присвоением этому листу дня недели (в соответствии со вчерашней датой). Например, как показано в примере: данные за 25/06/18 - Понедельник, должны быть скопированы на лист с именем Mon. Как только заполнились все 7 дней недели, то листы обнуляются и в листе Mon будут уже данные за 02/07/18 и т.д.
Единственный макрос, что я записал, делает копию на другой лист бесконечное количество раз и без имени листа
| Код |
|---|
Sub CopyTable()
Sheets("Statistics").Range("A8:C500000").Copy 'Copy data in active table
Sheets.Add After:=Worksheets(Worksheets.Count)
Range("A1").Select 'Selecting right range
Selection.PasteSpecial Paste:=xlPasteColumnWidths
ActiveSheet.Paste 'Pasting in right destination
Application.CutCopyMode = False
End Sub |
