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 tardes
Tengo tres hojas: P01, P02 y P03 y 150 hojas numeradas de F001 á F150.
Necesito copiar el Rango B21:J55 de P01 y pegarlo, por ejemplo, en la F001 y para ello uso la macro siguiente:
Sub Inserta_1_F001 ()
Sheets("P01").Range("B21:J55").Copy Destination:=Sheets("F001").Range("B21")
Sheets("F001").Select
Range("L10").Select
End Sub
Esto lo hago con las macros correspondientes para la 150 hojas .
Lo mismo con P02 y con P03 por lo que tengo 450 macros y que funcionan correctamente.
Mi pregunta es: habría alguna forma de crear una macro que haga lo mismo pero desde la hoja activa?
Es decir, que estando en cualquiera de las hojas F, y desde un botón de cada hoja F se llamara a una misma macro para copiar de P01 ?
Lo mismo para P02 y para P03 ?
(Serían 3 macros en vez de 450 en caso de ser posible).
Espero que algún experto me pueda dar alguna solución mejor que la que tengo ahora o me diga que no se puede.
Muchísimas gracias.