Anónimo
¿Pasar celdas de un libro a otro en excel?
Hola experto.
Disculpa mi torpeza (si así puedo llamarle) pero he estado buscando un método mediante macros para hacer esto, pero la verdad es que no entiendo mucho de los códigos que proporcionan. Lo único que quiero hacer es pasar información de las celdas de un libro POR de excel (celdas en orden aleatorio) a otro libro y de excel... Es para hacer reportes... Es que tengo que hacer unos cuantos miles de reportes en unos cuantos días y de otra manera no podría... ¿conoces algún método?
Muchas gracias por tu tiempo
Disculpa mi torpeza (si así puedo llamarle) pero he estado buscando un método mediante macros para hacer esto, pero la verdad es que no entiendo mucho de los códigos que proporcionan. Lo único que quiero hacer es pasar información de las celdas de un libro POR de excel (celdas en orden aleatorio) a otro libro y de excel... Es para hacer reportes... Es que tengo que hacer unos cuantos miles de reportes en unos cuantos días y de otra manera no podría... ¿conoces algún método?
Muchas gracias por tu tiempo
1 respuesta
Respuesta
1
Ok... Mira
Suponiendo que estas en el libro actual
Habre ellibro destino
ChDir "C:\"
WorkBooks.Open FileName:="C:\LibroDestino.xls"
Range("a1").select
Con esto activamos el libro origen
Windows("LibroOrigen.xls").Activate
Con esto Selecciona el rango a copiar a1 hasta la a50
Range("a1:a50").select
Con esto lo copiamos
Selection. Copy
Con esto Activamos el libro Destino
Wirndows("Librodestino"). Activate
Conesto nos posisionamos en la celda donde vamos a copiar el contenido del portapapeles
Range("a1").select
Con esto lo copiamos
ActiveCell. ParseSpecial xlValues
Con esto Cancelamos el Copy
Application.CutCopyMode = False
Con esto nos volvemos a posisionar en la celda a1 del libro destino
Range("a1").select
Para que todo funcione bien, pega las instrucciones dentro del codigo de una macro entre el Sub y el End Sub
Saludos
www.experosmacrosexcel.es.tl
Suponiendo que estas en el libro actual
Habre ellibro destino
ChDir "C:\"
WorkBooks.Open FileName:="C:\LibroDestino.xls"
Range("a1").select
Con esto activamos el libro origen
Windows("LibroOrigen.xls").Activate
Con esto Selecciona el rango a copiar a1 hasta la a50
Range("a1:a50").select
Con esto lo copiamos
Selection. Copy
Con esto Activamos el libro Destino
Wirndows("Librodestino"). Activate
Conesto nos posisionamos en la celda donde vamos a copiar el contenido del portapapeles
Range("a1").select
Con esto lo copiamos
ActiveCell. ParseSpecial xlValues
Con esto Cancelamos el Copy
Application.CutCopyMode = False
Con esto nos volvemos a posisionar en la celda a1 del libro destino
Range("a1").select
Para que todo funcione bien, pega las instrucciones dentro del codigo de una macro entre el Sub y el End Sub
Saludos
www.experosmacrosexcel.es.tl