Formateo condicional usando VBA

Question

Me gustaría el código correcto para usar el formato condicional. Tengo datos para la suma del formulario de ventas de 4 trimestres ("K8: K207"). Quiero aplicar el formato condicional en la que tengo 3 condiciones:

1. Resalte Columna K (venta anual total) para el año superior a 1.00.000 como verde
2. entre 90.000 y 1.00.000 como el ámbar
3. y menos de 90,000 como rojo

Ayuda por favor cómo puedo escribir un código usando el lazo.

Answer 1

No necesita un bucle para esto. Puede agregar una nueva FormatCondition a su objeto de rango.

lLow = 90000 
lHigh = 100000 

Set rng = Range("K8:K207") 
rng.FormatConditions.Delete ' delete any pre-existing formatting 

' add greater than condition 
With rng.FormatConditions.Add(Type:=xlCellValue, Operator:=xlGreater, Formula1:="=" & lHigh) 
    .Interior.Color = rgbLimeGreen 
End With 

' add middle condition 
With rng.FormatConditions.Add(Type:=xlCellValue, Operator:=xlBetween, Formula1:="=" & lLow, Formula2:="=" & lHigh) 
    .Interior.Color = rgbGold 
End With 

' add less than condition 
With rng.FormatConditions.Add(Type:=xlCellValue, Operator:=xlLess, Formula1:="=" & lLow) 
    .Interior.Color = rgbRed 
End With