Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » Formato personalizado, rojo si es menor o igual a 90.00%

Excel - Formato personalizado, rojo si es menor o igual a 90.00%

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil
Val: 5
Ha aumentado su posición en 4 puestos en Excel (en relación al último mes)
Gráfica de Excel

Formato personalizado, rojo si es menor o igual a 90.00%

Publicado por Esteban (3 intervenciones) el 29/07/2019 18:08:49
Hola a todos, tengo excel 2010 y mi duda es la siguiente:

Cómo le hago para que las celdas de un rango que está en formato de porcentaje que sean menores o iguales a 90.00% se pongan en rojo. En este caso por algunas razones no debo usar formato condicional, sólo puedo usar formato personalizado.

Muchas gracias.
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
sin imagen de perfil
Val: 5
Ha aumentado su posición en 4 puestos en Excel (en relación al último mes)
Gráfica de Excel

Formato personalizado, rojo si es menor o igual a 90.00%

Publicado por Esteban (3 intervenciones) el 30/07/2019 19:19:57
Muchas gracias.
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 alfredo lara
Val: 363
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Formato personalizado, rojo si es menor o igual a 90.00%

Publicado por alfredo lara (120 intervenciones) el 30/07/2019 16:20:28
Hola Esteban

Intenta escribiendo el siguiente código en la hoja donde tengas tus datos

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
   '

   If Target.Row = 1 And Target.Column = 1 And Target <> "" Then
      If [A1] <= 0.9 Then
         [A1].Interior.Color = 255
      Else
         [A1].Interior.PatternColor = xlNone
      End If
   ElseIf Target.Row = 1 And Target.Column = 1 And Target = "" Then
      [A1].Interior.PatternColor = xlNone
   End If
   '

End Sub

Espero te sea de utilidad

Saludos desde México
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
sin imagen de perfil
Val: 5
Ha aumentado su posición en 4 puestos en Excel (en relación al último mes)
Gráfica de Excel

Formato personalizado, rojo si es menor o igual a 90.00%

Publicado por Esteban (3 intervenciones) el 30/07/2019 19:20:14
Muchas gracias.
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