Excel función HOY() no volatil

02/11/2006 - 20:35 por Pablo Fdez. | Informe spam
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

#1 Tux
03/11/2006 - 20:09 | Informe spam
Pablo Fdez. escribió:
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.



Hola Pablo :-)

He probado el codigo y te refieres a que si por ejemplo nos ponemos en
la Celda donde dice "dato 3 Fecha" y arrastramos hacia abajo, ¿tambien
arrastra la fecha? :-)

¡Un SAludo!:-)

www.fermu.com
www.zorval.es

Preguntas similares