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
Buen Día!
Siempre, gracias por sus aportes.
Hoy les presento un error que tengo al tratar de cargar en una hoja de excel el control ActiveX "WebBrowser".
Básicamente tengo una hoja de excel que muestra ciertos datos y en un recuadro de la hoja quiero incrustar una pagina web para visualizar.
Este es el error que muestra:
Estos son los complementos que tengo habilitados actualmente:
El excel que tengo es 2013 ver. 15.0.4893 32bit.
Saludos,
Daniel.