Ingresar celdas al escribir en una celda
Un saludo
Tengo puesto en la hoja:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("A" & Target.Row) = Date
End Sub
Y necesitaria que en Range("A:B"), me ingresara celdas, para que lo que he escrito con su fecha, se me desplace una celda para abajo.
Un saludo
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Application.EnableEvents = False
Range("A" & Target.Row) = Date
Range("A" & Target.Row & ":B" & Target.Row).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Application.EnableEvents = True
End If
End SubSaludos.Dante Amor
Recuerda valorar la respuesta.
