Cómo Rellenar las Celdas de un rango con un Formato Condicional

0

 

Código:

Sub RellenarFormatoCondicional()

    Dim Rng As Range
    Dim Celda As Range

    Set Rng = Range("A1:A10")
    Rng.FormatConditions.Delete
    
    With Rng.FormatConditions.Add(Type:=xlCellValue, _
            Operator:=xlBetween, Formula1:="=1", Formula2:="=4")
            
        .Interior.Color = RGB(255, 0, 0) 'Rojo valores cercanos a 1
    End With
    
    With Rng.FormatConditions.Add(Type:=xlCellValue, _
            Operator:=xlBetween, Formula1:="=5", Formula2:="=7")
            
        .Interior.Color = RGB(255, 255, 0) 'Amarillo valores intermedios
    End With
    
    With Rng.FormatConditions.Add(Type:=xlCellValue, _
            Operator:=xlBetween, Formula1:="=8", Formula2:="=10")
            
        .Interior.Color = RGB(0, 255, 0) 'Verde valores cercanos a 10
    End With

End Sub

⭐ Si te gustó, por favor regístrate en nuestra Lista de correo y Suscríbete a mi canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.




Entradas que pueden interesarte

Entradas antiguas

Sin comentarios

Etiquetas:
#aprendiendoexcel365, #josealcaldealias, #Excel, #funciones, #UDF, #Visual Basic, #VBA, #DAX, #Tips, #Basico, #Microsoft Excel, #Cursos Excel OnLine, #Aprende Excel, #Aprende Excel OnLine, #Excel 365, #Power Pivot, #Power BI, #Power Query, #Google Sheets, #Macros, #Código VBA, #Tutoriales Excel, #MTV, #Vbscript, #TypeScript, #Lenguaje M, #fórmulas, #funciones, #paso a paso, #funciones Excel, #libros, #tablas, #formatos, #hojas, #datos, #gráfico, #análisis de datos, #base de datos, #dashboards, #tablas dinámicas, #excel desde cero, #hoja de cálculo, #plantillas de Excel