Páginas

viernes, 28 de marzo de 2014

VBA Excel: Buscar en cada hoja dentro de un libro

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