Hola:

Quisiera saber si hay alguna manera de poder filtrar, alternativamente, importes (ej: 81,73), fechas (28/01/2015) y texto ("Cta").

Me da problemas para filtrar cantidades, y se debe al orden de los 3 autofiltros (paso a paso, si lo filtra).

Sub FiltroSencillo()
On Error Resume Next
x = Columns("" & Range("B1") & "").Column

With [a1]
.AutoFilter x, [a1] 'Para importes 'No funciona bien
.AutoFilter x, "*" & [a1] & "*" 'Para texto en general
.AutoFilter x, CDate([a1]) 'Buscar fecha
End With
End Sub[/PHP]

Filtrosencillo.rar

Hay que convertir el valor a string previamente.

Sub FiltroSencillo()

Columna = Columns("" & Range("B1") & "").Column

ActiveSheet.UsedRange.AutoFilter Columna, CStr(Range("A1").Value)

End Sub

[/CODE]

Buenas tardes,

El autofiltro sirve para filtrar una o varias columnas, pero una a una e intentando buscar un valor concreto, como es el caso que acompaño.

Espero que te sirva

Saludos,

Juan

Filtrosencillo1.xls

Hoy no es mi día.

No me funciona ninguna de vuestras propuestas.

A ver, filtrar, filtra; pero no muestra la fila deseada, sino que las oculta todas. Y el caso es que despliego el filtro que aparece en el encabezado de la columna (y en filtros de texto - Es igual) , y veo que está puesto el criterio (por ejemplo: 81,73), pero no muestra ningún resultado.

Si encuentro alguna solución, os lo diré.