Mediante Una Macro Copiar Datos De Un Libro De Excel A Otro Libro De Excel

[hectorm1980]

HOLA, ESPERO QUE ALGUIEN ME PUEDA AYUDAR CON LO SIGUIENTE

Me gustaria ver si me podrian ayudar, tengo el siguiente problema: Quiero generar una macro que me envie informacion de un archivo de excel a otro archivo de excel.

“n” gentes llenan un reporte en excel (un archivo por cada gente), el cual contiene la siguiente información.

Numero de empleado
Numero de proyecto
Horas trabajadas a cada proyecto

Organizado de la siguiente manera

Numero de empleado xxx1

NOMBRE DE PROYECTO ------- HH trabajadas
Proyecto1 ---------------------- 5
Proyecto2 ----------------------- 10
Proyecto3 ----------------------- 0
Proyecto4 ----------------------- 8
..
..
Proyecto x ---------------------- 22


Quiero realizar una macro que me copie esta información de cada gente a otro archivo cuya estructura es la siguiente:

Numero de empleado Proyecto1 Proyecto2 Proyecto3 Proyecto4 ..Proyecto x
xxx1 ........................... 5...............10............0................8.. .............. 22
xxx2
xxx3
xxx4
..
..
xxxn


Agradecere mucho su ayuda. Saludos

[David]

Según entendí tienes un archivo por cada empleado con la siguiente información:

Código:

 
NOMBRE DE PROYECTO ------- HH trabajadas
Proyecto1 ---------------------- 5
Proyecto2 ----------------------- 10
Proyecto3 ----------------------- 0
Proyecto4 ----------------------- 8
.. 
.. 
Proyecto x ---------------------- 22

Y quieres ir abriendo cada archivo y copiar los datos en un solo archivo con el siguiente formato:

Código:

 
Numero de empleado Proyecto1 Proyecto2 Proyecto3 Proyecto4 ..Proyecto x
xxx1 ........................... 5...............10............0................8................ 22
xxx2 
xxx3 
xxx4 
.. 
.. 
xxxn

Pues bien es fácil, para abrir un archivo colocas lo siguiente

Código:

 
Dim File As WorkBook
Set File = Application.Workbooks.Open("C:\empleado001.xls")

Puedes hacer un bucle For que recorra y abra todos los archivos.
Luego recoge los datos del archivo con Range y lo pasas al nuevo archivo(libro) así:

Código:

 
Dim newBook As WorkBook
Set newBook = Application.Workbooks.Add

Nuevamente con Range pasas los datos...

Espero no haberte confundido. Cualquier duda puedes preguntar. Saludos

[hectorm1980]

Iniciado por David el Grande

Según entendí tienes un archivo por cada empleado con la siguiente información:

Código:

 
NOMBRE DE PROYECTO ------- HH trabajadas
Proyecto1 ---------------------- 5
Proyecto2 ----------------------- 10
Proyecto3 ----------------------- 0
Proyecto4 ----------------------- 8
.. 
.. 
Proyecto x ---------------------- 22

Y quieres ir abriendo cada archivo y copiar los datos en un solo archivo con el siguiente formato:

Código:

 
Numero de empleado Proyecto1 Proyecto2 Proyecto3 Proyecto4 ..Proyecto x
xxx1 ........................... 5...............10............0................8................ 22
xxx2 
xxx3 
xxx4 
.. 
.. 
xxxn

Pues bien es fácil, para abrir un archivo colocas lo siguiente

Código:

 
Dim File As WorkBook
Set File = Application.Workbooks.Open("C:\empleado001.xls")

Puedes hacer un bucle For que recorra y abra todos los archivos.
Luego recoge los datos del archivo con Range y lo pasas al nuevo archivo(libro) así:

Código:

 
Dim newBook As WorkBook
Set newBook = Application.Workbooks.Add

Nuevamente con Range pasas los datos...

Espero no haberte confundido. Cualquier duda puedes preguntar. Saludos

hola David el grande

Gracias por la ayuda. Dejame plantearte mejor mi problema.

tengo dos archivos (archivo REPORTE): uno que es donde cada gente pone las horas que trabajo en cada proyecto.

Numero de empleado: xxx1

NOMBRE DE PROYECTO ------- HH trabajadas
Proyecto1 ---------------------- 5
Proyecto2 ----------------------- 10
Proyecto3 ----------------------- 0
Proyecto4 ----------------------- 8
..
..
Proyecto x ---------------------- 22

Otro donde se concentra las horas de todos los empleados utilizadas en cada proyecto (archivo CONCENTRADO).

Numero de empleado Proyecto1 Proyecto2 Proyecto3 Proyecto4 ..Proyecto x
xxx1 .................... 5...............10............0................8.. .............. 22
xxx2
xxx3
xxx4
..
..
xxxn

La macro la quiero tener en cada archivo de cada empleado (REPORTE) y de ahi enviar la informacion al archivo de CONCENTRADO.

En el archivo REPORTE hay una casilla con el numero de empleado, el cual quiero que busque en archivo CONCENTRADO y en esa fila ir llenando las horas dedicadas en cada proyecto. Coincidiendo los nombres de los proyecto.

Crees que sea posible hacer esto. No tengo mucha experiencia. Te agradecere mucho tu ayuda. Saludos

[David]

De ser posible, es posible, pero aún no he logrado entender tu pregunta. ¿Tienes en un solo archivo los datos de todos los empleados? ¿Cómo están separados los datos? En el segundo archivo que mencionas, ¿deben ir los datos de todos los empleados? ¿o solo de aquel que fue seleccionado?.

[hectorm1980]

Iniciado por David el Grande

De ser posible, es posible, pero aún no he logrado entender tu pregunta. ¿Tienes en un solo archivo los datos de todos los empleados? ¿Cómo están separados los datos? En el segundo archivo que mencionas, ¿deben ir los datos de todos los empleados? ¿o solo de aquel que fue seleccionado?.

Hola David. Tengo "m" archivos llamados REPORTE (UNO POR CADA EMPLEADO), Dentro de este archivo en una celda viene el numero de empleado. Cada archivo tienen 2 columnas, en una estan los proyectos y en la columna de a lado estan las horas dedicadas a este proyecto.

ARCHIVO REPORTE

_____columna a________columna b_
numero de empleado ! xxx1
__________________!___________

______________________________
PROYECTO----------- !------HORAS
_______________ !______________
proyecto1------------!--------H------------
proyecto2------------!--------H------------
proyecto3------------!--------H------------
proyecto4------------!--------H------------
.................................................. ..........
.................................................. ..........
proyecto n------------!--------H------------
________________!______________

Tengo otro archivo donde en una columna estan los numeros de empleado y en las siguientes columnas estan los proyectos.


ARCHIVO CONCENTRADO

_____columna a________columna b_________columna c________columna n+1
__________________________________________________ __________
NUM EMPLEADO--!------proyecto1------!------proyecto2------!------proyecto n---!
______________!___________________________________ ___________
XXX1----------------!--------H---------------!--------H---------------!--------H-----------!
XXX2----------------!--------H---------------!--------H---------------!--------H-----------!
XXX3----------------!--------H---------------!--------H---------------!--------H-----------!
XXX4----------------!--------H---------------!--------H---------------!--------H-----------!
.................................................. .................................................. ....................
.................................................. .................................................. .......................
XXXm----------------!--------H---------------!--------H---------------!--------H-----------!
______________!________________!________________!_ _____________


H SIGNIFICAN HORAS

Lo que quiero hacer es que cada archivo de REPORTE ("m" archivos)envie cada uno, las horas al archivo llamado CONCENTRADO, en la fila donde esta el numero de empleado que le corresponde. QUE TIENE EL FORMATO DE ARRIBA.

En el archivo CONCENTRADO van las horas de todos lo empleado (m).

No se si me he explicado. Gracias David.

[David]

Exactamente a eso me refería:

Pues bien es fácil, para abrir un archivo colocas lo siguiente


Código:

Dim File As WorkBook
Set File = Application.Workbooks.Open("C:\empleado001.xls")

Puedes hacer un bucle For que recorra y abra todos los archivos.
Luego recoge los datos del archivo con Range y lo pasas al nuevo archivo(libro) así:


Código:

Dim newBook As WorkBook
Set newBook = Application.Workbooks.Add

Nuevamente con Range pasas los datos...

[asg_70]

Hola chicos, me gustaria saber un poco mas de este tema y perdon por mi ignorancia. Estaba viendo como se hace para que mediante la macro busque informacion de un archivo y la pegue en otro archivo nuevo y que a su vez, haciendo un bucle abra todos los archivos que yo le asigne y me los pegue en uno solo.

Pregunta 1, el comando
Dim File As WorkBook
Set File = Application.Workbooks.Open("C:\empleado001.xls") pego en basic insertando un modulo?

Pregunta 2, como se ejecuta en excell?

Muchas Gracias