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
buenas!, como están gente!, pues aquí estoy con una consulta sobre
macros, de lo que yo no tengo idea, por eso acudo a ustedes por ayuda.
Busque en el foro pero lo que encontré no es lo que estoy buscando.
Desde ya gracias a todos.
la consulta es la siguiente:
mis datos originales como ejemplo son estos: (la lista original contiene mas de 1.000 filas)
y
necesito crear una macro que me inserte filas y copie el original pero
con las sumas de +1 para "inicial" hasta llegar al mismo monto de
"final" y +30 en las fechas, para que quede de esta manera:
adjunto archivo
ejemplo ayuda.xls