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
En el archivo adjunto encontrareis un formulario con un ejemplo de como funciona un control Treeview de tres niveles.
En este ejemplo, aplicado a un árbol de automóviles, nos muestra al equivalente de 3 controles combobox dependientes.
También se incluye un sistema de mantenimiento de todo el árbol.
Como aporte "colateral" podeis ver como se añade un elemento al menú contextual de Excel (Clic derecho en celda).
Pues nada mas, aparte de un cordial saludo, por supuesto.
Antoni.
PD: Me han reportado errores en Excel 2010 con el adjunto. Se ruega comprobar.
VistaEnArbol II.zip