Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Ayuda con Visual

26/06/2007 - 02:26 por Murphy | Informe spam
Ayuda Hacer una pregunta
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!
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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

 

Busqueda sugerida :