Varios ficheros Excel en Directorio. Abro fichero, copio celda, pego en fichero común cierro y vuelvo al siguiente fichero?

Tengo unos 200 ficheros Excel en un directorio, la idea es generar Macro que permita automatizar lo siguiente:

Hay un fichero borrador que recoge los valores de las celdas f7 y i7 de todos los ficheros del directorio, es decir, abrir fichero1, copiar celdas (f7, i7), pegar en fichero borrador,(por ej, a2, b2) cerrar fichero1, abrir fichero2, copiar celdas (f7 y i7) y pegar en fichero borrador, (a3, b3) hasta que no haya más ficheros en el directorio.

1 respuesta

Respuesta
1

Te anexo la macro

Solamente actualiza en la macro, la carpeta donde están los archivos.

Nota: El libro con la macro deberá estar en otra carpeta diferente a donde tienes los libros

Las celdas que quieres copiar y el nombre de la hoja que va a almacenar los datos.

La información de las celdas F7 y I7 se va a tomar de la primera hoja de cada libro.

Sub Abrir_Ficheros()
'Por.Dante Amor
    Application.ScreenUpdating = False
    ruta = "C:\trabajo\libros\"     'carpeta donde están los archivos
    celdas = Array("F7", "I7")      'celdas a recoger
    '
    Set l1 = ThisWorkbook
    Set h1 = Sheets("Hoja1")        'Nombre de hoja para almacenar los datos
    h1.Cells.ClearContents
    '
    fila = 2
    col = 1
    ini = col
    arch = Dir(ruta & "*.xls*")
    Do While arch <> ""
        Set l2 = Workbooks.Open(ruta & arch)
        Set h2 = l2.Sheets(1)
        For i = LBound(celdas) To UBound(celdas)
            h1.Cells(fila, col) = h2.Range(celdas(i))
            col = col + 1
        Next
        col = ini
        fila = fila + 1
        l2.Close False
        arch = Dir()
    Loop
    Application.ScreenUpdating = True
    MsgBox "Fin"
End Sub

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macros condicionados excel para Mac

Tengo MAC y Outlook sin licencia. Quiero poner macro para envío automático condicionado. Vi tu tutorial pero no me funciona. Cuando quiero habilitar el macro me da este mensaje: run-time error 429. Active POR component can't create objet. Y cuando le...
2 respuestas

Excel- Dar valor a una celda si otra celda u otra celdas tienen un valor.

Estoy intentando que ejecute una fórmula si otra celda u otras celdas tienen un valor. Es decir, necesito que la celda A1 ejecute la fórmula hoy()+1, si la celda c1 tiene un valor cualquiera, por ejemplo una X. O si la celda c2 tiene un valor...
2 respuestas

Excel VBA ListBox carga datos por fecha pero se requiere agregar una nueva condición a través de ComboBox

De verdad espero me puedan ayudar. Tengo una macro que funciona a la perfección cargando datos a un ListBox en un Userform a través de una fecha incial y una fecha final, el problema se me presenta porque requiero que ya no solo cargue por la fecha,...
2 respuestas

Alguien sabe cómo copiar un rango discontinuo y pegar solo valores en ese mismo rango y mismas celdas

Lo que pretende es que Alguien me explique cómo copiar un rango discontinuo y pegar solo valores en ese mismo rango y mismas celdas. Me gustaría sin macros, pero si no hay otra solución, pues con macros.
2 respuestas

Macro para crear archivo .txt

He intentado hacer una macro que me permita hacer lo siguiente, pero no lo he logrado: Crear un nuevo archivo .txt a partir de un archivo en Excel y que me pregunte donde deseo guardar el nuevo archivo .txtQue el nombre del nuevo archivo sea siempre...
2 respuestas

Cómo hacer un filtro múltiple en formulario Excel?

Tengo un formulario en Excel con 5 combos combinado(Tipo, Año, Mes, servicio y Especialidad) y un cuadro de lista. La idea es que al seleccionar un valor en el cuadro combinado Tipo, en el cuadro de lista se me filtren los registros con ese valor,...
3 respuestas

EXCEL Condicional SI con la función Y y MAX o MIN

Se que sois unos genios y solo vosotros me podéis ayudar. Tengo hecha en Excel una hoja para rellenar el importe de las comidas y cenas que tiene que solicitar los compañeros cuando trabajan fuera. A B C D E F G 1 TIPO MAXIMO DIA FACT. IMPORTE FACT....
2 respuestas

Como realizar un control de parqueo, en Excel si para una moto se pagan 3 diarios, para carro 5 diarios

Quiero realizar un control de parqueo por día en Excel, para el cliente que tenga moto la tarifa seria de 3 diarios y para carro 5 diarios, para camión 15. Como puedo llevar el control para cada cliente si en la celda p6 inician los clientes. Si los...
2 respuestas

¿Cómo hacer una función SI() anidada, haciendo comprobaciones en cascada?

He creado una función para hacer comprobaciones en cascada, pero algo está mal y me da un aviso que la fórmula es incoherente, Me explico: Tengo una base de datos de pagos los cuales son a crédito, así que tengo los diferentes pagos en diferentes...
2 respuestas

Calculo de unidades por superficies

Necesitaría una fórmula que me calculara la cantidad mínima de piezas que necesito para cubrir 0.5 m2. (50anchox100alto cm) Tengo los siguientes descripciones: - Placa metálica de acero al carbono 60x60 cm. Me tendría que dar el valor 2, ya que con...
1 respuesta