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
buen dia me gustaria que me ayudaran a desplegar en excell 18 meses antes del mes actual
eje.
si estamos en el mes de octubre 18 meses atras seria
SEPTIEMBRE 2012
AGOSTO 2012
JULIO 2012
JUNIO 2012
MAYO 2012
ABRIL 2012
MARZO 2012
FEBRERO 2012
ENERO 2012
DICIEMBRE 2011
NOVIEMBRE 2011
OCTUBRE 2011
SERTIEMBRE 2011
AGOSTO 2011
JULIO 2011
JUNIO 2011
MAYO 2011
ABRIL 2011
NESESITO QUE ME DIGA CUAL ES EL MES ULTIMO DE LOS 18 MESE COMO EN ESTE CASO ABRIL 2011.