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
amigos del foro si me puede orientar por favor
Tengo una hoja de un excel que se necesita Poner los Montos Segun las Fechas de las Coutas en un calendario
en este calendario debe insertarse las montos segun las fechas de las coutas en el calendario
ejemplo
Coutas Monto Fecha couta1 Fecha couta2 Fecha couta3 Fecha couta4
4 2750 12-10-2015 25-11-2015 26-12-2015 02-09-2016
2 1150 16-09-2015 25-10-2015
3 111100 11-09-2015 21-10-2015 28-11-2015
1 400 11-09-2015
fechasrestarv4.rar