Macro para abrir varios archivos y copiar informac

Necesito una macro que me permita abrir archivos ubicados en diferentes direcciones (carpetas o directorios), de este archivo necesito copiar varia información de cada una de las hojas, el problema que tengo es que no se como activar el libro que tengo abierto para copiar la diferente información. Luego cerrarlo y abrir un nuevo libro para copiar otra informaciìon, intente con esto pero no me gusto
Application.ScreenUpdating = False
    Application.Dialogs(xlDialogOpen).Show
    nombre = ActiveWorkbook.Name
seria un archivo
    Sheets("hoja uno.").Select
    ActiveWindow.SmallScroll Down:=-24
    Range("B10:B29").Select
    Selection.Copy
    Windows("solicitudes.xls").Activate
    Range("A69").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Windows(nombre).WindowState = xlMinimized

1 respuesta

Respuesta
1
Respondiendo a tu consulta, en lugar de la ultima línea colocá esta otra:
WorkBooks(nombre). Activate
ActiveWorkBook. Sheets("Hoja2").select  'para la 2da hoja y asì con el resto.
PD) En la sección macros de mi sitio encontrarás ejemplos de cómo obtener la primer fila libre para pegar datos
Sdos. No dejes la consulta sin finalizar para que puedas seguir ingresando nuevas al tablón.
Te recuerdo que la consulta sigue abierta. Si aún no lo resolviste podes solicitarme mayores aclaraciones, sino debes finalizarla para seguir utilizando el tablón (reglas del foro)
Sdos
Elsa

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro para copiar y pegar celdas de otro archivo

Fíjate que tengo una duda, estoy creando una macro para poder copiar y pegar ciertos registros de un archivo, el punto es, que tengo que cargar diferentes archivos diario y estoy teniendo complicaciones para definir eso, ya que la macro me graba el...
1 respuesta

Macro para guardar registros

Fíjate que tengo un pequeño problema, espero me puedas ayudar. No se si recuerdes que me ayudaste con un código para copiar y pegar registros de un archivo a otro (prueba nadin), funciona muy bien, y ya le metí ciertas cosas para que los datos los...
1 respuesta

Copiar dos hojas de un libro con macros a otro libro sin macros a partir de un botón de comando

Tengo un formulario vba en un libro de excel 2007 que contiene dos hojas: la una se llama FORMULARIO y la otra DATOS, las cuales cargan información desde una macro que está contenida en dicho formulario vba en el libro 1. La hoja DATOS aporta...
1 respuesta

Ejecutar una macro dependiendo de otra macro?

Tengo una pequeña duda... Tengo dos botones con macros uno de ellos dice IMPRIMIR y otro dice REPARTO.. Lo que quiero es que no se pueda ejecutar el botón REPARTO si no se ha impreso nada osea si no le han dado clic al botón IMPRIMIR... En el botón...
2 respuestas

Eliminar autoshapes sin eliminar validación

Tengo el siguiente código: Dim autoforma As Shape For Each autoforma In ActiveSheet.Shapes autoforma.Delete Next autoforma Range("A1").Select Pero resulta que en donde tengo que borrar las formas, tengo celdas en donde hay validación de datos y...
1 respuesta

Mediante macro copiar hojas a un nuevo libro quitando vínculos

¿Cómo seria una macro que me copie dos hojas y las pegue en un nuevo libro pero que quite los vínculos de las hojas copiadas?, tengo esta macro pero solo me quita los vínculos de la hoja Forma10: Sub Imprime() Application.ScreenUpdating = False...
2 respuestas