Macro para copiar datos de una celda y pegarlos la cantidad de veces indicada en otra celda

[abraxas1983]

Hola.

Solicito su apoyo para crear una macro que me permita copiar el contenido de una celda y pegarlo la cantidad de veces que se indique en otra celda. Espero ser claro.

[tese1969]

Adjunta archivo ejemplo......normas del foro

Un saludo,

Tese

[abraxas1983]

Adjunta archivo ejemplo......normas del foro

Un saludo,

Tese

Gracias Tese, adjunto un archivo de muestra, escribi lo que necesito en comentario la celda I9

Book24.xls

[Antoni]

Esta instrucción inserta tantas filas como indica I9 con el dato de la celda D7 a partir de la fila 16.

For Fila = 16 To [I9] + 15: Range("A" & Fila) = [D7]: Next[/CODE]

[Guest Cacho R]

Hola! abraxas1983 (y Gran Antoni).

Otra opción sería un código que incluya lo siguiente:

Cells(Rows.Count, "b").End(xlUp).Offset(1).Resize([i9]) = [d7]

Saludos, Cacho R.

[Antoni]

¡ Hombre ! Cuanto tiempo Sr.Cacho:

Siempre se me atragantó "Resize", pero me rindo a la evidencia.

A sus pies caballero.

[abraxas1983]

Gracias señores, ya logre lo que buscaba.

[Guest Cacho R]

... Siempre se me atragantó "Resize" ...

En modo alguno pretendo afectar su derecho al libre albedrío: ¡Válgame Dios!...

Sin embargo... ¡Qué quiere que le diga, mi estimado!

Uno tiene derecho a atragantarse con tantas cosas, pero: ¿En serio que Ud se atraganta con un Resize?

¡¡¡Dios le conserve la salud, m'hijo, porque de la digestión parece que anda bastante bien!!!

¡Lo felicito! :eagerness:

[abraxas1983]

Hola de nuevo señores, molestandolos de una vez mas, espero me puedan ayudar con los siguiente, necesito cortar la informacion de una hoja a otra pero que la pegue por debajo de la ultima linea, adjunto el archivo con la explicacion. Gracias de antemano.

Book35.xls

[HDA1984]

Hola Excelente Código,

Existe la posibilidad de que los copie en otra hoja. Ej. Si en la celda C2 coloco el nombre de una hoja “MyU” que me pase repita tal cuál como lo hace el código pasas pero en la hoja MyU.

Gracias