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:
Aquí os dejo una función pata obtener el siguiente ID de identificación del nuevo registro de datos.
Funcionalidades
1) .ID en cualquier hoja
2) .ID en cualquier columna
3) .Admite Id con formato Serie+Correlativo de longitud fija
4) ...Serie con cualquier longitud
5) ...Serie con cualquier valor
6) ...Correlativo de cualquier longitud
7) .Valor inicial del correlativo
Forma de llamada:
ID=NextId(Hoja, Columna, Serie, Longitud total ID, Valor inicial)
Todos los parámetros son opcionales
Valores por defecto:
Hoja: Hoja activa
Columna: "A"
Valor inicial: 1
Si se informa el parámetro Serie, debe informarse el parámetro Longitud total ID.
Os dejo un archivo con varios ejemplos.
Saludos
NextId function.xls