Ayuda con Visual

26/06/2007 - 02:26 por Murphy | Informe spam
Hola a todos!

Esperando hayan tenido un excelente fin de semana y un mejor inicio de
esta que corre.

Tengo un libro con mas de 150 hojas cada una con distintos nombres,
todas las hojas sin embargo contienen la misma estructura, lo que
cambian son datos numericos segun desplazamientos, existencias, etc.

Quisiera lograr que mediante Codigo, recorra de hoja en hoja copiando
la informacion que se encuentra en el ralgo "A11:G26", (en todas las
hojas) y lo pegue todo concentrado en una sola hoja nueva.

Agadezco de antemano la atencion.

Cualquier Duda estare pendiente!
 

Leer las respuestas

#1 Héctor Miguel
26/06/2007 - 08:37 | Informe spam
hola, !

... mas de 150 hojas... misma estructura ...
Quisiera... Codigo... copiando la informacion que se encuentra en... "A11:G26"
(en todas las hojas) y lo pegue todo concentrado en una sola hoja nueva.



Sub Concentra()
Dim n As Byte
Worksheets.Add Before:=Worksheets(1)
For n = 2 To Worksheets.Count
With Range("b65536").End(xlUp)
.Offset(1, -1) = Worksheets(n).Name
.Offset(1).Resize(16, 7).Value = Worksheets(n).Range("a11:g26").Value
End With
Next
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Preguntas similares