Para ejectuar una misma accion en todas las hojas de calculo que se encuentren dentro de un mismo libro, lsa clave son un For Loop y un objeto Worksheet.
Sub consolidar()
Application.DisplayAlerts = False
Dim wks As Worksheet
Dim lastrow As Integer
'Con esto abro el archivo
Workbooks.Open("D:\RubenBK\REPORTS\Reportes Josue\DHL Report 2014.xlsx").Sheets("DHL 2014 SUPPLY").Activate
'Aqui viene el loop, por cada hoja en hojas:
For Each wks In ActiveWorkbook.Worksheets
wks.Activate 'esto ha sido clave, hay que activar cada hoja
lastrow = Range("a6").End(xlDown).row 'solo para saber numero de la ultima fila a copiar
Range("a7", Range("a" & lastrow)).Copy Destination:=ThisWorkbook.Sheets("Delivered").Range("A1").End(xlDown).Offset(1, 0)
Next
ActiveWorkbook.Close
Ahora una funcion para buscar un texto o una parte de este dentro de un libro
No hay comentarios:
Publicar un comentario