Necesito acabar este codigo que introduce la hora en una celda
publicado
He realizado este codigo para que cuando escriba en la columna A se rellene con la hora en la casilla E.
Ahora necesitaría que si borro el dato de la celda por ejemplo a1 se borrara la celda e1 y sucesivamente, es decir que si quito la información de alguna celda de la columna "a" se borrara la celda e correspondiente.
Gracias
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("a:a")) Is Nothing Then
Range("e" & Target.Row) = Format(Now, "hh:mm")
End If
End Sub
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
He realizado este codigo para que cuando escriba en la columna A se rellene con la hora en la casilla E.
Ahora necesitaría que si borro el dato de la celda por ejemplo a1 se borrara la celda e1 y sucesivamente, es decir que si quito la información de alguna celda de la columna "a" se borrara la celda e correspondiente.
Gracias
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("a:a")) Is Nothing Then
Range("e" & Target.Row) = Format(Now, "hh:mm")
End If
End Sub