Se puede asociar el Formato condicional a una celda que ponga la fecha actual

¿Se puede asociar en formato condicional una condición que ponga la fecha del día en curso?

1 Respuesta

Respuesta
1

Vista:

Excel y Macros


No entendí muy bien tu pregunta.

¿Quieres qué el formato condicional te ponga en una celda la fecha del día en curso?

¿O quieres seleccionar varias fechas y la que tenga el día en curso cambiar el formato de la celda?


Si es lo segundo, realiza lo siguiente:

1. Selecciona las celdas o la columna donde quieres aplicar el formato condicional.

2. Selecciona la Ficha Inicio, Estilos, Formato Condicional.

3. Selecciona la opción: "Aplicar formato únicamente a las celdas que contengan".

4. Selecciona "Valor de la celda"

5. Selecciona "igual a"

6. Y en el campo escribe:

=HOY()

7. Selecciona el "Formato" que deseas y presiona Aceptar


Hola, sería la primera, gracias 

Es decir, tengo una columna de fechas que están en blanco, cuando yo ponga un ok en otra columna, me gustaría que en la columna de fechas se pusiera la fecha de ese momento, no se si es posible, gracias 

Si quieres que la fecha permanezca fija después de poner "ok", entonces pone el siguiente código en los eventos de tu hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
'Por Dante Amor
  Dim rng As Range, cel As Range
  Dim valor As Variant
  Dim sincambios As Boolean
  '
  Set rng = Intersect(Target, Columns("B")) 'columna donde vas a poner "ok"
  '
  If Not rng Is Nothing Then
    For Each cel In rng
      If cel.Value = "" Then
        valor = ""
      ElseIf UCase(cel.Value) = UCase("ok") Then
        valor = Date
      Else
        sincambios = True
      End If
      If sincambios = False Then
        Application.EnableEvents = False
        Range("D" & cel.Row).Value = valor    'Columan de Fechas
        Application.EnableEvents = True
      End If
    Next
  End If
End Sub

NOTAS:

Cambia en el código "B" por las letra de la columna donde vas a poner "ok"

Cambia "D" por la letra de la columna donde quieres la fecha.

Cada vez que escribas "ok" en alguna celda de la columna "B", pone en automático la fecha en la columna "D" en la misma fila.

Si borras el "ok", también se borra la fecha de la misma fila.

Si escribes cualquier otro dato, no pasa nada.


Sigue las Instrucciones para poner la macro en los eventos de worksheet

  1. Abre tu libro de excel
  2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
  3. Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
  4. En el panel del lado derecho copia la macro
  5. Regresa a la hoja y empieza a escribir "ok" en las celdas.
  6. Debes guardar el archivo como excel habilitado para macros.


Visita:

Comparte el enlace con alguien que desee conocer sobre Excel y Macros.


Sal u dos

Buenos días, ante todo gracias por tu interés, he estado siguiendo todos los pasos que me has indicado pero no ha funcionado, supongo que algún paso no lo he hecho bien, era para que lo supieras, muchas gracias

Revisa lo siguiente:

 

Realiza los pasos de la imagen.

No cambias nada en la macro. Primero revisa que funcione en un archivo nuevo y después la adaptas.


Si quieres hacerle cambios a la macro, mejor dime en dónde vas a poner "ok" y en dónde quieres la fecha y con gusto hago los cambios.


O comparte tu archivo en google drive, le cambias el permiso para cualquiera que tenga el enlace, copia el enlace y lo pegas aquí.

Actualizo tu libro con todos los pasos y te regreso el archivo.

O envíame el archivo a mi correo:

[email protected]


Visita:


sal u dos

}

Buenas tardes, ahora si que me funciona! Muchas gracias! Una ultima pregunta si puede ser, es que si aparte de ok quiero que se active también con "esp" se podría hacer, perdona si es mucho trabajo, muy agradecido

Un saludo

Visita:

Excel y Macros


Cambia esta línea:

UCase(cel.Value) = UCase("ok")

Por esta línea:

ElseIf UCase(cel.Value) = UCase("ok") Or UCase(cel.Value) = UCase("esp") Then

Recomendación del día:

Generar archivos en automatico #excel #macro - YouTube


{sal u dos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas