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

192 Archivos
99 Comentarios
30 Revisiones
Última descarga

Cómo conservar la función AHORA()
- 1

Error en Macro

Le aumenté a 3 Seg. Y nada, no se que estoy haciendo mal
Este seria la impresión original al cargar el Formulario:

Y esta es la Impresión que me sale, me carga el Saldo en la Celda J21 del Recibo

Por dorgelis, · publicado hace 6 horas 6 hr
Error en Macro

Probé la macro incluyendo la linea anterior y en mi ordenador un segundo fue suficiente para que funcionara correctamente.
Si te sigue dando el formulario incorrecto modifica el tiempo de espera de esa línea subiendo de 1 a 3 segundos.

Por Sergio, · publicado hace 7 horas 7 hr
Error en Macro

Gracias por responder, perdón por la confusión, efectivamente al imprimir me sigue colocando los montos errados al imprimir el formulario

Por dorgelis, · publicado hace 7 horas 7 hr
Error en Macro

En el mensaje original no comentabas nada de un error, simplemente no te salía el formulario con los valores que deseabas. ¿Es así?

Por Sergio, · publicado hace 7 horas 7 hr
Error en Macro

Saludos Profesor Sergio, de ante mano gracias por responder, realice lo que me sugirió coloque el código donde me indicó, sin embargo me sigue arrojando el mismo error.
' Restaurar formato de fuente
With wsHistorico.Rows("2:2").Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
' Incrementar automáticamente el número de recibo
wsRecibo.Range("J2").Value = wsRecibo.Range("J2").Value + 1
'Corrección de Error en impresión
Application.Wait (Now + TimeValue("0:00:01"))
' Imprimir
wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

Por dorgelis, · publicado el Lunes a las 23:501 día

No hay usuarios registrado para ver esta página.

Conéctate a Ayuda Excel

Ayuda con Macro, copiar un rango de celdas

Featured Replies

Archivado

Archivos

Cómo conservar la función AHORA()

Agenda v01

Gráficos de aranceles con colores difusos

Cómo crear hipervínculos inteligentes con fórmulas

Cambios en el Control Horario

Estadísticas de descargas

Mensajes

Error en Macro

Error en Macro

Error en Macro

Error en Macro

Error en Macro

Visualizado recientemente 0

Account

Navigation

Buscar