Foro Excel

Buenas tardes

mi consulta es la siguiente actualmente tengo el macro

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 2 Then Target.Offset(0, -1) = Date & " " & Time
End Sub

lo que hace es que cuando alguna celda de la columna 2 es modificada por cualquier valor en la columna 1 se pone la fecha y hora en que fue modificada el proble es que quiero que al borrar la celda que modifique en la columna 2 limpie tambien la columna 1

espero haberme explicado

Saludos

Hola.

Prueba asi:

Código: Seleccionar todo

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 2 Then Target.Offset(0, -1) = Date & " " & Time
If Target.Value = "" Then Target.Offset(0, -1) = ""
End Sub

Un saludo.

Hola gracias amigo me fue de maravilla el codigo estaba facil heheheheh yo lo estaba probando con

Código: Seleccionar todo

Activecell.value = "" ....

hehehe te lo agradezco

Saludos desde Guatemala

Toldeman escribió:Hola.

Prueba asi:

Código: Seleccionar todo

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 2 Then Target.Offset(0, -1) = Date & " " & Time
If Target.Value = "" Then Target.Offset(0, -1) = ""
End Sub

Un saludo.

A mí así me da un fallo; en concreto, a la hora de borrar no se limita solo a la columna 2, sino que toma como referencia la columna de cualquier celda que se borre, y por tanto me borra cualquier dato que tenga 1 columna atrás.

Es decir, si me situó en la columna "F" y borro el contenido de una de sus celdas se borrara también el contenido de la celda adyacente en "E".

¿Como se puede limitar solo a un rango?

Ya está; de la siguiente manera no me da ningún tipo de fallo, y funciona solo en esa columna:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo mierror
If Target.Column = 3 Then Target.Offset(0, -2) = Application.WorksheetFunction.Max(Range("A:A")) + 1
If Target.Column = 3 And Target.Value = "" Then Target.Offset(0, -2) = ""
mierror:
End Sub