Filtro Avanzado
Publicado por daniel (3 intervenciones) el 26/11/2014 16:59:25
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?
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 = ActiveCellSet 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
- FILTRO_AVANZADO_LWP.rar(49,1 KB)
Valora esta pregunta
0
