Macro para seleccionar rangos y valores

Hola buenas tardes,
estaba intentando crear una macro que me filtrara primero un valor de dos posibles, por ejemplo las tardes de las noches en la columna A, luego que me resaltara en rojo en la columna B aquellos valores que sobrepasaran un valor predeterminado, es decir, lo que pase de 20 para arriba. Lo he intentado con la siguiente pero me salta el error de compilación de que no he definido Sub o Function:
   Selection.AutoFilter Field:=1, Criteria1:="Noches"
    Range("B3", Range("B3").End(xlDown)).Select
    Si Range("B3", Range("B3").End(xlDown)).Select > 20
entonces:
        .Font.Color = RGB(255, 0, 0)
End Sub
Seguro que le faltan muchos valores por aplicar.
¿Me podéis ilustrar?
Muchas gracias.

1 respuesta

Respuesta
1
intentalo asi y seguimos mirando lo demas
sub filtrar()  
Selection.AutoFilter Field:=1, Criteria1:="Noches"
    Range("B3", Range("B3").End(xlDown)).Select
    Si Range("B3", Range("B3").End(xlDown)).Select > 20
entonces:
        .Font.Color = RGB(255, 0, 0)
End Sub
Hola,
muchas gracias por tan pronta respuesta.
AL final lo he solucionado con una simple fórmula:
=SI(Y(B2<20;A2="Noche");"Dentro plazo";SI(Y(B2<2;A2="Mañana");"Dentro plazo";"Fuera plazo"))
Y metiéndole a toda la columna un formato condicional.
Muchas gracias.
Un saludo.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas