Jump to content

Ayuda con Macro, copiar un rango de celdas


Recommended Posts

Posted

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]

Posted

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

Un saludo,

Tese

Posted

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

Un saludo,

Tese

Posted

¿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

Posted

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

Posted

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

Posted

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

Posted

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

Posted

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

Posted

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

Posted

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][/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][/TD]

[TD]5001113[/TD]

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

[/TR]

[TR]

[TD]5004148[/TD]

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

[TD][/TD]

[TD][/TD]

[TD]5004148[/TD]

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

[/TR]

[TR]

[TD]8000966[/TD]

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

[TD][/TD]

[TD][/TD]

[TD]8000966[/TD]

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

[/TR]

[TR]

[TD]8000970[/TD]

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

[TD][/TD]

[TD][/TD]

[TD]8000970[/TD]

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

[/TR]

[TR]

[TD]8000982[/TD]

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

[TD][/TD]

[TD][/TD]

[TD]8000982[/TD]

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

[/TR]

[TR]

[TD]8000993[/TD]

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

[TD][/TD]

[TD][/TD]

[TD]8000993[/TD]

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

[/TR]

[TR]

[TD]8001167[/TD]

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

[TD][/TD]

[TD][/TD]

[TD]8001167[/TD]

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

[/TR]

[TR]

[TD]8003323[/TD]

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

[TD][/TD]

[TD][/TD]

[TD]8003323[/TD]

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

[/TR]

[TR]

[TD]8003824[/TD]

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

[TD][/TD]

[TD][/TD]

[TD]8003824[/TD]

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

[/TR]

[TR]

[TD]8004144[/TD]

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

[TD][/TD]

[TD][/TD]

[TD]8004144[/TD]

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

[/TR]

[TR]

[TD]8004661[/TD]

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

[TD][/TD]

[TD][/TD]

[TD]8004661[/TD]

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

[/TR]

[TR]

[TD]8005254[/TD]

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

[TD][/TD]

[TD][/TD]

[TD]8005254[/TD]

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

[/TR]

[TR]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD]5001113[/TD]

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

[/TR]

[TR]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD]5004148[/TD]

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

[/TR]

[TR]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD]8000966[/TD]

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

[/TR]

[TR]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD]8000970[/TD]

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

[/TR]

[TR]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD]8000982[/TD]

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

[/TR]

[TR]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD]8000993[/TD]

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

[/TR]

[TR]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD]8001167[/TD]

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

[/TR]

[TR]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD]8003323[/TD]

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

[/TR]

[TR]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD]8003824[/TD]

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

[/TR]

[TR]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD]8004144[/TD]

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

[/TR]

[TR]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD]8004661[/TD]

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

[/TR]

[TR]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[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][/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][/TD]

[TD]5001113[/TD]

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

[/TR]

[TR]

[TD]5004148[/TD]

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

[TD][/TD]

[TD][/TD]

[TD]5004148[/TD]

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

[/TR]

[TR]

[TD]8000966[/TD]

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

[TD][/TD]

[TD][/TD]

[TD]8000966[/TD]

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

[/TR]

[TR]

[TD]8000970[/TD]

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

[TD][/TD]

[TD][/TD]

[TD]8000970[/TD]

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

[/TR]

[TR]

[TD]8000982[/TD]

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

[TD][/TD]

[TD][/TD]

[TD]8000982[/TD]

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

[/TR]

[TR]

[TD]8000993[/TD]

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

[TD][/TD]

[TD][/TD]

[TD]8000993[/TD]

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

[/TR]

[TR]

[TD]8001167[/TD]

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

[TD][/TD]

[TD][/TD]

[TD]8001167[/TD]

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

[/TR]

[TR]

[TD]8003323[/TD]

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

[TD][/TD]

[TD][/TD]

[TD]8003323[/TD]

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

[/TR]

[TR]

[TD]8003824[/TD]

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

[TD][/TD]

[TD][/TD]

[TD]8003824[/TD]

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

[/TR]

[TR]

[TD]8004144[/TD]

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

[TD][/TD]

[TD][/TD]

[TD]8004144[/TD]

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

[/TR]

[TR]

[TD]8004661[/TD]

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

[TD][/TD]

[TD][/TD]

[TD]8004661[/TD]

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

[/TR]

[TR]

[TD]8005254[/TD]

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

[TD][/TD]

[TD][/TD]

[TD]8005254[/TD]

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

[/TR]

[TR]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD]5001113[/TD]

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

[/TR]

[TR]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD]5004148[/TD]

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

[/TR]

[TR]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD]8000966[/TD]

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

[/TR]

[TR]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD]8000970[/TD]

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

[/TR]

[TR]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD]8000982[/TD]

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

[/TR]

[TR]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD]8000993[/TD]

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

[/TR]

[TR]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD]8001167[/TD]

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

[/TR]

[TR]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD]8003323[/TD]

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

[/TR]

[TR]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD]8003824[/TD]

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

[/TR]

[TR]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD]8004144[/TD]

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

[/TR]

[TR]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD]8004661[/TD]

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

[/TR]

[TR]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[TD]8005254[/TD]

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

[/TR]

[/TABLE]

Ayuda.rar

Archived

This topic is now archived and is closed to further replies.

  • 108 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Current Donation Goals

    • Raised 0.00 EUR of 130.00 EUR target
  • Files

  • Download Statistics

    • Files
      184
    • Comments
      96
    • Reviews
      28

    More information about "Un juego solitario en Excel"
    Latest File
    By pegones1

    4    0

  • Crear macros Excel

  • Posts

    • Hola. Tu archivo no tiene macros. Sobre las celdas combinadas, ya que no puedes evitar su uso al no ser tus archivos, lo mejor es "des combinarlas" previo a cualquier cosa, incluso en tu misma macro (que no envías). 
    • Hola buenas tardes tengo un archivo en excel que copia varias tablas y las importa a word de manera automatica. Este selecciona las tablas en base a las filas con datos de mi columna C. pueden ser  diferentes rango de tablas. (Pero siempre mi rango es de celdas continuas y con valores continuas) Funciona muy bien. El problema que ahora tengo es que muchos archivos con tablas  tienen las celdas combinadas ya sea horizontalmento o vertical. Aqui es donde empieza mi problema ya que son formatos de origen no puedo modificarlas. Quisiera ajustar mi macro en la parte de seleccion de rango de tablas y que pueda considerar la celdas combinadas y pegarlos en word sin problema. Ya que actualmente no me pone algunas tablas o rangos, o me repite las tablas y no considera las demas. Todo esto a que en algunas no hay valores o las celdas estan combinadas.   Muchas gracias Seleccion automatica de celdas combis.xlsx
    • por si te sirve: la primera matriz (pivotarpor) al inicio los que no tienen profesor asignado (orden ascendente por omision) la segunda (2 matrices y solo unicos) en el orden de aparicion (no asignados al final) la tercera (2 matrices) omite los no asignados (tambien por orden de aparicion) unicos y suma (ayudaExcel).xlsx
    • No se si este tema va aquí, si no es así, pido disculpas. Llevo varios días dando vueltas a un fallo que me sale al exportar una tabla a xml y que no consigo resolver. El fallo que me da es que no las asignaciones no son exportables y al comprobar la asignación me dice datos no normalizados.     Libro1.xlsx
    • Buenas tardes estimado JSDJSD, muchas gracias por responder. En efecto esta parte quedo perfecta. Pero me falto indicar que la macro se ejecute dependiendo de la celda L1 ( Caliza o Mezcla). Entonces si dice Caliza aplica la macro que me enviaste, pero si dice Mezcla que haga lo siguiente: Busque el  ultimo dato de la columna K de la hoja Mezcla Adición del libro Base de datos Cementos producido 2024, con la condición de que la columna B debe ser igual a 4 y el dato lo coloque en la celda N1 de la hoja Cemento del libro Cemento. Te comento que el libro Prehomo y Base de datos Cementos producidos 2024 están en carpetas diferentes ya que estos los maneja otra área, como se enmendaría este caso por el comentarios que me enviaste de la ruta. Saludos y un fuerte abrazo   Cemento-2.xlsm
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy