Ayuda con este desarrollo
A quien pueda ayudarme le estaré agradecido...
Tengo el siguiente desarrollo en excel el cual me divide en varias columnas por hoja una tira de extensa ( aprox. 50000) de códigos y precios de productos...
La dificultad está, creo yo, en algo de memoria, porque dependiendo del numero de fials que le asigne varia el momento en que me da el ERRO DE EJECUCIÓN 1004...
¿Alguien podrá corregirlo?
Sub dividir()
Dim franjas As Integer
'Sheets("Hoja1").Select
'Cells.Select
'Selection.Clear
'Range("A1").Select
Sheets("base").Select
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets.Add
'Sheets("Hoja1").Select
ActiveSheet.Paste
filas = InputBox("Ingrese el número de filas")
ActiveCell.Select
Selection.ColumnWidth = 19
Selection.Offset(0, 1).ColumnWidth = 8.5
Selection.Offset(0, 2).ColumnWidth = 1
franjas = 1
ActiveCell.Offset(filas, 0).Select
Do While Not IsEmpty(ActiveCell)
franjas = franjas + 1
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Cut
If franjas > 84 Then
Sheets.Add
franjas = 1
Else
ActiveCell.Offset(0, 3).Select
Selection.End(xlUp).Select
End If
ActiveSheet.Paste
ActiveCell.Select
Selection.ColumnWidth = 19
Selection.Offset(0, 1).ColumnWidth = 8.5
Selection.Offset(0, 2).ColumnWidth = 1
ActiveCell.Offset(filas, 0).Select
Loop
End Sub
Tengo el siguiente desarrollo en excel el cual me divide en varias columnas por hoja una tira de extensa ( aprox. 50000) de códigos y precios de productos...
La dificultad está, creo yo, en algo de memoria, porque dependiendo del numero de fials que le asigne varia el momento en que me da el ERRO DE EJECUCIÓN 1004...
¿Alguien podrá corregirlo?
Sub dividir()
Dim franjas As Integer
'Sheets("Hoja1").Select
'Cells.Select
'Selection.Clear
'Range("A1").Select
Sheets("base").Select
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets.Add
'Sheets("Hoja1").Select
ActiveSheet.Paste
filas = InputBox("Ingrese el número de filas")
ActiveCell.Select
Selection.ColumnWidth = 19
Selection.Offset(0, 1).ColumnWidth = 8.5
Selection.Offset(0, 2).ColumnWidth = 1
franjas = 1
ActiveCell.Offset(filas, 0).Select
Do While Not IsEmpty(ActiveCell)
franjas = franjas + 1
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Cut
If franjas > 84 Then
Sheets.Add
franjas = 1
Else
ActiveCell.Offset(0, 3).Select
Selection.End(xlUp).Select
End If
ActiveSheet.Paste
ActiveCell.Select
Selection.ColumnWidth = 19
Selection.Offset(0, 1).ColumnWidth = 8.5
Selection.Offset(0, 2).ColumnWidth = 1
ActiveCell.Offset(filas, 0).Select
Loop
End Sub
1 Respuesta
Respuesta de calvuch
1