Color en fila si se cumple condición en celda

hola, Miguel !

... pero no encuentro por ningún sitio (menu) herramientas / (ficha) modificar / (seccion) configuracion
: -> "extender formatos de lista y formulas".
Vamos a olvidarnos de ese asunto y pasemos directamente a crear un codigo que permita realizar la operacion de forma automatica...

dicen que: "al cliente... lo que pida" :))

- haz un clic-secundario sobre la etiqueta con el nombre de "esa" hoja y selecciona: "ver codigo"
- copia/pega (o escribe) incluso sobre-escribiendo el codigo que aparezca, las siguientes instrucciones:
=> OJO con la expresion EXACTA de la condicionante... (may/min)usculas, acentos, ???

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a:a")) Is Nothing Then Exit Sub Else Dim Celda As Range
For Each Celda In Intersect(Target.EntireRow, Columns("a"))
Celda.EntireRow.Interior.ColorIndex = IIf(Celda = "SI", 3, xlColorIndexNone)
Next
End Sub

saludos,
hector.

On 24 ene, 02:06, "Héctor Miguel"
wrote:

hola, Miguel !

> ... pero no encuentro por ningún sitio (menu) herramientas / (ficha) modificar / (seccion) configuracion
>: -> "extender formatos de lista y formulas".
> Vamos a olvidarnos de ese asunto y pasemos directamente a crear un codigo que permita realizar la operacion de forma automatica...

dicen que: "al cliente... lo que pida"    :))

- haz un clic-secundario sobre la etiqueta con el nombre de "esa" hoja y selecciona: "ver codigo"
- copia/pega (o escribe) incluso sobre-escribiendo el codigo que aparezca, las siguientes instrucciones:
  => OJO con la expresion EXACTA de la condicionante... (may/min)usculas, acentos, ???

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("a:a")) Is Nothing Then Exit Sub Else Dim Celda As Range
  For Each Celda In Intersect(Target.EntireRow, Columns("a"))
    Celda.EntireRow.Interior.ColorIndex = IIf(Celda = "SI", 3, xlColorIndexNone)
  Next
End Sub

saludos,
hector.

Muchísimas gracias, Héctor Miguel, funciona perfectamente: ¿no te
habrás ofendido por la forma de expresarme? Si es así, discúlpame, en
ningún momento ha sido mi intención. Espero seguir contado, en otras
ocasiones, con tu valiosa colaboración.
Un abrazo.
Miguel A.

hola, Miguel !

... funciona perfectamente:
no te habras ofendido por la forma de expresarme?... en ningun momento ha sido mi intencion.
Espero seguir contado, en otras ocasiones, con tu... colaboracion.

no te preocupes, que no hay ofensa alguna (y si la hubiera... ni por enterado me doy) :))
es solo que (tambien) "mi forma" de expresarme es (a veces) tratando de hacer divertido "el asunto" :D
y en ocasiones, "insistiendo" (entre lineas) en que hay formas (para mi gusto) mas "amigables/sencillas/..." ;)

en cuanto a "contar" (conmigo ?)... siempre y cuando "me toque" atender futuras consultas tuyas :D

(gracias por el "feed-back" y...) saludos,
hector.