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
Hola,
Según cantidad introducida en una celda de la hoja1 por ejemplo en A1 el valor de 5256
Tiene que revisar una tabla que esta en hoja2 con los siguientes valores:
A B
4000 120
4500 135
5000 150
5500 165
Y devolverme en la hoja1 en B1 la cantidad que corresponda a 5000 en la columna B.
Editado el por danbagex