Codigo VBA para copiar el total de una tabla dinamica y pegarlo como valores

Estoy tratando de copiar el total que muestra una tabla dinamica y pegarlo como valores en otra celda pero el codigo que estoy utilizando no funciona; "suma de total" es el nombre de la celda que aparece cuando posiciono el cursor sobre el total, creo que alli podria estar el error pero no se como solucionarlo. ¿Podrian por favor ayudarme con sus sugerencias?

Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("REPORTEVENTAS").PivotCache.Refresh
End Sub
'Sub copiartotal()
         'Selection.Copy
'         Range("Suma de TOTAL").Copy
'         Range("D10").PasteSpecial xlPasteValues
'          Application.CutCopyMode = False
'End Sub

Respuesta

Rebeca,

Primer error

 Range("Suma de TOTAL"). Copy

si nombraste la celda ese no seria su nombre excel no permite nombre con espacios

Segundo error

 Range("D10"). PasteSpecial xlPasteValues

si aqui vas a pegar el valor de la suma en mi caso espesifico tambien la hoja

No olvide valora sino sale a camino estamos pata ayudar 

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas