Ayuda con macro para generar informes de un archivo a otro.

[anfegam]

Estos son los requerimientos para crear la macro:

Procesar la información de diferentes archivos como el que se encuentra en la carpeta Informes.

La información de los archivos que se encuentra en la carpeta informes debe ser copiada y pegada en el archivo InformeConsolidado teniendo en cuenta lo siguiente:

El documento no debe tener registros repetidos y en la columna Ingreso solo se debe manejar dos estados: Ingreso, No ha ingresado, la macro debe basarse en la información de la columna Ingreso de cada archivo para asignar en el archivo InformeConsolidado cualquiera de los estados mencionados. Si el valor de la columna Ingreso es diferente a Nunca el valor será Ingreso de lo contrario sería No ingresado.

Al final el archivo InformeConsolidado debe tener los datos de cada aspirante con su respectiva nota y si ingreso o no.

Solo debe existir una fila por aspirante.

Adjunto los archivos de los cuales se deben generar los informes

Agradezco su ayuda

Macro.rar

[tese1969]

Considero que lo que pides es algo más que una consulta. Sólo te ha faltado poner un plazo para entregarlo.

No creo que sea ese el espíritu de este foro, pero bueno, si alguien lo considera......

Un saludo,

Tese

[anfegam]

que pena con usted yo tengo una parte de la macro pero no me funciona sino el 50 poriciento de lo que necesito pido ayuda es porque he perdido la practica con macros pero la macro que tengo es esta y la pueden probar para que vea que solo funciona una parte.

Sub Copiar()

Dim col As Long

Dim src As Worksheet, Dst As Worksheet

Dim x As Long

Set src = Workbooks("Libro1").Sheets("REGISTRODE MATRICULA ESTUDIANTE")

Set Dst = Workbooks("Libro2").Sheets("Hoja1")

For x = 2 To 20

col = Application.Match(src.Cells(1, x), Dst.Rows(1), 0)

src.Columns(x).Copy

Dst.Cells(1, col).PasteSpecial Paste:=xlPasteValues

Next

End Sub

si usted aparte de criticar me puede ayudar se lo agradezco de lo contrario no haga comentarios que no son.

[anfegam]

gracias por su ayuda