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 a todos.
Necesito incrustar una tabla en un formulario pero me gustaría verlo tal cual se ve en la hoja excel.
Me explicaré,
tengo un userform en VBA, en el cuadro de herramientas inserto un "Cuadro de Lista" y le digo en la propiedad RowSource el rango que quiero ver.
Los valores de las celdas se ven pero no con los mismos formatos que los tengo yo en mi hoja excel (colores de celda, formato condicional...).
¿Cómo lo puedo hacer?
Gracias
- - - - - Mensaje combinado - - - - -
Hola,
¿cómo odría hacer lo anterior insertando una imagen en el formulario y decirle que muestre una imagen que está en el mismo libro?
Es decir, he copiado el rango que quiero mostrar y lo he pegado como "imagen vinculada".
Ahora lo que quiero que en el objeto imagen del formulario se muestre la imagen vinculada que he llamado "ImagenComprobaciones".
Muchas gracias