Fecha actual en celda

Hola Lisandro:

Gracias, pero resulta que si pongo esa fórmula y la copio en las restantes
celdas de la columna "Fecha", automáticamente me pone la fecha actual, es
decir, la fecha que tiene la PC en el momento de pegar la fórmula, no cuando
yo voy introduciendo datos en las distintas filas.
Me explico mejor. Si yo tengo una hoja para hacer el control de facturas y
quiero que al introducir una nueva factura, por tanto una nueva línea,
quiero que la hoja me saque automáticamente el día en que introduzco los
datos de la nueva factura.

Gracias por la ayuda de todas formas.
"Lisandro" escribió en el mensaje
news:1fdc01c4afb7$f7185720$
Hola gemini!!

introducir datos en la fila, una determinada celda de la

columna me ponga por defecto la fecha actual (dd/mm/aaaa)..
..Pues prueba con esta formula en cualquier celda:
=hoy() o =ahora()
Elige la de tu preferencia..
Saludos
Lisandro.

Hola:

Alguien me sabría decir como puedo configurar una columna

para que al

introducir datos en la fila, una determinada celda de la

columna me ponga

por defecto la fecha actual (dd/mm/aaaa), sin perjuicio

que pueda

modificarla de no querer que esta sea la actual.

Creo haberme explicado.

Gracias por las respuestas. Un saludo.



.

Hola gemini!!

introducir datos en la fila, una determinada celda de la

columna me ponga por defecto la fecha actual (dd/mm/aaaa)..
..Pues prueba con esta formula en cualquier celda:
=hoy() o =ahora()
Elige la de tu preferencia..
Saludos
Lisandro.

Hola:

Alguien me sabría decir como puedo configurar una columna

para que al

introducir datos en la fila, una determinada celda de la

columna me ponga

por defecto la fecha actual (dd/mm/aaaa), sin perjuicio

que pueda

modificarla de no querer que esta sea la actual.

Creo haberme explicado.

Gracias por las respuestas. Un saludo.



.

Por ejemplo, el siguiente código pone en el rango B2:B10 la fecha y hora de modificación del rango A2:A10

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Target.Parent.Range("A2:A10")) Is Nothing Then Exit Sub

Application.EnableEvents = False
ActiveSheet.Cells(Target.Row, 2) = Now()
Application.EnableEvents = True
End Sub

El código va en el módulo de la hoja (click derecho sobre su etiqueta->Ver código).

Un saludo.


Fernando Arroyo
MS MVP - Excel


"gemini" escribió en el mensaje news:%230X8e%

Hola Lisandro:

Gracias, pero resulta que si pongo esa fórmula y la copio en las restantes
celdas de la columna "Fecha", automáticamente me pone la fecha actual, es
decir, la fecha que tiene la PC en el momento de pegar la fórmula, no cuando
yo voy introduciendo datos en las distintas filas.
Me explico mejor. Si yo tengo una hoja para hacer el control de facturas y
quiero que al introducir una nueva factura, por tanto una nueva línea,
quiero que la hoja me saque automáticamente el día en que introduzco los
datos de la nueva factura.

Gracias por la ayuda de todas formas.