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!

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

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.

Responder a este mensaje

#2 Murphy

26/06/2007 - 18:26 | Informe spam

On 26 jun, 01:37, "Héctor Miguel"
wrote:

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.

Hola Hector Muchas gracias!
Funciona a la perfeccion

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida