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
Buenas a tod@s
tengo la siguiente hoja y quisiera saber si es posible mejorar la idea que se me plantea.
Son dos columnas con datos del 1 al 80.
La idea es que al incluir un dato este aparezca en otra hoja de excel en el orden que está según el numero de su izquierda.
es decir
1 hola
2 prueba
3...
No se puede repetir datos por lo que se incluirá en un registro que irá creciendo dependiendo del numero de fila.
cuando realice una nueva pagina los numeros deberian ir aumentando siguiendo el orden numérico. Por lo que la pagina 2 sería del 81 al 160
Alguien puede ayudarme?
ejercicio.xlsx