Copiar datos tabla dinámica.
Publicado por Pablo (77 intervenciones) el 31/07/2017 11:04:15
Buenas tardes,
Tengo el siguiente código:
Que me copia toda una tabla dinámica y me la pega en otra hoja a partir de la celda A18.
Mi problema es que solo quiero los datos, y no las etiquetas.
Cambio xlDataAndLabel por xlDataOnly y me envía un error en tiempo de ejecución.
¿Cómo podría copiar solo los datos y no las etiquetas?
Tengo el siguiente código:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub copiarDatosTabla()
Worksheets("TempPivot").PivotTables("Mi_tabla_2").PivotSelect _
"", xlDataAndLabel, True
Selection.CopySheets("Hoja1").Select
Range("A18").Select
Selection.PasteSpecial _Paste:=xlPasteValues, _
Operation:=xlNone, _
Skipblanks:=False, _
Transpose:=False
End Sub
Que me copia toda una tabla dinámica y me la pega en otra hoja a partir de la celda A18.
Mi problema es que solo quiero los datos, y no las etiquetas.
Cambio xlDataAndLabel por xlDataOnly y me envía un error en tiempo de ejecución.
¿Cómo podría copiar solo los datos y no las etiquetas?
Valora esta pregunta
0