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
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