libro consolidado que traiga los datos de otros archivos

vilita · December 15, 2012

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 · December 15, 2012

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 · December 15, 2012

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 · December 17, 2012

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 · December 17, 2012

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

Antoni · December 18, 2012

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 · December 18, 2012

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 · December 18, 2012

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]