Extraer Datos, copiar en hoja unueva y grabar en erchivod distintos

On 8 ene, 16:16, rvargas wrote:

¡ Hola !
 Como estas? mira tengo un archivo con 50000 lineas y quiero tomar 500 lineas
 copiarlas a una nuevo archivo y luego grabar este archivo en disco duro, pero
 como son 100 archvos necesito que cuando la macro grabe vaya asignadole un
 numero correlativo distinto a cada archivo que va grabando.

Un ejemplo sería el siguiente:

Sub volcar()
intervalo = 500 'nº de filas que contiene cada fichero
filaini = 1 'primera fila que queremos copiar
estelibro = ActiveWorkbook.Name
estahoja = ActiveSheet.Name
[a1].Select
ChDir "C:\DATOS\DESPLIEGUE"
While ActiveCell.Value <> ""
contador = contador + 1
filafin = filaini + intervalo - 1
Range(filaini & ":" & filafin).Copy
Workbooks.Add
ActiveCell.PasteSpecial (xlPasteValues)
ActiveCell.PasteSpecial (xlPasteFormats)
nombrefichero = estelibro & Format(contador, "000")
ActiveWorkbook.SaveAs (nombrefichero)
ActiveWorkbook.Close
Workbooks(estelibro).Activate
filaini = filafin + 1
ActiveCell.Offset(intervalo).Select
Wend


End Sub