Страницы: 1
RSS
Разрываем связи в Сводной таблице
 
Имеется Сводная таблица, как разорвать все связи оставив только значения?
 
[пятничный оффтоп] Самсон, разрывающий связи сводной таблицы :D
 
Загляните: http://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=1&TID=46603
Я сам - дурнее всякого примера! ...
 
Спасибо, нашел там решение копировать через Специальную Вставку, что автоматом вернуло меня к своему первому вопросу  :D
http://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=1&TID=47122
 
Вряд ли в пятницу вечером найдется толпа желающих рисовать за Вас пример. Выкладывайте файл, посмотрим.
Я сам - дурнее всякого примера! ...
 
Код
Sub ForNarezka()

    ActiveWorkbook.Worksheets("Свод").Activate
    ActiveSheet.PivotTables("СводнаяТаблица").PivotSelect "", xlDataAndLabel, True
    Worksheets("Свод).PivotTables("СводнаяТаблица").PivotSelect "", xlDataAndLabel, True
    Selection.Copy
    
    Sheets.Add.Name = "Нарезка"
    
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
       xlNone, SkipBlanks:=False, Transpose:=False
        
End Sub


Нашел временное решение, данные как ни странно, без проблем встают на новый лист, похоже придется форматировать тоже программно.

Хотелось бы, все таки научиться вставлять на существующий лист!
Изменено: TankSpb - 29.03.2013 23:41:23
 
Учитесь.
Я сам - дурнее всякого примера! ...
 
Цитата
KuklP пишет:
Вряд ли в пятницу вечером
Да еще и тринадцатого. :D
Страницы: 1
Читают тему
Наверх