Ayuda con Macro, copiar un rango de celdas

publicado el 20 de mayo12 años

Bunas a todos los del foro, necesito saber si alguien me puede ayudar necesito hacer los siguiente;

tengo una conjunto de celdas en dos columnas que necesito se repitan hacia abajo 148 veces. ejemplo

que los datos de la columna 1 y 2 se repitan hacia abajo 148 veces. ojala me puedan ayudar gracias.

Columna 1 Columna 2

[TABLE=width: 160]

[TR]

[TD=class: xl65, width: 80]5001113[/TD]

[TD=class: xl66, width: 80, align: right]990[/TD]

[/TR]

[TR]

[TD=class: xl65]5004148[/TD]

[TD=class: xl66, align: right]280[/TD]

[/TR]

[TR]

[TD=class: xl65]8000966[/TD]

[TD=class: xl66, align: right]1090[/TD]

[/TR]

[TR]

[TD=class: xl65]8000970[/TD]

[TD=class: xl66, align: right]1090[/TD]

[/TR]

[TR]

[TD=class: xl65]8000982[/TD]

[TD=class: xl66, align: right]1090[/TD]

[/TR]

[TR]

[TD=class: xl65]8000993[/TD]

[TD=class: xl66, align: right]1090[/TD]

[/TR]

[TR]

[TD=class: xl65]8001167[/TD]

[TD=class: xl66, align: right]1090[/TD]

[/TR]

[TR]

[TD=class: xl65]8003323[/TD]

[TD=class: xl66, align: right]1790[/TD]

[/TR]

[TR]

[TD=class: xl65]8003824[/TD]

[TD=class: xl66, align: right]390[/TD]

[/TR]

[TR]

[TD=class: xl65]8004144[/TD]

[TD=class: xl66, align: right]1490[/TD]

[/TR]

[TR]

[TD=class: xl65]8004661[/TD]

[TD=class: xl66, align: right]990[/TD]

[/TR]

[TR]

[TD=class: xl65]8005254[/TD]

[TD=class: xl66, align: right]790[/TD]

[/TR]

[/TABLE]

publicado el 20 de mayo12 años

Adjunta archivo ejemplo........normas del foro......detallando mejor cuál es el resultado que esperas........

Un saludo,

Tese

publicado el 20 de mayo12 años

Autor

Adjunto archivo de ejemplo, lo que necesito es que el rango seleccionado o lo que esta en la columna a y b se repita n veces hacia abajo

http://www.bhaproducts.cl/Ayuda.xlsx

publicado el 20 de mayo12 años

Adjunta tu archivo en formato ".rar" ó ".zip".......para que te deje subirlo al foro.....

Un saludo,

Tese

publicado el 20 de mayo12 años

Autor

Ojala ahora si este bien. adjunto archivo.

http://www.bhaproducts.cl/Ayuda.rar

Saludos

Ayuda.rar

publicado el 20 de mayo12 años

¿El rango lo definirías tú de algún modo?...es decir, imagino que querrás poder seleccionar tú que es lo que quieres copiar y quizás hasta el nº de veces que necesitas hacerlo......

¿Es así?

Un saludo,

Tese

publicado el 20 de mayo12 años

Autor

Si amigo, yo dar el rango en este caso son 12 filas y 2 columnas que se deben repetir 148 veces.

Gracias por las prontas respuestas

publicado el 20 de mayo12 años

Creo que no me has entendido......jejeje.......yo me refería a que si quieres ejecutar tú la macro después de seleccionar lo que quieres repetir y que de alguna forma el nº de veces que se repiten esos datos también podría variar....

Te lo pregunto porque si tus datos reales están en otra posición en la Hoja ó necesitas un número de copias diferentes, no te valdría para mucho hacerlo específicamente para ese ejemplo.....

Un saludo,

Tese

publicado el 20 de mayo12 años

Autor

La idea es la siguiente, que yo tenga por decir de algún modo una base de datos en la hoja 1 y que yo en la macro vea si están bien los rango que deseo se copien y cuantas veces se deben repetir y le de Play y aparezcan en la hoja 2 el resultado.

Saludos

Carlos

publicado el 20 de mayo12 años

Como ves, simplemente que haya distintas hojas ya es algo muy diferente a lo que exponías al principio.

Lo que no termino de entender es cuando dices "que yo en la macro vea si están bien los rango que deseo se copien"....

Detalla mejor lo que necesitas, por favor....

Un saludo,

Tese

publicado el 20 de mayo12 años

Autor

tratare de explicar mejor. da lo mismo si se copia en una misma hoja u en otra. a modo de ejemplo tengo en la columna A datos del 12345 y el la B abcde y necesito que esto se repita 12 veces.

Columna A Columna B

1 a

2 b

3 c

4 d

5 e

1 a

2 b

3 c

4 d

5 e

1 a

2 b

3 c

4 d

5 e

1 a

2 b

3 c

4 d

5 e

1 a

2 b

3 c

4 d

5 e

1 a

2 b

3 c

4 d

5 e

publicado el 20 de mayo12 años

Lo siento, kyo8888......pero no entiendo que estés cambiando continuamente de ejemplo....

Quizás algún otro usuario pueda entender mejor lo que necesitas....

Un saludo,

Tese

publicado el 20 de mayo12 años

Autor

disculpa por molestar tanto pero lo que necesito es esto. También adjunto excel

[TABLE=width: 480]

[TR]

[TD]Tengo esto[/TD]

[TD][/TD]

[TD=colspan: 2]y debe quedar así (se debe repetir hacia abajo 148 veces )[/TD]

[/TR]

[TR]

[TD]5001113[/TD]

[TD=align: right]990[/TD]

[TD][/TD]

[TD]5001113[/TD]

[TD=align: right]990[/TD]

[/TR]

[TR]

[TD]5004148[/TD]

[TD=align: right]280[/TD]

[TD][/TD]

[TD]5004148[/TD]

[TD=align: right]280[/TD]

[/TR]

[TR]

[TD]8000966[/TD]

[TD=align: right]1090[/TD]

[TD][/TD]

[TD]8000966[/TD]

[TD=align: right]1090[/TD]

[/TR]

[TR]

[TD]8000970[/TD]

[TD=align: right]1090[/TD]

[TD][/TD]

[TD]8000970[/TD]

[TD=align: right]1090[/TD]

[/TR]

[TR]

[TD]8000982[/TD]

[TD=align: right]1090[/TD]

[TD][/TD]

[TD]8000982[/TD]

[TD=align: right]1090[/TD]

[/TR]

[TR]

[TD]8000993[/TD]

[TD=align: right]1090[/TD]

[TD][/TD]

[TD]8000993[/TD]

[TD=align: right]1090[/TD]

[/TR]

[TR]

[TD]8001167[/TD]

[TD=align: right]1090[/TD]

[TD][/TD]

[TD]8001167[/TD]

[TD=align: right]1090[/TD]

[/TR]

[TR]

[TD]8003323[/TD]

[TD=align: right]1790[/TD]

[TD][/TD]

[TD]8003323[/TD]

[TD=align: right]1790[/TD]

[/TR]

[TR]

[TD]8003824[/TD]

[TD=align: right]390[/TD]

[TD][/TD]

[TD]8003824[/TD]

[TD=align: right]390[/TD]

[/TR]

[TR]

[TD]8004144[/TD]

[TD=align: right]1490[/TD]

[TD][/TD]

[TD]8004144[/TD]

[TD=align: right]1490[/TD]

[/TR]

[TR]

[TD]8004661[/TD]

[TD=align: right]990[/TD]

[TD][/TD]

[TD]8004661[/TD]

[TD=align: right]990[/TD]

[/TR]

[TR]

[TD]8005254[/TD]

[TD=align: right]790[/TD]

[TD][/TD]

[TD]8005254[/TD]

[TD=align: right]790[/TD]

[/TR]

[TR]

[TD][/TD]

[TD]5001113[/TD]

[TD=align: right]990[/TD]

[/TR]

[TR]

[TD][/TD]

[TD]5004148[/TD]

[TD=align: right]280[/TD]

[/TR]

[TR]

[TD][/TD]

[TD]8000966[/TD]

[TD=align: right]1090[/TD]

[/TR]

[TR]

[TD][/TD]

[TD]8000970[/TD]

[TD=align: right]1090[/TD]

[/TR]

[TR]

[TD][/TD]

[TD]8000982[/TD]

[TD=align: right]1090[/TD]

[/TR]

[TR]

[TD][/TD]

[TD]8000993[/TD]

[TD=align: right]1090[/TD]

[/TR]

[TR]

[TD][/TD]

[TD]8001167[/TD]

[TD=align: right]1090[/TD]

[/TR]

[TR]

[TD][/TD]

[TD]8003323[/TD]

[TD=align: right]1790[/TD]

[/TR]

[TR]

[TD][/TD]

[TD]8003824[/TD]

[TD=align: right]390[/TD]

[/TR]

[TR]

[TD][/TD]

[TD]8004144[/TD]

[TD=align: right]1490[/TD]

[/TR]

[TR]

[TD][/TD]

[TD]8004661[/TD]

