Como copiar los valores de una tabla dinámica a otra hoja macros
Buenos Días,
Tengo un reporte por tablas dinámicas y lo que deseo es copiar los valores en otra hoja con una estructura más elegante.
Gracias
1 Respuesta
Respuesta de Dante Amor
1
Juan Carlos:
Te anexo la macro.
Sub Macro1()
'Por.Dante Amor
Sheets("Hoja1").Range("D1:E7").Copy
Sheets("Hoja2").Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End SubCambia en la macro "Hoja1" por la hoja en donde tienes la macro.
Cambia "D1:E7" por el rango que quieres copiar de la tabla dinámica
Cambia "Hoja2" por la hoja destino
Cambia "A1" por la celda inicial en donde quieres pegar los valores.
Si quieres copiar toda la tabla:
Sub Macro3()
'Por.Dante Amor
Sheets("Hoja1").Select
ActiveSheet.PivotTables("Tabla dinámica1").PivotSelect "", xlDataAndLabel, True
Selection.Copy
Sheets("Hoja2").Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End SubCambia los datos "Hoja1", "Hoja2" "A1" por tus datos
