Buscar condicionantes en rango sin tener que relacionar

publicado el 17 de diciembre11 años

Buenos días

Tengo el siguiente código pero las condiciones en lo marcado en azul son más de 100 por lo que la línea

se me hará infinita. Hay alguna otra forma de poner las condiciones usando más líneas ( no solo una )

o bien que vaya a buscar a un rango determinado donde estén todas las condiciones a buscar

Paso fichero donde el rango a buscar sería de la pestaña CLIENTES. el rango D4:D25.

Sub DESPRECIAR()

Dim I, J As Integer

J = 8 'DONDE EMPIEZA A ESCRIBIR

For I = 4 To 4000 ' DONDE EMPIEZA A BUSCAR

If Range("EXPORTACION!N" & I) = "CLIENTE 1" Or Range("EXPORTACION!N" & I) = "CLIENTE 3" Then

Range("FILTRO!b" & J) = Range("EXPORTACION!B" & I)

Range("FILTRO!c" & J) = Range("EXPORTACION!C" & I)

Range("FILTRO!d" & J) = Range("EXPORTACION!F" & I)

Range("FILTRO!e" & J) = Range("EXPORTACION!G" & I)

Range("FILTRO!f" & J) = Range("EXPORTACION!H" & I)

Range("FILTRO!g" & J) = Range("EXPORTACION!I" & I)

Range("FILTRO!h" & J) = Range("EXPORTACION!J" & I)

Range("FILTRO!i" & J) = Range("EXPORTACION!K" & I)

Range("FILTRO!j" & J) = Range("EXPORTACION!N" & I)

Range("FILTRO!k" & J) = Range("EXPORTACION!O" & I)

Range("FILTRO!l" & J) = Range("EXPORTACION!P" & I)

J = J + 1

End If

While Range("FILTRO!b" & J) <> ""

Range("FILTRO!b" & J) = ""

Range("FILTRO!c" & J) = ""

Range("FILTRO!d" & J) = ""

Range("FILTRO!e" & J) = ""

Range("FILTRO!f" & J) = ""

Range("FILTRO!g" & J) = ""

Range("FILTRO!h" & J) = ""

Range("FILTRO!i" & J) = ""

Range("FILTRO!j" & J) = ""

Range("FILTRO!k" & J) = ""

Range("FILTRO!l" & J) = ""

J = J + 1

Wend

End Sub

PLANTILLA CONTROL CMRS.rar

publicado el 17 de diciembre11 años

¿Qué es lo que necesitas realmente filtrar?.....Es decir, ¿esas condiciones de las que hablas están todas relacionadas con el número de cliente?

Porque se me ocurre que lo que deberías tomar como referencia es el dato de la columna "N" a través de un "For each" y si son varios los valores que suponen su paso a la pestaña "FILTRO" los podrías organizar en un Select Case o incluso utilizar aquellos que no son necesarios filtrar como base del código.

Por ejemplo, en tu código adjunto, en azul aparece que se filtra tanto si el valor es "CLIENTE1" como si es "CLIENTE3", por lo que imagino, sin tener en cuenta el resto de la línea infinita de la que hablas, que si ese valor fuera "CLIENTE2" no debería pasarlo a esa pestaña.

Intenta detallarlo un poco más e intentamos buscar una solución.

Un saludo,

Tese