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.
Tras buscar en el foro no he sabido encontrar algo que me resuleva el problema que tengo.
Partimos del hecho que mi conocimiento es muy justito y lo poco que se lo voy sacando de los foros que tan amablemente me ayudan.
No incluyo archivo pues la cuestion es muy simple y probablemente se soluciona con 4 lineas de código.
Problema:
Necesito encontrar un archivo dentro de un directorio que contiene cierto texto (en este caso el archivo comienza con este texto).
Ejemplo.
14022 PCP 1548P.xlsm
14022 PCP 2503P.xlsm
14022 PCP 4432P.xlsm
24136 PCP ABP.xlsm
24136 PCP scx.xlsm
etc de forma que sólo quiero buscar los que empiecen por 14022 (este valor lo saco de una celda que yo relleno)
Como hay varios archivos iguales ( que comienzan igual) necesito que seleccione y abra el más moderno ( el último que se ha creado).
Muchísimas gracias de antemano por la ayuda.
Un saludo