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
Saludos Excelistas:
Me he topado con un problema complicado
Se trata de una lista de contenido donde cada fila se corresponde con un palet de un proveedor.
Lo he diseñado como una lista de validacion concatenando los datos ya que las listas no permiten varias columnas.
El hecho es que cuando termine de introducir el dato, los "desconcatene" y coloque en sus respectivas celdas.
He pensado en el evento change y que coloque esos valores . Me podeis echar una mano con el procedimiento.
Adjunto un fichero de muestra
De antemano muchisimas gracias
Duda Lista.xls