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 buenas
Para restar fechas algo básico, uso estas funciones:
21/11/2020
26/01/2021
=A2-A1
=SIFECHA(A1;A2;"D")
Su resultado son 66 dias.
Pero si en el calendario cuento manualmente son 67 dias.
Todo esto es por una factura de Gas, que en esas fechas ellos dan 67 dias.
Claro la solución mas rápida para cuadrar es añadir a la formula +1, pero no se trata de esto.
Un Saludo.