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 el 28 de agosto 28 ago
Hola
Una nueva version de este aporte, la anterior por aqui [DBOX]https://www.ayudaexcel.com/foro/ideas-aportes-64/extraer-unicos-formula-no-matricial-14187/[/DBOX]
Este aporte tiene la particularidad de condicionarlo segun una fecha, encontraran dos metodos, el primero con formula (utilizando administrador de nombres) y el otro con VBA (Muy conocido)
Espero sea de utilidad
[DBOX]
Extraer Unicos formula NO matricial y VBA[/DBOX]
Saludos