Hola a todos.
Estoy empleando una macro de KL para fijar una fecha en una columna cuando
se aporta un dato en otra columna.
Ejemplo:
Col A Col B
dato 1 Fecha
dato 2 Fecha
dato 3 Fecha
La fecha de filas anteriores no debe cambiar cuando se aportan nuevos
datos.Todo funciona correctamente cuando el dato se aporta manualmente
pero cuando se arrastra y autorellenan las filas posteriores ( Col
A). la fecha del dato que se arrastra tambien cambia. ¿ como se puede
evitar esto?
Los datos de la Col A son números correlativos y se autorellenan en
diferentes momentos del día.
Este es el código
'Inicio codigo--
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, c As Range
On Error Resume Next
Set rng = Intersect(Target, [A:A])
On Error GoTo 0
If rng Is Nothing Then Exit Sub
For Each c In rng
c.Offset(, 1) = Now
' sustituye "Now" por "Date" si solo quieres la fecha
Next c
[B:B].EntireColumn.AutoFit
End Sub
'Fin codigo--
Saludos
Pablo Fdez.
Leer las respuestas