Saludos Profesor Sergio, de ante mano gracias por responder, realice lo que me sugirió coloque el código donde me indicó, sin embargo me sigue arrojando el mismo error.
' Restaurar formato de fuente
With wsHistorico.Rows("2:2").Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
' Incrementar automáticamente el número de recibo
wsRecibo.Range("J2").Value = wsRecibo.Range("J2").Value + 1
'Corrección de Error en impresión
Application.Wait (Now + TimeValue("0:00:01"))
' Imprimir
wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Por
dorgelis, · publicado
buenas tardes amigos , tengo un problema al realizar una macro que realice una tabla dinamica tengo los siguientes datos.
Nombre Nombre_Concepto Año Mes Valor
MONTES DEL CASTILLO JAIRO ASIGNACION BASICA-SUELDO 2002 1 1225174
MONTES DEL CASTILLO JAIRO AUXILIO DE TRANSPORTE 2002 1 34000
MONTES DEL CASTILLO JAIRO AUXILIO DE ALIMENTACION 2002 1 50848
MONTES DEL CASTILLO JAIRO PRIMA ANTIGUEDAD EMP.PUBL 2002 1 67385
MONTES DEL CASTILLO JAIRO PRIMA TECNICA 2002 1 263412
MONTES DEL CASTILLO JAIRO AJUSTE FONDO SOLIDARIDAD 2002 1 16809
cuando grabo la macro para que me cree la tabla dinamica me genera el siguiente error
agradezco cualquier ayuda para solucionar este problema
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"A1:B1", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="C2", TableName:="Tabla dinámica7", _
DefaultVersion:=xlPivotTableVersion14