Necesito filtrar el año de una lista con una columna con fecha con textbox

[LMFuster]

Buenas, llevo ya un tiempo rompiendome la cabeza con este problema: 

Antecedentes: 

Creo una base de datos de las entradas de una factura, en ella hay un dato que es la fehca =hoy() copiada con .value a la columna x.

La columna con sus datos tienen formato "fecha corta" .

HAsta aqui todo bien. 

Pongo un textbox para filtrar los clientes, pero cuando quiero añadir un segundo textbox para filtrar el "AÑO" y no la fecha me resulta imposible sacar el codigo. Si lo uso con autofilter a mano me lo hace perfectamente. Saco el importe del cliente en el año 2023 (por ejemplo). 

Me resulta imposible hacerlo con textbox. 

Mi primer textbox lo tengo :  Este funciona perfectamente.

Cita

 

Private Sub TextBox2_Change()
 

FILTRO = "*" & Sheets("FAC_COMPRA").TextBox2.Text & "*"
RANGE("M47").AutoFilter Field:=3, Criteria1:=FILTRO
 

End Sub

 

Y mi segundo textbox que tnego el problema es: Este no funciona con la columna 

Cita

 

Private Sub TextBox1_Change()

If TextBox1.Text <> "" Then

FILTRO = "*" & Sheets("FAC_COMPRA").TextBox1.Text & "*"
RANGE("N47").AutoFilter Field:=2, Criteria1:=FILTRO

Else
FILTRO = ""
Sheets("FAC_COMPRA").RANGE("N47").CurrentRegion.AutoFilter

End If

End Sub

 

Incluso he añadido una columna a mano para cambiar el formato de la fecha "dd/mm/yyyy" con =año() para que me de el valor del año y filtrar

Tampoco me funciona.

Realmente después de buscar buscar por internet, veo que para fechas hay muchos problema de filtrado, por lo que no se si tendré solución. 

Gracias por la atención y un saludo a todos.

 

 

 

[JSDJSD]

Sube tu archivo

[Antoni]

Basta con buscar Autofilter año en Google.

Si vas a filtrar por la columna A: (Macro hecha a partir de la grabadora de macros)

Sub FiltrarAño()

'De la ayuda de Microsoft: https://learn.microsoft.com/es-es/office/vba/api/excel.range.autofilter

'Autofilter Criteria2:

'Se usa también como criterio único en campos de fecha que se filtran por fecha, mes o año.
'Seguido de una matriz, detalla el filtrado Array(Nivel, Fecha).
'Donde el Nivel es 0-2 (año, mes, fecha) y la Fecha es una fecha válida dentro del período de filtrado.

TextBox1 = "2022" 'Ejemplo valor en textbox1
filtro = "01/01/" & TextBox1
ActiveSheet.Columns("A").AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(0, filtro)
End Sub

 

[tese1969]

Sin entrar en la solución que te propone @Antoni, que dado quién lo hace funcionará estupendamente, ¿has pensado en utilizar un Combobox en lugar de un Textbox para filtrar por año?

Quizás podrías cargarlo cuando haces el primer filtrado del TextBox, de manera que te aparecieran las opciones posibles del valor AÑO para ese cliente al desplegar el Combobox.

Un saludo a todos,

Tese

[LMFuster]

Cierto Antoni he buscado y usado pero me sigue dando error. Incluso el ejemplo no consigo hacerlo funcionar.

He pensado no usar textbox y filtrar por celda directamente, tengo avances pero no es perfecto.

La idea del trabajo es: cuando realizas la factura correspondiente, una vez introducido el nombre del cliente o id del cliente me filtre este cliente y a la vez pueda seleccionar tambien el año, para que el cliente no supere xxx€/año ejmeplo. Con estos dos filtros puedo ver en tiempo real cuanto dinero lleva anual.

Os dejo el error en el trabajo. Lo subo a mega porque supera los 100kb

He cambiado a tabla los datos, e incluso he usado un codigo que encontre para filtrar desde casilla, pero me sigue sin trabajar correcto.

Por cierto, he contestado pero al poner el enlace de descarga desde mega, (el archivo es superior a 100kb) no me deja contestar.

[Antoni]

A ver si lo ves más claro.

Abre el adjunto y pulsa sobre la flecha azul.

Filtrar por año.xlsm

[LMFuster]

Gracias, lo acoplo al trabajo!!