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
Queria hacerles una pregunta. Es un poco tonta pero no logro hacer que trabaje.
Lo que quiero hacer es ejemplo: tener una hoja de excel, indiferentemente le haga un cambio en una celda "x" o "y"
me aparezca en una celda que yo le especifique, la fecha y hora de modificación.
Encontre este código y me funciona bien, el tema es que quiero colocarlo en vez de (1,1) lo quiero colocar
digamos en la O4.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cells(1, 1).Value = "Last saved: " & Format(Date, "dd-mm-yy") & " " & Time
End Sub
Referecia: Can I make a cell in Excel that stamps the time of the last time the .xls was saved?