Možná je otázka ... proč, když nemají vidět data, musí mít konti tabulku ??? ... jen úvaha. Pokud ji z nějakého důvodu skutečně nepotřebují pak by to šlo jen překopírovat do nového listu (sešitu) vizuálně jako konti tabulka. Třeba takto.
Sub Makro1()
' Označ a zkopíruj konti tab.
ActiveSheet.PivotTables("Tab2").PivotSelect "", xlDataAndLabel, True
Selection.Copy
' vyber nové místo
Workbooks.Add
Range("A1").Select
' vlož hodnoty
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' vlož formáty.
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
' zruš schránku
Application.CutCopyMode = False
' nastav první buňku
Range("A1").Select
End Sub
citovat
Sub Makro1()
' Označ a zkopíruj konti tab.
ActiveSheet.PivotTables("Tab2").PivotSelect "", xlDataAndLabel, True
Selection.Copy
' vyber nové místo
Workbooks.Add
Range("A1").Select
' vlož hodnoty
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' vlož formáty.
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
' zruš schránku
Application.CutCopyMode = False
' nastav první buňku
Range("A1").Select
End Sub
citovat