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 tod@s,
les agradecería si me pueden ayudar en lo siguiente.
Teniendo en una carpeta muchos excel, para este ejemplo sólo 2, me gustaría que sobre el excel que se llama final me mostrase por ejemplo
en la celda A1 el nombre del primer fichero en este caso 1.txt
en la celda A2 si existe la linea "Nombre de host" en 1.txt que la muestre, y si no, que ponga que no existe
En la celda A3 si existe la linea "Propiedad de" en 1.txt que la muestre, y si no, que ponga que no existe
Y asi sucesivamente con todos los ficheros
He encontrado macros que me muestran todos los ficheros de una carpeta, pero no consigo hacer las otras busquedas.
Agradezco toda su ayuda
Muchas gracias
ejemplo.zip