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
Lo primero dar gracias por la acogida.
No tengo ni idea de como conseguir lo que explico en el titulo, asique si algún alma caritativa se aventura en la tarea le
estaría muy agradecido.
No veo como adjuntar el archivo para que la explicación sea mas precisa, pero allá voy.
Se trata de almacenar en celdas todas las variaciones de la cifra que aparece en las celdas B3,B4.....
y empezar ha "guardar" los valores, digamos en empezando en la celda H3,I3,J3.... y H4,I4,J4.... y así hasta que todos
los valores de la columna B3,B4.... el valor llegue a ser 0 en todos.
Tengo 100 bloques en los que querría que la macro o lo que sea que necesito lo hiciera, asique aunque hubiera una
manera manual de hacer esto, creo que lo he intentado todo y no soy capaz.
Si me falta algún detalle gustoso me explico mejor.
Seria una tarea tan grande que resultaría imposible asique POR FAVOR AYUDA.
Gracias a todos.