Macro Comunas

Hola Angelo.

Prueba la siguiente rutina:

Sub Macro1()
Dim hojas As Integer
Dim fila As Integer
Dim num As Integer
fila = 1
For hojas = 1 To 2
For fila = 0 To Sheets(hojas).Cells(65535, 1) _
.End(xlUp).Row Step 11
Sheets.Add After:=Sheets(ActiveWorkbook.Sheets.Count)
For num = 1 To 11
Sheets(hojas).Activate
Rows(fila + num).Select
Selection.Copy
Sheets(ActiveWorkbook.Sheets.Count).Activate
Cells(num, 1).Select
ActiveSheet.Paste
Next num
Next fila
Next hojas
End Sub

NOTA: Cambia el 1 en el bucle exterior (hojas), por el número de la primera
hoja a copiar y el 2 por el número de la última hoja a copiar.

Saludos desde Tenerife.
***********************
"Angelo" escribió en el mensaje
news:

Hola, tengo el siguiente problema
en una planilla de excel, tengo avarias hojas.( estas con muchos registros
cada una), la idea es que la macro tome los datos por cada hoja los divida
en
11 ( por ejemplo) , y cree una nueva hoja con el resultado y detalle de
los
registros..
gracias.

Atte.
Angelo

Extraordinariodemaciado bueno, muchas gracias
de verdad agradezco la ayuda


"AnSanVal" escribió:

Hola Angelo.

Prueba la siguiente rutina:

Sub Macro1()
Dim hojas As Integer
Dim fila As Integer
Dim num As Integer
fila = 1
For hojas = 1 To 2
For fila = 0 To Sheets(hojas).Cells(65535, 1) _
.End(xlUp).Row Step 11
Sheets.Add After:=Sheets(ActiveWorkbook.Sheets.Count)
For num = 1 To 11
Sheets(hojas).Activate
Rows(fila + num).Select
Selection.Copy
Sheets(ActiveWorkbook.Sheets.Count).Activate
Cells(num, 1).Select
ActiveSheet.Paste
Next num
Next fila
Next hojas
End Sub

NOTA: Cambia el 1 en el bucle exterior (hojas), por el número de la primera
hoja a copiar y el 2 por el número de la última hoja a copiar.

Saludos desde Tenerife.
***********************
"Angelo" escribió en el mensaje
news:
> Hola, tengo el siguiente problema
> en una planilla de excel, tengo avarias hojas.( estas con muchos registros
> cada una), la idea es que la macro tome los datos por cada hoja los divida
> en
> 11 ( por ejemplo) , y cree una nueva hoja con el resultado y detalle de
> los
> registros..
> gracias.
>
> Atte.
> Angelo