Hola @RubenDario
Faltaría que en cada línea dentro del With le pongas un punto al inicio
With Hoja1
.Range("B6:B18,F6:F18,J6:J18").Select
.Range("J6").Activate
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
.Selection.ClearContents
.Range("A1").Select
End With
Sin embargo, lo que yo haría (si fuese mi proyecto)... te ofrezco varias soluciones.
No asignarlo a una combinación de teclas, mejor ponerlo en una forma o botón.
Modificar tu libro con la app Custom UI Editor o similar y adicionar un botón en el Ribbon, estará visible solo cuando el libro esté activo.
Al principio de tu código pondría algo como: If Thisworkbook.Name <> ActiveWorkbook.Name Then Exit sub
Por
DiegoPC, · publicado
Hay una consulta que es frecuente y es el tema de las validaciones dependientes.
Se me ocurrió hacer algo con tablas dinámicas, validaciones, rangos dinámicos y unas pocas macros.
Les comparto lo que he hecho.
------
Las validaciones van en las celdas de color gris claro
------
En la primera hoja los filtros se hacen con segmentaciones
-------
Proyecto desarrollado y ensayado en Excel 2013, verificado en Excel 2010 aunque noté que hay algunos cambios visuales en las segmentaciones.
No lo he probado en ninguna otra versión de Excel.
Filtro Dependiente con tablas dinámicas.xlsm.zip