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
tengo un libro con 20 hojas, 1 por cada deposito de vino, la cuestion es la siguiente:
-hoja de deposito 1:
fecha entrada salida a deposito total
1/1/1 1000 1 1000
"/2/2 100 2 900
-hoja de deposito 2:
En la hoja del deposito 2 deberá aparecer esa ultima linea automáticamente
fecha entrada salida a deposito total
2/2/2 100 100 2 100
solo se copiaría hasta la celda total, el resto no porque tengo datos externos