[TD=align: right]990[/TD]

[/TR]

[TR]

[TD][/TD]

[TD]8005254[/TD]

[TD=align: right]790[/TD]

[/TR]

[/TABLE]

- - - - - Mensaje combinado - - - - -

disculpa por molestar tanto pero lo que necesito es esto. También adjunto excel

[TABLE=width: 480]

[TR]

[TD]Tengo esto[/TD]

[TD][/TD]

[TD=colspan: 2]y debe quedar así (se debe repetir hacia abajo 148 veces )[/TD]

[/TR]

[TR]

[TD]5001113[/TD]

[TD=align: right]990[/TD]

[TD][/TD]

[TD]5001113[/TD]

[TD=align: right]990[/TD]

[/TR]

[TR]

[TD]5004148[/TD]

[TD=align: right]280[/TD]

[TD][/TD]

[TD]5004148[/TD]

[TD=align: right]280[/TD]

[/TR]

[TR]

[TD]8000966[/TD]

[TD=align: right]1090[/TD]

[TD][/TD]

[TD]8000966[/TD]

[TD=align: right]1090[/TD]

[/TR]

[TR]

[TD]8000970[/TD]

[TD=align: right]1090[/TD]

[TD][/TD]

[TD]8000970[/TD]

[TD=align: right]1090[/TD]

[/TR]

[TR]

[TD]8000982[/TD]

[TD=align: right]1090[/TD]

[TD][/TD]

[TD]8000982[/TD]

[TD=align: right]1090[/TD]

[/TR]

[TR]

[TD]8000993[/TD]

[TD=align: right]1090[/TD]

[TD][/TD]

[TD]8000993[/TD]

[TD=align: right]1090[/TD]

[/TR]

[TR]

[TD]8001167[/TD]

[TD=align: right]1090[/TD]

[TD][/TD]

[TD]8001167[/TD]

[TD=align: right]1090[/TD]

[/TR]

[TR]

[TD]8003323[/TD]

[TD=align: right]1790[/TD]

[TD][/TD]

[TD]8003323[/TD]

[TD=align: right]1790[/TD]

[/TR]

[TR]

[TD]8003824[/TD]

[TD=align: right]390[/TD]

[TD][/TD]

[TD]8003824[/TD]

[TD=align: right]390[/TD]

[/TR]

[TR]

[TD]8004144[/TD]

[TD=align: right]1490[/TD]

[TD][/TD]

[TD]8004144[/TD]

[TD=align: right]1490[/TD]

[/TR]

[TR]

[TD]8004661[/TD]

[TD=align: right]990[/TD]

[TD][/TD]

[TD]8004661[/TD]

[TD=align: right]990[/TD]

[/TR]

[TR]

[TD]8005254[/TD]

[TD=align: right]790[/TD]

[TD][/TD]

[TD]8005254[/TD]

[TD=align: right]790[/TD]

[/TR]

[TR]

[TD][/TD]

[TD]5001113[/TD]

[TD=align: right]990[/TD]

[/TR]

[TR]

[TD][/TD]

[TD]5004148[/TD]

[TD=align: right]280[/TD]

[/TR]

[TR]

[TD][/TD]

[TD]8000966[/TD]

[TD=align: right]1090[/TD]

[/TR]

[TR]

[TD][/TD]

[TD]8000970[/TD]

[TD=align: right]1090[/TD]

[/TR]

[TR]

[TD][/TD]

[TD]8000982[/TD]

[TD=align: right]1090[/TD]

[/TR]

[TR]

[TD][/TD]

[TD]8000993[/TD]

[TD=align: right]1090[/TD]

[/TR]

[TR]

[TD][/TD]

[TD]8001167[/TD]

[TD=align: right]1090[/TD]

[/TR]

[TR]

[TD][/TD]

[TD]8003323[/TD]

[TD=align: right]1790[/TD]

[/TR]

[TR]

[TD][/TD]

[TD]8003824[/TD]

[TD=align: right]390[/TD]

[/TR]

[TR]

[TD][/TD]

[TD]8004144[/TD]

[TD=align: right]1490[/TD]

[/TR]

[TR]

[TD][/TD]

[TD]8004661[/TD]

[TD=align: right]990[/TD]

[/TR]

[TR]

[TD][/TD]

[TD]8005254[/TD]

[TD=align: right]790[/TD]

[/TR]

[/TABLE]

Ayuda.rar

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

Domina Excel, de Cero a Experto

¿Atascado? Deja de buscar soluciones puntuales. Aprende a dominar Excel para siempre con nuestro curso online. Más de 115 lecciones y soporte directo.

Ver el Curso Completo