Excel 2003, ¿Cómo aplicar formato condicional con más de 3 condiciones?

Necesito aplicar a unas celdas, que elijo mediante un InputBox, unos determinados formatos. Esto lo hago por medio de código, pero algo me falla que no consigo que se aplique las 4 condiciones que he puesto. Algo falla en este código, creo que pueden ser las fórmulas.

El código que quiero utilizar es el siguiente:

Sub formato()Dim celda As ObjectDim rng As Range'con INPUTBOX seleccionamos un rango de celdasSet rng = Application.InputBox("en que rango quieres aplicar el formato??", Type:=8)'recorremos cada celda del rango seleccionadoFor Each celda In rngvalor = celda.Value    'asignamos colores según el valor de la celda    If valor = "=RESIDUO(FILA(); 2) = 1" Then    celda.Interior.Color = 16774629    ElseIf valor = "=RESIDUO(FILA(); 2) = 0" Then    celda.Interior.Color = 16777215    ElseIf valor < 0 Then    celda.Interior.Color = 255    ElseIf valor > 0 Then    celda.Interior.Color = 32768    End IfNext celdaEnd Sub

1 respuesta

Respuesta
1

Me puedes explicar por qué pones esta fórmula en la comparación:

"=RESIDUO(FILA(); 2) = 1"

Lo que pasa que al poner esto:

If valor = "=RESIDUO(FILA(); 2) = 1"

Estás comparando valor, literalmente con esto:  "=RESIDUO(FILA(); 2) = 1"

Si en valor tienes esto:

valor = 2

Y comparas 

2 = "=RESIDUO(FILA(); 2) = 1"

Nunca van a ser iguales.

Si quieres aplicar la fórmula RESIDUO, primero tienes que aplicar la fórmula en la macro y el resultado de esa fórmula la comparas contra el valor.

Tal vez necesites esto:

Sub formato2()
'Por.Dante Amor
    Set rng = Application.InputBox("en que rango quieres aplicar el formato??", Type:=8)
    'recorremos cada celda del rango seleccionado
    For Each celda In rng
        valor = celda.Value
        'asignamos colores según el valor de la celda
        fila = celda.Row
        residuo = fila Mod 2
        If residuo = 1 Then
            celda.Interior.Color = 16774629
        ElseIf residuo = 0 Then
            celda.Interior.Color = 16777215
        ElseIf valor < 0 Then
            celda.Interior.Color = 255
        ElseIf valor > 0 Then
            celda.Interior.Color = 32768
        End If
    Next celda
End Sub

Pero si estás dividiendo el número de fila entre 2, si la fila es par, residuo es 0 y es impar el residuo es 1, siempre es 1 ó 0, no va a ser el caso menor a 0

O explícame con ejemplos cómo son tus condiciones.

Me parece que lo que buscas es lo siguiente:

Sub formato2()
'Por.Dante Amor
    Set rng = Application.InputBox("en que rango quieres aplicar el formato??", Type:=8)
    'recorremos cada celda del rango seleccionado
    For Each celda In rng
        valor = celda.Value
        'asignamos colores según el valor de la celda
        fila = celda.Row
        residuo = fila Mod 2
        If valor = 1 And residuo = 1 Then
            celda.Interior.Color = 16774629
        ElseIf valor = 0 And residuo = 0 Then
            celda.Interior.Color = 16777215
        ElseIf valor < 0 Then
            celda.Interior.Color = 255
        ElseIf valor > 0 Then
            celda.Interior.Color = 32768
        End If
    Next celda
End Sub

Saludos.Dante Amor

Si es lo que necesitas.

Lo que pretendo con la fórmula RESIDUO y FILA es que, independientemente del valor de la celda, las filas se coloreen alternamente (azul claro, blanco...). Posteriormente, las celdas que tengan un valor negativo, se coloreen en verde y las que tengan valores positivos, en rojo.

Muchas gracias,

Saludos

Probaste esta macro

Sub formato2()
'Por.Dante Amor
    Set rng = Application.InputBox("en que rango quieres aplicar el formato??", Type:=8)
    'recorremos cada celda del rango seleccionado
    For Each celda In rng
        valor = celda.Value
        'asignamos colores según el valor de la celda
        fila = celda.Row
        residuo = fila Mod 2
        If valor = 1 And residuo = 1 Then
            celda.Interior.Color = 16774629
        ElseIf valor = 0 And residuo = 0 Then
            celda.Interior.Color = 16777215
        ElseIf valor < 0 Then
            celda.Interior.Color = 255
        ElseIf valor > 0 Then
            celda.Interior.Color = 32768
        End If
    Next celda
End Sub

Ya la probé y mi me pone los 4 colores, verde, azul, blanco y rojo

La macro que amablemente me envías, no realiza lo que necesito; efectivamente, si seleccionas celdas  cuyo valor sea negativo, las colorea en rojo; si tienen valores positivos, en verde; si carecen de valor, en blanco; y, por último, si su valor es 1, en azul. Lo que requiero es lo que explique en mi post anterior, es decir:

1.- Sin tener en cuenta el valor de las celdas, el formato debe alternar fila si fila no, en fondo azul y blanco.

2.-Una vez conseguido esto, teniendo en cuenta el valor de las celdas seleccionadas, si son positivos, darles formato con fondo verde; y si son valores negativos, darles formato con fondo rojo.

