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
Saludos, deseo poder ingresar la fecha y hora de sistema en la celda activa con el formato especial mm/dd/aaaa hh:mm
Ejemplo:
Al correr la macro se ingresa el dato 01/23/2015 10:16 que corresponderia al 23 de Enero de 2015 siendo las 10:16 A.M .
Sub fechahora()
ActiveCell.Value = Now
End Sub
Como hacer la adecuación?
fecha_hora.zip