Saltar al contenido

¿Eres usuario? Conéctate
Conéctate a Ayuda Excel

Recuérdame No recomendado en ordenadores compartidos

¿Has olvidado tu contraseña?

O conéctate con uno de estos servicios

Macros y programación VBA

Te enseño 7 de los trucos que me permitieron trabajar 2 horas menos al día >>>

Ayuda con Macro, copiar un rango de celdas

kyo8888

Por kyo8888
el 20 de mayo en Macros y programación VBA

Recommended Posts

kyo8888

Novato

kyo8888

publicado el 20 de mayo

publicado el 20 de mayo

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]

tese1969

Aprendiz

tese1969

publicado el 20 de mayo

publicado el 20 de mayo

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

Un saludo,

Tese

kyo8888

Novato

kyo8888

publicado el 20 de mayo

Autor

publicado el 20 de mayo

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

tese1969

Aprendiz

tese1969

publicado el 20 de mayo

publicado el 20 de mayo

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

Un saludo,

Tese

kyo8888

Novato

kyo8888

publicado el 20 de mayo

Autor

publicado el 20 de mayo

Ojala ahora si este bien. adjunto archivo.

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

Saludos

tese1969

Aprendiz

tese1969

publicado el 20 de mayo

publicado el 20 de mayo

¿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

kyo8888

Novato

kyo8888

publicado el 20 de mayo

Autor

publicado el 20 de mayo

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

tese1969

Aprendiz

tese1969

publicado el 20 de mayo

publicado el 20 de mayo

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

kyo8888

Novato

kyo8888

publicado el 20 de mayo

Autor

publicado el 20 de mayo

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

tese1969

Aprendiz

tese1969

publicado el 20 de mayo

publicado el 20 de mayo

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

kyo8888

Novato

kyo8888

publicado el 20 de mayo

Autor

publicado el 20 de mayo

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

tese1969

Aprendiz

tese1969

publicado el 20 de mayo

publicado el 20 de mayo

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

kyo8888

Novato

kyo8888

publicado el 20 de mayo

Autor

publicado el 20 de mayo

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]

Archivado

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

Ir al listado de temas

109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)
1. 1. ¿Te parecen útiles los tips de las funciones?
  - Sí
  - No
  - Ni me he fijado en ellos
- Por favor conéctate o regístrate para votar en esta encuesta.
- Ver tema
Ayúdanos a mejorar la comunidad
- Mantenimiento de la comunidad
  
  Donaciones recibidas este mes: 0.00 EUR
  Objetivo: 130.00 EUR
Archivos
- Cambios en el Control Horario
  Por pegones1
  5 1
- Un juego del Rabino en Excel
  Por pegones1
  2 1
- Agenda Calendario Lunar 2025
  Por pegones1
  6 0
- Calculadora de premios de la Lotería de Navidad española
  Por pegones1
  1 0
- Un juego solitario en Excel
  Por pegones1
  6 0
Estadísticas de descargas
- Archivos
  
  188
- Comentarios
  
  98
- Revisiones
  
  29
Última descarga

Cambios en el Control Horario
Por pegones1
5 1
Mensajes
- Sumar Celdas Mediante Condición de Color
  
  Por jues · publicado ayer a las 03:18
  
  Saludos Sr @Israel Cassales espero este bien quise verificar bien su solución y que las modificaciones que hice funcionarán adecuadamente y al respecto debo decir que su aporte es excelente ya que no solo me ayudo a resolver lo que necesitada sino que también me ayudo a solventar dos cosas más por lo cual estoy muy agradecido
- Filtrar de forma indistinta en dos columnas de tabla
  
  Por Maku · publicado el Lunes a las 18:48
  
  Siempre es bueno otra opción, y si me la ha hecho llegar... seguro que mejor. La guardo para estudiar 😉 Gracias!
- Sumar Celdas Mediante Condición de Color
  
  Por Israel Cassales · publicado el Lunes a las 14:42
  
  Al parecer no hay observaciones adicionales del consultante, esperando la idea sea de utilidad termino mi participación en el tema. Saludines
- Filtrar de forma indistinta en dos columnas de tabla
  
  Por Oscar_MRF · publicado el jueves a las 19:57
  
  Que tal, otra posible solución: =LET(t,Tabla1[[Nº Tarjeta]:[Condición B]],FILTRAR(t,BYROW(HALLAR(H2,t),CONTAR)))
- Filtrar de forma indistinta en dos columnas de tabla
  
  Por Maku · publicado el jueves a las 16:16
  
  No hay nada como preguntar después de dos horas... para dar con la solución: =FILTRAR(Tabla1[[Nº Tarjeta]:[Condición B]];ESNUMERO(HALLAR(H2;Tabla1[Condición A]))+ESNUMERO(HALLAR(H2;Tabla1[Condición B])))
Visualizado recientemente
- No hay usuarios registrado para ver esta página.

×

¿Eres usuario? Conéctate

×

Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.