Foros del Web » Programas, Hardware y Redes » Ofimática »

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

Estas en el tema de Mediante Una Macro Copiar Datos De Un Libro De Excel A Otro Libro De Excel en el foro de Ofimática en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 11/06/2008, 15:06
 
Fecha de Ingreso: junio-2008
Mensajes: 4
Antigüedad: 6 años, 3 meses
Puntos: 0
Sonrisa Mediante Una Macro Copiar Datos De Un Libro De Excel A Otro Libro De Excel

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
  #2 (permalink)  
Antiguo 12/06/2008, 08:45
Avatar de David
Moderador
 
Fecha de Ingreso: abril-2005
Ubicación: In this planet
Mensajes: 15.703
Antigüedad: 9 años, 5 meses
Puntos: 823
Respuesta: Mediante Una Macro Copiar Datos De Un Libro De Excel A Otro Libro De Excel

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
__________________
Por favor, antes de preguntar, revisa la Guía para realizar preguntas.
  #3 (permalink)  
Antiguo 12/06/2008, 10:36
 
Fecha de Ingreso: junio-2008
Mensajes: 4
Antigüedad: 6 años, 3 meses
Puntos: 0
Sonrisa Respuesta: Mediante Una Macro Copiar Datos De Un Libro De Excel A Otro Libro De Excel

Cita:
Iniciado por David el Grande Ver Mensaje
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
  #4 (permalink)  
Antiguo 12/06/2008, 11:33
Avatar de David
Moderador
 
Fecha de Ingreso: abril-2005
Ubicación: In this planet
Mensajes: 15.703
Antigüedad: 9 años, 5 meses
Puntos: 823
Pregunta Respuesta: Mediante Una Macro Copiar Datos De Un Libro De Excel A Otro Libro De Excel

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?.
__________________
Por favor, antes de preguntar, revisa la Guía para realizar preguntas.
  #5 (permalink)  
Antiguo 12/06/2008, 12:44
 
Fecha de Ingreso: junio-2008
Mensajes: 4
Antigüedad: 6 años, 3 meses
Puntos: 0
Respuesta: Mediante Una Macro Copiar Datos De Un Libro De Excel A Otro Libro De Excel

Cita:
Iniciado por David el Grande Ver Mensaje
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.
  #6 (permalink)  
Antiguo 12/06/2008, 13:00
Avatar de David
Moderador
 
Fecha de Ingreso: abril-2005
Ubicación: In this planet
Mensajes: 15.703
Antigüedad: 9 años, 5 meses
Puntos: 823
De acuerdo Respuesta: Mediante Una Macro Copiar Datos De Un Libro De Excel A Otro Libro De Excel

Exactamente a eso me refería:
Cita:
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...
__________________
Por favor, antes de preguntar, revisa la Guía para realizar preguntas.
  #7 (permalink)  
Antiguo 22/01/2010, 05:44
 
Fecha de Ingreso: enero-2010
Mensajes: 1
Antigüedad: 4 años, 8 meses
Puntos: 0
Respuesta: Mediante Una Macro Copiar Datos De Un Libro De Excel A Otro Libro De Excel

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
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta

SíEste tema le ha gustado a 1 personas




La zona horaria es GMT -6. Ahora son las 20:20.
SEO by vBSEO 3.3.2