Copiar 500 una lista

28/04/2006 - 20:09 por osalazarg | Informe spam
Hola espero que alguien me pueda ayudar por favor tengo una cartera con
nombres de 100 instrumentos , lo que necesito es crear una copiar de cada
uno de estos instrumentos 500 veces, que vaya agarrando el primero y cree
la copia de este abajo de este 500 veces, y luega siga con el segundo y
cree la copiar de este abajo 500 veces. y asi consecutivamente
hasta terminar mi lista.

asi esta mi lista

UDIBONO 121220 S0
UDIBONO 131219 S0
BOND182 060622 LS
BOND182 060831 LS
BOND182 061109 LS
.
.
lo que
necesito

UDIBONO 121220 S0
UDIBONO 121220 S0
UDIBONO 121220 S0
UDIBONO 121220 S0
.
.
.
500 veces


BOND182 060622 LS
BOND182 060622 LS
BOND182 060622 LS
BOND182 060622 LS
.
.
.
500 veces

Gracias.

Preguntas similare

Leer las respuestas

#1 Manolo
28/04/2006 - 20:53 | Informe spam
Hola sago, fíjate si puedes adecuar a tus necesidades lo siguiente:

La lista que deseo copiar está desde A1 hasta An y la nueva lista de 500 en
500 en la columna F desde F1, prueba a poner la siguiente fórmula en F1 y
después copia hacia abajo:

=INDIRECTO("A"&ENTERO((FILA()-1)/500)+1)

Ojalá te ayude

Manolo
"sago" escribió en el mensaje
news:%
Hola espero que alguien me pueda ayudar por favor tengo una cartera con
nombres de 100 instrumentos , lo que necesito es crear una copiar de cada
uno de estos instrumentos 500 veces, que vaya agarrando el primero y cree
la copia de este abajo de este 500 veces, y luega siga con el segundo y
cree la copiar de este abajo 500 veces. y asi consecutivamente
hasta terminar mi lista.

asi esta mi lista

UDIBONO 121220 S0
UDIBONO 131219 S0
BOND182 060622 LS
BOND182 060831 LS
BOND182 061109 LS
.
.
lo que
necesito

UDIBONO 121220 S0
UDIBONO 121220 S0
UDIBONO 121220 S0
UDIBONO 121220 S0
.
.
.
500 veces


BOND182 060622 LS
BOND182 060622 LS
BOND182 060622 LS
BOND182 060622 LS
.
.
.
500 veces

Gracias.


Respuesta Responder a este mensaje
#2 David
28/04/2006 - 21:01 | Informe spam
Si quieres 500 copias del mismo instrumento, tendrías que insertar 499 copias
;-)

Tal vez no sea la solución más rápida, pero funciona. Prueba con el
siguiente código, y lo adaptas a tu caso:

Sub Repetir500()
Dim seguir As Boolean
seguir = True
Do
If Len(ActiveCell.Value) > 0 Then
For j = 1 To 499
Selection.EntireRow.Insert
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.Copy
ActiveCell.Offset(-1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Next j
ActiveCell.Offset(1, 0).Range("A1").Select
Else
seguir = False
End If
Loop While seguir
End Sub

Recuerda que debes estar en el primer instrumento de tu lista, y que el
macro se detendrá cuando encuentre una celda vacía, así que verifica primero
que no hayan celdas en blanco. Una última, el macro sólo te copia una
columna de datos...
Cordialmente,


"sago" escribió:

Hola espero que alguien me pueda ayudar por favor tengo una cartera con
nombres de 100 instrumentos , lo que necesito es crear una copiar de cada
uno de estos instrumentos 500 veces, que vaya agarrando el primero y cree
la copia de este abajo de este 500 veces, y luega siga con el segundo y
cree la copiar de este abajo 500 veces. y asi consecutivamente
hasta terminar mi lista.

asi esta mi lista

UDIBONO 121220 S0
UDIBONO 131219 S0
BOND182 060622 LS
BOND182 060831 LS
BOND182 061109 LS
..
..
lo que
necesito

UDIBONO 121220 S0
UDIBONO 121220 S0
UDIBONO 121220 S0
UDIBONO 121220 S0
..
..
..
500 veces


BOND182 060622 LS
BOND182 060622 LS
BOND182 060622 LS
BOND182 060622 LS
..
..
..
500 veces

Gracias.



email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida