Necesito acabar este codigo que introduce la hora en una celda

[helenaberdasco]

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

[ikanni]

Hola Helena,

A ver sí te vale esto.

Private Sub Worksheet_Change(ByVal Target As Range)
   With Target
      If .Column = 1 Then
         Application.EnableEvents = False
         .Offset(, 4) = Format(Now, "hh:mm")
         If Len(.Text) = 0 Then .Offset(, 4) = ""
         Application.EnableEvents = True
      End If
   End With
End Sub

 

[helenaberdasco]

Me sale error se ha detectado nombre ambiguo debe ser porque aparecen dos

private Sub Worksheet_Change(ByVal Target As Range)

[Antoni]

Debes eliminar tu primer código y sustituirlo por el que te indica ikanni.

[helenaberdasco]

Resuelto, muchísimas gracias 

[helenaberdasco]

Perdonadme pero soy super novata 

Private Sub Worksheet_Change(ByVal Target As Range)
   With Target
      If .Column = 1 Then
         Application.EnableEvents = False
         .Offset(, 4) = Format(Now, "hh:mm")
         If Len(.Text) = 0 Then .Offset(, 4) = ""
         Application.EnableEvents = True
      End If
   End With
End Sub

este código funciona fenomenal cuando borro los datos de la celda a18 se borrar los datos de la celda e18 y ¿si quisiera borrar además de la e18, la f18? 

[ikanni]

Hola Helena,

Cambia esta fila

Hace 20 minutos , helenaberdasco dijo:

If Len(.Text) = 0 Then .Offset(, 4) = ""

por esta 'otra' :

Hace 20 minutos , helenaberdasco dijo:

If Len(.Text) = 0 Then .Offset(, 4) = "" : .Offset(, 5) = ""

Saludos

[helenaberdasco]

Muchísimas gracias

[helenaberdasco]

En 24/9/2020 at 17:17 , helenaberdasco dijo:

Perdonadme pero soy super novata 

Private Sub Worksheet_Change(ByVal Target As Range)
   With Target
      If .Column = 1 Then
         Application.EnableEvents = False
         .Offset(, 4) = Format(Now, "hh:mm")
         If Len(.Text) = 0 Then .Offset(, 4) = ""
         Application.EnableEvents = True
      End If
   End With
End Sub

este código funciona fenomenal cuando borro los datos de la celda a18 se borrar los datos de la celda e18 y ¿si quisiera borrar además de la e18, la f18? 

ikani siento molestarte, me diste este código para que si modificaba la columna "a" se rellenaran la celda E, pero como no tengo ni idea he cambiado la tabla y ahora necesito que cuando la columna "C16" se modifique se incluya en la columna "b16" la fecha y así es las siguientes celdas.

[ikanni]

Hace 19 horas, helenaberdasco dijo:

ikani siento molestarte, me diste este código para que si modificaba la columna "a" se rellenaran la celda E, pero como no tengo ni idea he cambiado la tabla y ahora necesito que cuando la columna "C16" se modifique se incluya en la columna "b16" la fecha y así es las siguientes celdas.

Private Sub Worksheet_Change(ByVal Target As Range)
   With Target
      If .Column = 3 Then ' Si la celda cambiada petenece a la coluna 3 = "C", entramos ...
         Application.EnableEvents = False 'Desactivo eventos porque voy hacer cambios en las celdas
         .Offset(, -1) = Format(Now, "hh:mm") 'Ponemos la hora en la celda, una celda a la Izq, de la celda modificada
                                             ' que si estamos en "C" ==> "B"
         If Len(.Text) = 0 Then .Offset(, -1) = "" ' Evaluo : Sí En la celda cambiada no hay nada, elimino
                                                  ' lo que hay en la celda una a la Izq
         Application.EnableEvents = True 'Activamos eventos 
      End If
   End With
End Sub

Te dejo el código comentado para que el próximo cambio te lo puedas apañar tú.

Saludos

[helenaberdasco]

Muchisimas gracias ikanni, espero aprender poco a poco y no volver a molestarte. Muchas gracias de verdad por tu tiempo.

[YianTheJOP]

@ikannicon tu permiso, yo usaré también tu código para una base de datos e ideas que tengo en la cabeza. 

Gracias.