Denunciar

Macro que copia dato de varias hojas de un libro a otro

Crear una discusión crengifo1726 1Publicaciones martes, 14 de febrero de 2017Fecha de inscripción jueves, 16 de febrero de 2017 Última intervención
Buenas tardes, compañeros

Quisiera que me ayudaran a optimizar esta macro, la hace lo siguiente copia los datos de las hojas que representas el dia del mes actual y los pega en otra libro, pero quisiera que sea mas corto no tan tedioso. Si es posible utilizar un bucle. Adjunto los archivos

Les adjunto la rutina que he elaborado:

Sub MetodoAbrirLibro()
Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False

Ayer = DateSerial(Year(Now), Month(Now), Day(Now)) - 1

Workbooks.Open "\\10.7.10.1\logistica\Logistica Publico\Bodega\inventarios_bodega\Cierre de Inventarios " & Format(Now, "yyyy") & "\cierre inventarios " & Format(Ayer, "mmmm") & ".xls"

Windows("cierre inventarios " & Format(Ayer, "mmmm") & ".xls").Activate
Sheets("1").Select
Application.Union(Range("D18:E18"), Range("J18")).Select
Selection.Copy

Windows("Indicadores.xlsm").Activate
Sheets("Hoja1").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues

Windows("cierre inventarios " & Format(Ayer, "mmmm") & ".xls").Activate
Sheets("2").Select
Application.Union(Range("D18:E18"), Range("J18")).Select
Selection.Copy

Windows("Indicadores.xlsm").Activate
Sheets("Hoja1").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues

Asi sucesivamente hasta culminar la hoja que representa el ultimo dia del mes actual

Windows("cierre inventarios " & Format(Ayer, "mmmm") & ".xls").Activate
ActiveWindow.Close

Los miembros obtienen más respuestas que los usuarios anónimos.

Ser miembro te permite llevar un seguimiento detallado de tus consultas.

Ser miembro te permite disfrutar de opciones adicionales.

¿Todavía no eres usuario?

¡Inscríbete, es gratis y toma menos de un minuto!