Sergio

Probé la macro incluyendo la linea anterior y en mi ordenador un segundo fue suficiente para que funcionara correctamente. Si te sigue dando el formulario incorrecto modifica el tiempo de espera de esa línea subiendo de 1 a 3 segundos.

En el mensaje original no comentabas nada de un error, simplemente no te salía el formulario con los valores que deseabas. ¿Es así?

Hola Maku, Parece que tu problema se encuentra en las fórmulas. Un exceso de fórmulas en la hoja (sobre todo si usas funciones volátiles) puede ralentizar mucho el archivo. Presta atención también a las macros, que no realicen acciones que no tengan que hacer. También puedes eliminar las filas y columnas que no uses. Estas acciones pueden mejorar mucho tu archivo. Espero que se solucione. Si no es así, aquí estamos para ayudarte.

Hola, Dorgelis, Si le pones un segundo de retraso a la macro antes de imprimir el formulario, consigues tu propósito. Introduce la línea Application.Wait (Now + TimeValue("0:00:01")) antes de esta: wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

Los errores en VBA - Ayuda Excel Tareas repetitivas con bucles en VBA - Ayuda Excel 5 ejemplos prácticos de tareas con el objeto Workbook - Ayuda Excel Lo que debes saber al trabajar con hojas en VBA - Ayuda Excel El editor de VBA a fondo - Ayuda Excel Si quieres una guía estructurada para ir de 0 a 100 y tener docenas de códigos listos para usar, todo está compilado en mi Manual 'De 0 a 100 con Macros y VBA'.

Michela, en Microsoft Learn tienes varios cursos que te enseñan a usarlo. Un saludo,

¡Esa es la actitud, aprender rápido! Por cierto, ¿Usas todas las versiones de Excel que tienes en el perfil?😀

Israel, no debes registrarte de nuevo ni hacer nada especial. En unos meses habrá noticias sobre ello.

Al escribir fórmulas debemos evitar siempre que podamos anidar funciones SI (sobre todo cuando tenemos información que se repite). Por favor, prueba la siguiente fórmula: =SI.ERROR( LET( id, B3, fecha_ref, F3, rango_ids, '[Base Snte 05 Coah 2.xlsx]Pagos'!$F$2:$F$10000, rango_fechas, '[Base Snte 05 Coah 2.xlsx]Pagos'!$K$2:$K$10000, rango_resultado, '[Base Snte 05 Coah 2.xlsx]Pagos'!$D$2:$D$10000, diferencia, ABS(rango_fechas - fecha_ref), filtro, (rango_ids = id) * diferencia, min_dif, MIN.SI.CONJUNTO(diferencia, rango_ids, id), fila, COINCIDIR(min_dif, filtro, 0), INDICE(rango_resultado, fila) ), "No encontrado")Coméntanos si funciona.

Muchas gracias Abraham! La verdad es que cuesta mucho esfuerzo mantenerlo vivo, pero poco a poco irá mejorando su aspecto.

Israel, gracias por la parte que me toca. He tratado de darle un aire más moderno. Desde 2016 no he hecho un cambio tan grande. Nos vemos!