Por esto te decía que aplicaba la fórmula RESIDUO Y FILA. Si tu realizas un seleccion de filas, directamente en una hoja, y  en formato condicional, como primera condición le aplicas la fórmula RESIDUO(FILA();2)=1 (Ejemp. formato fondo azul); y, como segunda condición, la fórmula RESIDUO(FILA();2)=0 (formato fondo blanco), verás que te colorea fila azul, fila blanca, fila azul, fila blanca; y así sucesivamente. cosa que no hace la macro facilitada. Espero haberme explicado mejor.

Muchas gracias.

Saludos

El primer punto lo entiendo perfectamente, quieres poner una fila azul y otra en blanco.

Eso lo consigues con esta macro:

Sub formato2()
'Por.Dante Amor
    Set Rng = Application.InputBox("en que rango quieres aplicar el formato??", Type:=8)
    'recorremos cada celda del rango seleccionado
    For Each celda In Rng
        valor = celda.Value
        'asignamos colores según el valor de la celda
        fila = celda.Row
        residuo = fila Mod 2
        If residuo = 1 Then
            celda.Interior.Color = 16774629
        Else
            celda.Interior.Color = 16777215
        End If
        'ElseIf valor < 0 Then
        '    celda.Interior.Color = 255
        'ElseIf valor > 0 Then
        '    celda.Interior.Color = 32768
        'End If
    Next celda
End Sub

Lo que ya no entiendo, es el segundo punto, ya que si la celda tiene valores (positivos o negativos) el primer formato de celda se quitará, quedando solamente el formato verde o rojo. Si eso es lo que quieres, entonces la macro es esta:

Sub formato2()
'Por.Dante Amor
    Set Rng = Application.InputBox("en que rango quieres aplicar el formato??", Type:=8)
    'recorremos cada celda del rango seleccionado
    For Each celda In Rng
        valor = celda.Value
        'asignamos colores según el valor de la celda
        fila = celda.Row
        residuo = fila Mod 2
        If residuo = 1 Then
            celda.Interior.Color = 16774629
        Else
            celda.Interior.Color = 16777215
        End If
        '
        If valor < 0 Then
            celda.Interior.Color = 255
        ElseIf valor > 0 Then
            celda.Interior.Color = 32768
        End If
    Next celda
End Sub

Saludos.Dante Amor

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro para ocultar filas según color

Quisiera que me colaborara con la corrección de la siguiente macro: Sub esconderfilas2() Dim str str = Range("K9:O9").Address Range(str).Select For i = 1 To 200 For Each str In Selection If Selection.Interior.Color = RGB(51, 153, 102) Or...
1 respuesta

Concatenar datos por filas

Quiero una macro q me concatene filas fila = celdas: a2,b2,c2...m2 Quiero q me concatene la fila con separación de "|" y si al momento de concatenar la fila encuentra una celda vacía q lo concatene como "0" y el resultado lo ponga en la celda p2 y...
1 respuesta

Buscar si dato existe en todas las hojas. Copiar en otra hoja las filas donde el dato se encuentre

Tengo un archivo de Excel con muchas hojas. Me gustaría buscar alrededor de 50 datos (cadenas de texto) en todas las hojas (menos en una hoja de "Resultados"). Cuando se encuentre el dato, que se copien todas las líneas en donde el dato sea...
2 respuestas

Asignar formato moneda a celda

Junto con saludar, tengo el siguiente problema: Necesito asignar formato de moneda a una celda pero el tipo de moneda dependerá del valor que sea indicado en una deterninada celda. Ejemplo: Si en la celda A1 escribo USD, el formato de la celda C1...
1 respuesta

Como Buscar Valores en Rango de dos Columnas

Necesito hacer con el Excel una Búsqueda de Valores en un Rango de dos columnas y que si encuentra el valor de la columna 1, en la columna 2, me los marque, asi sucesivamente con los demás valores del rango. Ejemplo: A B 12 0 0 12 13 0 0 19 0 20 19 0...
1 respuesta

Autocompletar Texto

Quisiera saber si existe alguna forma de autocompletar texto pero, desdé una celda en Excel, es decir no con ningún combobox o un textbox sino dentro de la propia celda en la hoja de calculo, claro esto validado desde un rango. Ejemplo: Yo Tengo una...
1 respuesta

Macro buscar texto en celdas y devolver rótulo de columna y fila

¡ Necesito un macro para buscar todas las celdas en la hoja que contengan un determinado “texto”, y una vez encontrada, devuelva los respectivos rótulos de la fila y la columna. El texto en la celda a buscar, es siempre el mismo, y la hoja tiene unas...
1 respuesta

Destacar OptionButton al cargar formulario

Tengo un formulario con tres OptionButton y los tengo asignado a una misma celda. El valor al hacer click son 1,2 y 3 respectivamente. La idea es que al cargar el formulario me pueda mostrar activo el OptionButton que había asignado anteriormente, es...
1 respuesta

Macro borrar datos de hoja sin borrar formato

Tengo una macro con la que me ayudaron, trabaja muy bien la cual busca datos en un libro y los anota en una hoja llamada buscador, pero a esta hoja no puedo darle formato ya que se elimina al usarlo, es decir por ejemplo si le pongo un fondo a la...
1 respuesta