Saludos Profesor Sergio, de ante mano gracias por responder, realice lo que me sugirió coloque el código donde me indicó, sin embargo me sigue arrojando el mismo error.
' Restaurar formato de fuente
With wsHistorico.Rows("2:2").Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
' Incrementar automáticamente el número de recibo
wsRecibo.Range("J2").Value = wsRecibo.Range("J2").Value + 1
'Corrección de Error en impresión
Application.Wait (Now + TimeValue("0:00:01"))
' Imprimir
wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Por
dorgelis, · 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.