Ver Mensaje Individual
  #2 (permalink)  
Antiguo 25/03/2008, 14:00
Avatar de caesar.l
caesar.l
 
Fecha de Ingreso: febrero-2007
Ubicación: Aguascalientes, México
Mensajes: 1.439
Antigüedad: 17 años, 3 meses
Puntos: 91
Re: poner en una sola hoja varias hojas de un libro de excel

Pues si quieres los datos en la primera hoja y suponiendo que en las demás hojas los rangos de datos son del mismo tamaño, se puede utilizar este marco

Sub pasar_datos()
Dim i as Integer

For i = 2 To Sheets.Count
Sheets(i).Select 'Selecciona la hoja a copiar
Range("A1:M500").Copy 'Selecciona el rango a copiar
Sheets(1).Select 'Selecciona la primera hoja
Cells(i * 500 + 1, 1).Select 'Hace un despazamiento vertical para evitar que los datos se sobre escriban
ActiveCell.PasteSpecial 'Se pegan los datos

Next
i

End Sub

o bien puede hacer algo parecido, pero con un identificador de donde esta la celda vacía

Sub pasar_datos()
Dim i as Integer
Dim j as Integer

j=1
For i = 2 To Sheets.Count
Sheets(i).Select 'Selecciona la hoja a copiar
Range("A1:M500").Copy 'Selecciona el rango a copiar
Sheets(1).Select 'Selecciona la primera hoja
While cells(j,1)<> 0
j=j+1
Wend
Cells(j+1, 1).Select 'Hace un despazamiento vertical para evitar que los datos se sobre escriban
ActiveCell.PasteSpecial 'Se pegan los datos

Next
i

End Sub