Filtrar tabla dinámica según año, con items de fechas

[Juanes]

Hola:

Tengo una base de datos que contiene fechas (ej: 02-02-2016) y otros datos. Necesito filtrar todos los datos que están contenidos en un año seleccionado (ej: 2016). Si yo inserto una columna que entregue el año de cada fecha, la macros siguiente me sirve para filtrar los valores que necesito. ¿Es posible crear una macros que filtre los datos que necesito, sin tener que crear una columna nueva donde aparezca solo el año, sino que compare directamente con las fechas?

Muchas gracias

pd: adjunto excel y lo copio acá abajo también

-------------------------------------------------------------------------------------------------------------

Dim añox

'Se escribe en la Celda 1,1 el año que se quiere filtrar

añox = Worksheets("Dinám_Acum_anual").Cells(1, 1)

Dim i As Integer

With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("año")

'Primero se dejan todos los elementos de la tabla dinámica desmarcados

For i = 1 To .PivotItems.Count - 1

.PivotItems(.PivotItems(i).Name).Visible = False

Next i

Libro1.zip