UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

newbieM


Buenas tardes compañeros,
Soy muy nueva en esto de las macros y me encuentro atorada con un asunto, espero me puedan ayudar.

Necesito una macro que copie los datos de un número indefinido de hojas y los copie en otra hoja "RUTAS", el problema es que la información se encuentra de la siguiente forma, en filas:
Ruta: 020052
Total visitas: 7
Total visitas con venta: 4

y quiero que al pegarla en la hoja "RUTAS", la información salga en columnas:

COL A          COL B              COL C
Ruta            T. Visitas          T. visitas con venta
020052            7                           4

Por el momento mi macro ya hace todo menos pegar la información en columnas, y no logro dar con la instrucción correcta, les pego el código que llevo:

Sub OpenNewSheet()
ActiveWorkbook.Sheets.Add.Name = "RUTAS"

Dim Sht As Worksheet
For Each Sht In ActiveWorkbook.Worksheets
If Sht.Name <> "RUTAS" Then
Sht.Select
Range("C2:D4").Copy
Range("C2:D4").PasteSpecial
Sheets("RUTAS").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste        '--->ActiveSheet.PasteSpecial Transpose:=True
Sht.Select
Else
End If
Next Sht
 
End Sub

En color rosa puse la instrucción que debería estar haciendo lo que busco pero no funciona, podrían ayudarme por favor?
Muchas gracias.

tyno


Hola NewbienM.
Intenta subir el archivo de ejemplo. Lee las instrucciones para hacerlo.

Saludos

Saludos

newbieM


Muchas gracias Tyno.

Adjunto un archivo ejemplo, al correr la macro se va a crear al comienzo del libro la hoja "RUTAS" y va a ir recorriendo todas las hojas hasta el final. En la hoja "RUTAS" aparece todo lo que pegó de las demás hojas.

Saludos.
Archivos
ArchivoForo.xlsx
No tienes los permisos para descargar los archivos.
(65 KB)

tyno


Prueba el archivo con la macro,
Esta se ejecuta con la combinación Ctrl + m o bien en el menú de macros.

Saludos
Archivos
ArchivoForo.xls
No tienes los permisos para descargar los archivos.
(137 KB)

newbieM


Tyno!!
Ya la probé, funciona a la perfección, quedo mucho mejor!
Tu código es más limpio y detecta si la hoja RUTAS ya existe Shocked Very Happy .

Muchas gracias enormes  cheers

Saludos!

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.