Error en "IF"
Publicado por Albert (204 intervenciones) el 10/11/2020 11:23:26
Buenos días foreros, estoy haciendo una pequeña aplicación donde necesito que se ponga en rojo cuando la diferencia es menor del 50% , lo que en excel seria "Formato Condicional" lo primero que hago es calcular el % en la celda I2 con el siguiente código
esto lo hace bien, después utilizo "IF" para que cambie el color de la celda H2 con el código:
pero no me tiene en cuenta el "IF" y lo pone siempre en rojo aunque el porcentaje sea mayor de 50%
queria poner otro condicional para que pusiera en verde los mayores de 50% pero ya no me atrevo si no me sale el primero
no se que hago mal.
Gracias de antemano por vuestra ayuda
1
2
3
4
5
Range("I2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-1]/R[5]C[-5]"
Range("I2").Select
Selection.NumberFormat = "0.00%"
esto lo hace bien, después utilizo "IF" para que cambie el color de la celda H2 con el código:
1
2
3
4
If Hoja10.Range("I2") < ("50%") Then
Range("H2").Select
Selection.Font.ColorIndex = 3
End If
pero no me tiene en cuenta el "IF" y lo pone siempre en rojo aunque el porcentaje sea mayor de 50%
queria poner otro condicional para que pusiera en verde los mayores de 50% pero ya no me atrevo si no me sale el primero

no se que hago mal.
Gracias de antemano por vuestra ayuda
Valora esta pregunta


0