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
Hola!
Encontré una página genial que tiene muchas planillas o plantillas de excel totalmente gratuita. La página es
www.planillaexcel.com
[ATTACH]39584.vB[/ATTACH]
Es totalmente gratuita, tiene de todo, por ejemplo :
Planilla de Control de Stock (FIFO, LIFO, PP)
Planilla de Horas Extras de empleados -->Muy buena
Facturacion
Presupuesto
Gastos de tarjeta de crédito
Cash Flow
Indicador técnico RSI Y MACD
De Ingresos y Egresos
De Apalancamiento financiero
Conciliación bancaria
Cálculo de Impuesto a las ganancias para personas en relación de dependendia (Argentina)
Estado de Situación Patrimonial
Balance
Y hay muchas más!!
Podes encontrar diversas categorías y una imágen de cada planilla para que veas como es el formato antes de bajarla
A mi me re sirvió para lo que buscaba y lo bueno es que totalmente gratis --> todas resumidas en un sitio !!
SE LAS SÚPER RECOMIENDO !!