Filtros avanzados y macros en Excel 2007
Tengo una duda referente a filtros y macros en Excel 2007.
Sé cómo hacer una macro para poner un autofiltro en un rango
de datos y después realizar un filtro avanzado. Por ejemplo:
SUb pruebafiltros()
'
' Pruebafiltros Macro
'
'
ActiveSheet.ListObjects("Tabla_detalle_flores").Range.AutoFilter
Field:=4, _
Criteria1:="=LILIUM",
Operator:=xlAnd
End Sub
Pero, no obstante, lo que necesito es que el criterio del
filtro (en el caso del ejemplo, “LILIUM”) sea el texto que contiene una celda
específica, sobre la cual yo pueda escribir el nombre de cualquier flor y que
la macro realice el filtro.
Por ejemplo, que si yo escribo en A1 el texto “AMAPOLA”, la
macro me filtre por “AMAPOLA” y no por “LILIUM”.
1 Respuesta
Respuesta de Luis Mondelo
1
Utiliza tu macro así:
SUb pruebafiltros()
dim dato as string
'
' Pruebafiltros Macro
'
dato = range("a1").value
ActiveSheet.ListObjects("Tabla_detalle_flores").Range.AutoFilter
Field:=4, _
Criteria1:=dato,
Operator:=xlAnd
End Subrecuerda finalizar la consulta
