Problema para seleccionar un ranfo filtrado

2 envíos / 0 nuevos
Último envío
Alberto Navarro
Imagen de Alberto Navarro
Offline
última acción: Hace 4 años 4 semanas
alta: 19/02/2020 - 15:58
Puntos: 25
Problema para seleccionar un ranfo filtrado

Saludos

 

Tengo una rutina para seleccionar un rango filtrado y aplicar un color determinado a dicha area , pero no logro conseguir que el rango sea dinamico segun se aumenten los datos, que esta mal ??

Saludos

Sub Technical()

'

' Technical Macro

'

'    ActiveSheet.Range("$A$3:$S$188").AutoFilter Field:=3, Criteria1:= _

        "Technical Review"

    Range("A75").Select

    Range(Selection, Selection.End(xlDown)).Select

    Range("A75:S120").Select

    With Selection.Interior

        .Pattern = xlSolid

        .PatternColorIndex = xlAutomatic

        .ThemeColor = xlThemeColorAccent4

        .TintAndShade = 0.599993896298105

        .PatternTintAndShade = 0

    End With

End Sub

Etiquetas: 

Cron
Imagen de Cron
Offline
última acción: Hace 7 meses 3 semanas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12735
Tienes que calcular el rango

Tienes que calcular el rango en vez de ponerlo fijo como lo tienes.

Lo que tú tienes es Range("$A$3:$S$188")

Quizás lo que deberías hacer es utilizar una variable de rango, y asignarle ahí las celdas que necesitas filtrar. Podría ser algo así como esto:

Dim rango As Range
Set rango = Cells(1, 1)
Set rango = rango.Resize(Application.WorksheetFunction.CountA(rango.EntireColumn), 19)
rango..AutoFilter Field:=3, Criteria1:= _
(...)


Esto funcionaría si no hay huecos en la columna A


Un saludo