Visual Basic para Aplicaciones - Rango de criterios Filtro avanzado

Life is soft - evento anual de software empresarial
   
Vista:

Rango de criterios Filtro avanzado

Publicado por daniel (1 intervención) el 26/11/2014 17:44:45
La idea es extraer con la herramienta filtro avanzado el contenido de una celda seleccionada, el siguiente código funciona si en CriteriaRange utilizamos un rango de datos de dos celdas en la misma hoja de cálculo donde se encuentra la tabla, la primera es el encabezado de columna y la segunda es el contenido de la celda seleccionada de la cual deseamos filtrar (en la misma columna).
Ahora bien la idea de la consulta es si reemplazamos el rango de criterio (criteriarange) por el de una variable, es posible? o la unión de dos rangos (celdas), la primera sería el encabezado de columna y la segunda la celda activa?

1
2
3
4
5
6
7
8
9
10
Sub FILTRO_TITULARES()
Dim MULTIAREARANGE As Range
Set r1 = Range("A5")
Set r2 = ActiveCell
Set MULTIAREARANGE = Union(r1, r2)
'MULTIAREARANGE.Select
Sheets.Add.Name = "INFORME"
Range("CARGA_DATOS[#All]").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=MULTIAREARANGE, _
CopyToRange:=Sheets("INFORME").Range("a2"), Unique:=False
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder