Excel - Colorea Celdas en base a un IF

Mi duda es:

tengo una funcion que evalúa el contenido de una celda (un simple IF), si esta contiene la palabra "SI" necesito que pinte un rango de celdas color verde, si contiene la palabra "NO" que pinte el mismo rango de celdas de color rojo.

La lógica suena simple, de hecho ya hice la función pero no sirve!! quisiera que me ayudaran a localizar el error o bien, decirme la forma correcta de hacerlo, por favor.

de antemano Gracias

Function color(valor)

If valor = "SI" Then
Range("A1:G1").Select
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
End If

If valor = "NO" Then
Range("A1:G1").Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
End If

End Function

Pues no esta bien usada/palnteada la funcion (UDF) que pones en todo caso, mucho mas facil se te haria usa formatos condiconales.

Abraham

Gracias, así lo hice

Con una función no podés modificar otras celdas...
Fijate si lo que sigue te sirve...

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$A$1" Then
If UCase(Target.Value) = "SI" Then Call Color(4)
If UCase(Target.Value) = "NO" Then Call Color(3)
End If
End Sub

Function Color(ColorIndex As Integer)
On Error Resume Next
With Range("A1:G1").Interior
.ColorIndex = ColorIndex
.Pattern = xlSolid
End With
End Function

Saludos desde Baires, JuanC

Lo más sencillo es usar formatos condicionales, lo que intentas hacer no funciona con funciones sino con macros, tal como indica JuanC, pero ¿para qué complicarse la vida con un desarrollo si excel ya te permite hacerlo directamente?

Formato-Formato Condicional

Saludos

Gracias José Luis, fue la única solución que le había podido dar (Formato Condicional) pero necesito colorear todo un renglón (fila) en base al valor de una celda, y el formato condicional responde solo por una celda, la que evalua el valor. De todos modos Gracias, creo que si se va a quedar esa opción, una sola celda coloreada es bastante ayuda visual para mis capturistas

Gracias!!

Hola Laura, te equivocas, si aplicas el formato condicional de todas las que quieres colorear, condicionandolo a una celda en comun, pues todas cambiaran.

Abraham

Saludos desde Chih, Mex.
Gracias JuanC

he probado tu código pero no resultó, comprendo las instrucciones pero no se que me falta para la implementación. Seguiré intentando. Gracias

Laura,
Lo que dice Abraham es cierto, se puede poner el formato condicional referenciado a otra celda distinta.

P.ej. Cuando indiques el fomato condicional de una celda, en Condición, selecciona Fórmula en vez de Valor de la Celda y por esto
=$B$3="NO"
Lo que hace que si el valor de la celda B3 es igual a NO pondrá el formato que hayas elegido, independientemente del valor de la celda donde lo hayas puesto.
Copia y pega la celda en toda la fila y ya estará hecho.

Saludos

Gracias a todos los que me ayudaron!!

En especial a José Luis, Diste en el clavo! mi chavo, así si lo conseguí (eres bueno explicando). Gracias Gracias

Gracias a ti Laura, tu entusiasmo abruma.
Espero seguir ayudando a todos los que lo necesiten. Para las tres próximas semanas estaré un poco desconectado porque tengo una gran carga de trabajo, así que estaré menos en el foro.

Saludos