H o l a:
Te anexo la macro para filtrar por fechas, lo que hace es ocultar las columnas que no están en el rango de fecha que deseas.
Captura la fecha inicial en la celda A2, captura la fecha final en B2.
Asigna la macro a un botón. Si quieres mostrar nuevamente todas las columnas, basta con que dejes en blanco alguna de las 2 fechas.
Sub FiltrarFechas()
'Por.Dante Amor
Application.ScreenUpdating = False
uc = Cells(3, Columns.Count).End(xlToLeft).Column
Range(Cells(3, "D"), Cells(3, Columns.Count)).EntireColumn.Hidden = False
If [A2] = "" Or [B2] = "" Then
Application.ScreenUpdating = True
MsgBox "Captura fechas en las celdas A2 y B2"
Exit Sub
End If
'
uc = Cells(3, Columns.Count).End(xlToLeft).Column
For i = uc To Columns("D").Column Step -1
If Cells(3, i) >= [A2] And Cells(3, i) <= [B2] Then
Else
Columns(i).EntireColumn.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub
Sigue las Instrucciones para un botón y ejecutar la macro
- Abre tu libro de Excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Ahora para crear un botón, puedes hacer lo siguiente:
- Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
- Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
- Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
- Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: FiltrarFechas
- Aceptar.
- Para ejecutarla dale click a la imagen.
':)
':)