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 noches, queria hacerles una consulta.
Tengo una macro que copia una formula a la hoja, dentro de la formula hay
de referencia una celda, lo que quiero es que la celda yo la tenga que elejir,
les paso el archivo.
Dentro hay 2 macros, la primera numerook, es donde hace referencia a "A1",
pero yo quisiera elejir la celda, como en la macro 2, "numeroxxx", alli puedo
elejir la celda pero no me sale el resultado....muy agradecido por sus respuestas.
celda activa.rar