Добрый день!
Помогите, пожалуйста, с макросом. Второй день пытаюсь решить простецкую задачу, но интернет предлагает не совсем то, что мне нужно. Поиск по форуму тоже не помог.
В общем, необходимо из сводной таблицы копировать значения из диапазона C56:C155 в другой лист, чтобы первая ячейка этих данных была в первой непустой ячейке строки 2. Дело в том, что каждую неделю данные будут пополняться.
Записал макрос, но он копирует данные в активную ячейку. Я полагаю, что не хватает строки для выбора нужной ячейки.
Заранее спасибо!
Помогите, пожалуйста, с макросом. Второй день пытаюсь решить простецкую задачу, но интернет предлагает не совсем то, что мне нужно. Поиск по форуму тоже не помог.
В общем, необходимо из сводной таблицы копировать значения из диапазона C56:C155 в другой лист, чтобы первая ячейка этих данных была в первой непустой ячейке строки 2. Дело в том, что каждую неделю данные будут пополняться.
Записал макрос, но он копирует данные в активную ячейку. Я полагаю, что не хватает строки для выбора нужной ячейки.
Заранее спасибо!
Код |
---|
Sub Macro() Sheets("Cone Pivot").Select With ActiveSheet.PivotTables("Ñâîäíàÿ òàáëèöà2").PivotFields("parameter_id") .PivotItems("SROD_LMC").Visible = False .PivotItems("SROD_Mean").Visible = False .PivotItems("SROD_MMC").Visible = False .PivotItems("SROD_OOR").Visible = False .PivotItems("Upper_LROD").Visible = False .PivotItems("(blank)").Visible = False End With ActiveWindow.SmallScroll Down:=21 Range("C56:C155").Select Selection.Copy Sheets("Cone Width").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub |