Cambiar Color Fondo Según Condición 2

Código Macro

'Este código es para cambiar el color de fonde de la celda si cumple alguna condición...

'(Trabaja sobre una columna objetivo o dada)
Sub Cambiar_Color_Celda2()
'Uso de un ciclo para cambiar el color de una celda que cumpla cierta condición
Dim UltimaFila As Double
Dim i As Integer
Dim ColumnaObjetivo As Integer
    ColumnaObjetivo = 5 ' elije la columna
    UltimaFila = Cells(Rows.Count, ColumnaObjetivo).End(xlUp).Row
    For i = 1 To UltimaFila
        If Cells(i, ColumnaObjetivo) Like "*1*" Then ' busca lo que esta encerrado en esto "* *"
            Cells(i, ColumnaObjetivo).Interior.ColorIndex = 4 ' Color
        End If
    Next i
End Sub
 

Para agregar un macro, deberá abrir el editor de VBA en el libro de Excel abierto al cual desea agregarlo, mantener apretado la tecla "ALT + F11", luego seleccionar la solapa "INSERTAR", y desde ahí elegir "MODULO".

Y en el módulo pegar el código completo del macro, para luego poder usarlo.

Para Usar el macro, volver a la hoja de Excel de la siguiente manera, mantener apretado la tecla "ALT + F11", o minimizando o cerrando el editor de VBA.

Y en la hoja de cálculo insertar una FORMA o IMAGEN, luego hacerle clic derecho a la misma y seleccionar, "ASIGNAR MACRO", y elegir el macro deseado que de antemano hemos copiado.

Recuerde que el libro de Excel deberá guardarlo como "LIBRO DE EXCEL HABILITADO PARA MACROS"...