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 a todos. Os escribo porque necesito ayuda con una fórmula de excel.
Os explico por si pudierais ayudarme:
En el excel adjunto, en la hoja 2 celda B5, hay que anotar a mano uno de los códigos de la columna B (Código1) de la hoja1.
Necesito una fórmula para la celda E5, de la hoja2, que nos dé el código de la columna D (Código2) de la hoja1 que cumpla las siguientes condiciones:
1. B5 hoja2 tiene que coincidir con el código de la columnaB hoja1
2. que en columnaC hoja1 el valor sea "A"
3. que cumpliendo las condiciones anteriores, nos dé el dato de la columnaD hoja1 que sea más reciente en la columnaA hoja1.
Espero haberme explicado. Muchas gracias por vuestra ayuda. Saludos.
PRUEBA.xlsx
Editado el por miriam-mp
Corregir pequeñas faltas