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
Hola a todos, soy nuevo me parece que estoy en una de las mejores comunidades web :-)
He aquí mi problema:
Tengo un archivo excel con 4 hojas:
Datos: Contiene los datos de la tabla dinámica
hoja 1: Tabla dinámica 1
hoja 2: Tabla dinámica 2
hoja 3: Tabla dinámica 3
Quisiera una macro que me permita:
1) Filtrar las tablas dinámicas sólo de la hoja 1 y hoja 2, según el valor de la celda F1 que está en la hoja 1.
2) Ojo la TD de la hoja 3 no debe actualizar su filtro.
3) Convertir las formulas y TD sólo en valores, pero que CONSERVE su formato (colores).
4) Eliminar la hoja "Datos", eliminar la macro y guardar una copia del libro en una carpeta y nombre específica.
5) Si tuviese un gráfico dinámico que lo convierta en imágen.
Les adjunto mi archivo con la data que explico, y adicionalmente con unas macros en el txt que encontré y que me gustaría adaptar a mi necesidad.
Quedo atento a vuestra gentil respuesta.
Muchas gracias amigos!!
Filtrar TD y Guardar Copia.rar
Macros.txt