libro consolidado que traiga los datos de otros archivos

[vilita]

Buenas tardes,

voy a intentar explicarme porque llevo programando en Excel muy poquito y soy todavía un mero principiante. Ademas mi archivo es muy lioso y no he puesto demasiados comentarios en los códigos (adjunto dos archivos para que se entienda mejor).

Tengo un archivo(consolidado) en el cual cuando pulsas un botón (el "más" verde) te copia y pega una hoja(1) tipo plantilla, donde pego los datos de unas tablas de excel. Cada vez que meto datos, con otro botón (calculadora), me va haciendo una serie de operaciones (medias, máximos y mínimos...) con ellos y guardo un listado de todas las entradas en la hoja 3.

Todo eso me funciona perfectamente, aunque quizás en el archivo que he subido no porque le he quitado muchas cosas, puesto que el archivo es del trabajo.

De todos modos mi duda es:

¿cómo puedo hacer para en vez de copiar y pegar los datos, me ponga un botón tipo examinar, le indiques en que archivo están, una macro lo recorra en busca de los datos que necesito y me los ponga en la plantilla?

Muchísimas gracias, si no habéis entendido nada lo reescribo o lo que sea.

Saludos!

datos.rar

CONSOLIDADO.rar

[Antoni]

Hola:

Te dejo una macro que selecciona un archivo, lo abre, copia un rango de una hoja y lo pega en nuestro libro en la hoja y rango que queramos.

Sub BuscarArchivoCopiarRango()


Archivo = Application.GetOpenFilename("Excel (*.xls*), *.xls*")

If Archivo <> False Then

   Workbooks.Open Archivo

   ActiveWorkbook.Sheets("Hoja origen").Range("B5:D8").Copy _

     ThisWorkbook.Sheets("Hoja destino").Range("C6")

   ActiveWorkbook.Close

End If



End Sub



[/CODE]

[vilita]

Vale, era más o menos como había visto buscando, pero no me terminaba de quedar claro. el lunes desde el curro lo haré y si no me sale vuelvo a comentarlo. De todos modos muchísimas gracias. Es un gran ahorro de tiempo.

[vilita]

Ha funcionado bien.

Como duda complementaria, ¿podría seleccionar varios archivos a la vez y que me los fuera recorriendo de uno en uno??

Muchísimas gracias!

[Antoni]

Si, sin problemas, mañana te digo algo.

[Antoni]

Hola:

Te adjunto la forma de buscar múltiples archivos.

Sub BuscarMúltiplesArchivos()


Archivo = Application.GetOpenFilename("Excel (*.xls*), *.xls*", MultiSelect:=True)



If IsArray(Archivo) Then

   For i = LBound(Archivo) To UBound(Archivo)

      Workbooks.Open Archivo


      '------------------------------------------------'

      ' Aquí el código para el tratamiento del archivo '

      '------------------------------------------------'


      ActiveWorkbook.Close

   Next i

End If



End Sub



[/CODE]

[vilita]

Buenas,

Me da un error, me dice error de compilación, se esperaba una matriz. Y me marca en amarillo el nombre de mi modulo y me subraya en azul el LBound.

Seguro que es un error muy tonto de principiante.

Gracias

[Antoni]

Hay un error en el código, prueba a ver ahora:

Sub BuscarMúltiplesArchivos()


Archivo = Application.GetOpenFilename("Excel (*.xls*), *.xls*", MultiSelect:=True)



If IsArray(Archivo) Then

   For i = LBound(Archivo) To UBound(Archivo)

      Workbooks.Open Archivo[COLOR=#ff0000][B](i)[/B][/COLOR] [COLOR=#ff0000][B]'<============[/B][/COLOR]


      '------------------------------------------------'

      ' Aquí el código para el tratamiento del archivo '

      '------------------------------------------------'


      ActiveWorkbook.Close

   Next i

End If



End Sub



[/CODE]

[vilita]

Muchísimas gracias.

Funciona perfectamente. un placer contar con tu ayuda.

Saludos