UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se puede subir archivos al foro, favor de hacerlo en servidor externo (Dropbox, Drive...) y dejan link. "Sin archivo no hay respuestas"

Favor de leer "Todos los temas" Click aquí.

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

JOSEDAVILA


Hola, tengo una macro que concentra información de varias pestañas, sin embargo, esas pestañas las agrego manual al archivo, hay posibilidad de que se copie dicha información de los demás libros para no concentrar todas las hojas en este libro?

Esta es la macro actual, entiendo que debo poner un código donde se abra cada archivo del fichero y copie dicha información a mi pestaña "Concentrado" alguien podría ayudarme?

Sub Concentrar()
Dim fila, w As Integer, Hoja As Worksheet 'Definición de variables
Application.ScreenUpdating = False
Sheets("concentrado").[A2:S5000].Cells.Clear 'Borra datos de hoja concentrado
For Each Hoja In ActiveWorkbook.Sheets
With Sheets("Concentrado")
fila = .Range("B65000").End(xlUp).Row + 1  'Tomamos columna B porque no tienes datos en A
w = Application.CountA(Hoja.[C11:C20])      'Cuenta filas con datos de cada hoja
    If Hoja.Name <> "Concentrado" Then
        Hoja.Range("B11:N20").Copy Destination:=Sheets("Concentrado").Cells(fila, 1)
        .Cells(fila, 14).Resize(w) = Hoja.[C3]  'Redimensiona según cantidad de filas de c/hoja(w) y pega dato
        .Cells(fila, 15).Resize(w) = Hoja.[C4]
        .Cells(fila, 16).Resize(w) = Hoja.[C5]
        .Cells(fila, 18).Resize(w) = Hoja.[C7]
        .Cells(fila, 19).Resize(w) = Hoja.[C8]
        'Los cochetes es la forma abreviada de Range(" ")
        '[A2:S12] es lo mismo que Range("A2:S12")
    End If
End With
Next
Sheets("Concentrado").Select
Application.ScreenUpdating = True
End Sub

Igtelo

avatar
Hola José.

En aportes de los usuarios o tutoriales encuentras lo solicitado.

Saludos
Ignacio Téllez

JOSEDAVILA


entiendo, mi duda es que no se como integrar el código

Igtelo

avatar
No tienes que integrar absolutamente nada.  Mínimo tómate la "molestia" de buscar y encontrarás que ya existe exactamente lo que necesitas.

La mecánica del foro ya cambió, se acabó el tiempo de estarles indicando todo.

Ignacio Téllez

JOSEDAVILA


gracias, buscaré un poco mas

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.