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
Muy buen día, tarde o noche.
Espero no estar causando molestias tengo una duda estoy utilizando las siguientes formulas:
=BUSCARV(I2462,ELEGIR(2/1,'"Base Cartera"'!$A$2:$A$5000,'"Base Cartera"'!$B$2:$B$5000),1,0)
=INDICE('"Base Cartera"'!A:B,LAYOUT!I2461,COINCIDIR(LAYOUT!I2461,'"Base Cartera"'!A:B,0))
Intento traer un valor de una celda a la izquierda pero no obtengo resultado o me trae #N/A ó #Ref
Gracias si pueden apoyarme saludos y bendiciones.