Excel - Condición con valor de propia celda

 
Vista:

Condición con valor de propia celda

Publicado por Quim (1 intervención) el 24/04/2018 16:49:25
Buenas gente!

Me estoy comiendo la cabeza porque no sé como orientar lo que quiero hacer... igual no se puede, o hay otra mejor forma de hacerlo pero estoy bloqueado... help!!!
Os comento:

Tengo una columna A con todas las filas valor 1.
Tengo una columna B con todas las filas vacías.

Quiero que cuando pongo un 2 en la columna A, la columna B me muestre la fecha de hoy().
Hasta aquí sin problemas, lo sé hacer...
El tema está en quiero que si mañana entro en la excel, la fecha de la columna B me muestre la del momento en que puse el 2 en la fila uno. Tal y como lo hago, siempre me muestra la fecha actual...

Socorro!! Mi cabeza va a estallar!!

Mil gracias por adelantado.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de wordexperto.com
Val: 6.108
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Condición con valor de propia celda

Publicado por wordexperto.com (2091 intervenciones) el 24/04/2018 17:05:57
Hola Qim:
En vez de añadir columnas y poner unos y doses, con una sola pulsación: Ctrl+, (coma), se introduce la fecha del día fija. Te ahorras macros y otras historias. Una sola pulsación.
https://wordexperto.com/
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Ignacio
Val: 733
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Condición con valor de propia celda

Publicado por Ignacio (199 intervenciones) el 24/04/2018 18:03:41
Hola:

Puedes utilizar el siguiente código, con esto al capturar un 2 en la columna A, en la B te pone la fecha y hora actual, si pones cualquier otro dato o borras, te deja la celda en blanco:

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
    If Cells(Target.Row, "A") = 2 Then
             Cells(Target.Row, "B") = Now
     Else
            Cells(Target.Row, "B") = ""
    End If
End If
End Sub

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar