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 nuevamente!
Estoy haciendo una planilla donde necesito que se ingrese la fecha automáticamente en varias celdas al modificar la celda izquierda.
Por ejemplo, al ingresar un dato en la celda "C" se ingrese la fecha en la celda "D", lo mismo con la celda "G" y"H", y así con muchas más celdas!
Intenté con el código:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D:D")) Is Nothing Then
Range("C" & Target.Row) = Date
End If
End Sub
Pero no encuentro el modo de extenderlo hacia otras celdas.
Muchas gracias!
NUEVO SALDOS - copia.rar