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
Adjunto | Tamaño |
---|---|
prueba.zip | 2.1 MB |
el bucle para recorrer todos los días lo tienes fácil
For contador = 1 To ultimodiadelmes
Windows("cierre inventarios " & Format(Ayer, "mmmm") & ".xls").Activate
Sheets(contador).Select
Application.Union(Range("D18:E18"), Range("J18")).Select
Selection.Copy
Windows("Indicadores.xlsm").Activate
Sheets("Hoja1").Select
Range("B" & 2 + contador).Select
Selection.PasteSpecial Paste:=xlPasteValues
Next
------
Ya sé Excel, pero necesito más.
Que tal compañero
Gracias pos tu aporte pero al parecer no reccorre las hojs ya que no me pego ningun dato. Te adjunto el archivo.