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
Muy buenas tardes.
Mucho tiempo sin pasar por aca
Tengo una duda y necesito de su ayuda:
Estoy elaborando un modelo de factura, para una prima, la cual será impresa en una impresora matricial Epson LX-300+II
Utilizará hojas continuas con un tamaño que no encuentro en Excel. El tamaño de la hoja es 9.5x5.5 pulgadas (24.1x13.97 cm)
Me gustaría saber si existe alguna forma de poder configurar el tamaño de la página a esas dimensiones.
En el archivo está la imagen, que elaboré en Corel, para poder utilizarlo de guía, es lo que deseo obtener.
Gracias anticipadas y saludos desde Santiago, República Dominicana.
P.D. el tamaño del archivo no me permite subirlo al foro acá el link para descargarlo.