Modificar fecha en celda
Para que se modifique una celda poniendo la fecha previamente poniendo un dato en la anterior hay que hacer esto:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Target.Offset(0, 1) = Date
End If
End Sub
¿Pero si quiero que todas la celdas de abajo hagan lo mismo a1 a2 a3 y así sucesivamente como lo hago?
Gracias!
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Target.Offset(0, 1) = Date
End If
End Sub
¿Pero si quiero que todas la celdas de abajo hagan lo mismo a1 a2 a3 y así sucesivamente como lo hago?
Gracias!
1 Respuesta
Respuesta
1
No estoy seguro lo que preguntás, si lo que querés es que modificando "cualquier" celda de la columna A se ingrese la fecha en la fila de abajo, entonces podrías hacer
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column= 1 Then
Target.Offset(0, 1) = Date
End If
End Sub
En cambio si querés que si modificando A1 querés que se rellenen desde la fila 2 para abajo deberías hacer
Range(Cells(2,1),Cells(1000,1)) = Date
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column= 1 Then
Target.Offset(0, 1) = Date
End If
End Sub
En cambio si querés que si modificando A1 querés que se rellenen desde la fila 2 para abajo deberías hacer
Range(Cells(2,1),Cells(1000,1)) = Date
End If
End Sub
Yo quiero poner por en A1 y B1 cambie a fecha actual
x en A2 y B2 cambie a fecha y hora actual. y asi sucesivamente.
Distintos problemas que encuentro: modifico A1 y me cambia B1, B2, B3...
Pongo por un día en A1 y otro día en A2 y no me respeta de forma individual... me cambia con el ultimo día todas la celdas... no respeta el histórico de fechas vaya...
Saludos!
x en A2 y B2 cambie a fecha y hora actual. y asi sucesivamente.
Distintos problemas que encuentro: modifico A1 y me cambia B1, B2, B3...
Pongo por un día en A1 y otro día en A2 y no me respeta de forma individual... me cambia con el ultimo día todas la celdas... no respeta el histórico de fechas vaya...
Saludos!
Ok perdona es ok lo que me pones!
Muchas gracias!
Tengo otra cuestión en excel! ¿Puedo consultártela a ti mediante otra pregunta?
5 estrellas!
Muchas gracias!
Tengo otra cuestión en excel! ¿Puedo consultártela a ti mediante otra pregunta?
5 estrellas!