Fecha automática condicionada

No hace falta utilizar el formato condicional.
Simplemente teclea en A2:

=SI(B2="";"";HOY())

Formatea la columna A como fecha, y ya está.

:-)

Hola:

Quiero que la fecha se coloque automáticamente en la

primer celda vacía de la columna A al escribir

en la celda de al lado de la columna B.

Algo como "Si Range("B2") <>"" entonces Range("A2") =

Format(Now(), "dd/mm/yy")

¿Podrá lograrse con formato condicional? si es así ¿cómo?

Saludos.

Lito


.

Gracias Victor.

Ocurre que usé una solución similar a la que propones =Si(B2<>0;HOY();"") pero como que HOY() es
volátil en todas siempre aparece la fecha del día. En otra hoja usé una macro que copia y luego pega
solo valores, la metí en el código de la hoja bajo Private Sub Worksheet_SelectionChange(ByVal
Target As Range) y se quedaba en circulo sin fin. La puse en un botón pero hay que darle al botón
para activarla.
Pretendo que quede la fecha fija de cuando se llenó la celda de la columna B

¿Alguna otra idea?.

"Víctor" escribió en el mensaje
news:0b3301c397d6$b31ccaf0$
No hace falta utilizar el formato condicional.
Simplemente teclea en A2:

=SI(B2="";"";HOY())

Formatea la columna A como fecha, y ya está.

:-)

Hola:

Quiero que la fecha se coloque automáticamente en la

primer celda vacía de la columna A al escribir

en la celda de al lado de la columna B.

Algo como "Si Range("B2") <>"" entonces Range("A2") Format(Now(), "dd/mm/yy")

¿Podrá lograrse con formato condicional? si es así ¿cómo?

Saludos.

Lito


.

Prueba con este código, que va en el módulo de la hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then
Exit Sub
Else
Application.EnableEvents = False
Target.Offset(0, -1) = Now()
Application.EnableEvents = True
End If
End Sub

Esto pondría en la columna A la fecha y hora en que se modificó por última vez la misma celda de la columna B.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Lito" escribió en el mensaje news:%

Gracias Victor.

Ocurre que usé una solución similar a la que propones =Si(B2<>0;HOY();"") pero como que HOY() es
volátil en todas siempre aparece la fecha del día. En otra hoja usé una macro que copia y luego pega
solo valores, la metí en el código de la hoja bajo Private Sub Worksheet_SelectionChange(ByVal
Target As Range) y se quedaba en circulo sin fin. La puse en un botón pero hay que darle al botón
para activarla.
Pretendo que quede la fecha fija de cuando se llenó la celda de la columna B

¿Alguna otra idea?.

¡Bravo Fernando!

Gracias otra vez mas.

Un saludo

Lito.

"Fernando Arroyo" escribió en el mensaje
news:
Prueba con este código, que va en el módulo de la hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then
Exit Sub
Else
Application.EnableEvents = False
Target.Offset(0, -1) = Now()
Application.EnableEvents = True
End If
End Sub

Esto pondría en la columna A la fecha y hora en que se modificó por última vez la misma celda de la
columna B.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Lito" escribió en el mensaje news:%

Gracias Victor.

Ocurre que usé una solución similar a la que propones =Si(B2<>0;HOY();"") pero como que HOY() es
volátil en todas siempre aparece la fecha del día. En otra hoja usé una macro que copia y luego

pega

solo valores, la metí en el código de la hoja bajo Private Sub Worksheet_SelectionChange(ByVal
Target As Range) y se quedaba en circulo sin fin. La puse en un botón pero hay que darle al botón
para activarla.
Pretendo que quede la fecha fija de cuando se llenó la celda de la columna B

¿Alguna otra idea?.

¡Bravo Fernando!

Gracias otra vez mas.

Un saludo

Lito.

"Fernando Arroyo" escribió en el mensaje
news:
Prueba con este código, que va en el módulo de la hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then
Exit Sub
Else
Application.EnableEvents = False
Target.Offset(0, -1) = Now()
Application.EnableEvents = True
End If
End Sub

Esto pondría en la columna A la fecha y hora en que se modificó por última vez la misma celda de la
columna B.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Lito" escribió en el mensaje news:%

Gracias Victor.

Ocurre que usé una solución similar a la que propones =Si(B2<>0;HOY();"") pero como que HOY() es
volátil en todas siempre aparece la fecha del día. En otra hoja usé una macro que copia y luego

pega

solo valores, la metí en el código de la hoja bajo Private Sub Worksheet_SelectionChange(ByVal
Target As Range) y se quedaba en circulo sin fin. La puse en un botón pero hay que darle al botón
para activarla.
Pretendo que quede la fecha fija de cuando se llenó la celda de la columna B

¿Alguna otra idea?.