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
Quiero plantearles la siguiente cuestión
Parto de un Excel con dos hojas visible en pantalla Hoja1 y Hoja2. Con datos variables.
Lo que necesito es una macro que automáticamente haga la suma de los rangos
De forma que en la Hoja1 Celda C1 ponga la suma del rango variable según valor de Hoja1 celda A1
Igualmente en C2 Hoja1 pondría el resultado de la suma de todas las filas con valor Hoja1 celda A2
E igual con el resto
Marco en color para aclarar un poco mas la duda
Muchas gracias