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 amigos excelianos.
Nuevamente en el foro solicitando vuestra ayuda en mi problema
he creado el teme en fórmulas, pero no se si habría que pasarlo a macros
necesito ordenar unos datos, os adjunto un fichero donde os explico lo que necesito.ç
he puesto solamente unos número en tres columna, pero son bastantes mas
Un saludo desde la distancia y muchas gracias por anticipado
ejemplo.xlsx