1. AyudaExcel utiliza cookies. Si continuas utilizando AyudaExcel, estás aceptando la utilización de nuestras cookies. Más información.
  2. ¡Bienvenid@ a AyudaExcel! El foro más visitado sobre Excel en habla hispana.

    Si esta es tu primera visita, asegúrate de revisar los temas de la sección Utilización y Funcionamiento para familiarizarte con las funciones del foro. Si deseas publicar mensajes, será necesario que te Registres para que puedas dejar respuestas y crear tus propios mensajes, recuerda que es gratuito.

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

Tema publicado en 'Macros y programación VBA' iniciado por abraxas1983, 1 Dic 2012.

  1. abraxas1983

    abraxas1983 Nuevo Usuario

    Registrado:
    26 Nov 2012
    Mensajes:
    7
    Me Gusta recibidos:
    0
    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.
  2. tese1969

    tese1969 Incondicional de Ayuda Excel

    Registrado:
    5 Jun 2012
    Mensajes:
    1.423
    Me Gusta recibidos:
    42
    Adjunta archivo ejemplo......normas del foro

    Un saludo,

    Tese
  3. abraxas1983

    abraxas1983 Nuevo Usuario

    Registrado:
    26 Nov 2012
    Mensajes:
    7
    Me Gusta recibidos:
    0

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

    Adjuntos:

    • Book24.xls
      Tamaño de archivo:
      46,5 KB
      Visitas:
      47
  4. Macro Antonio

    Macro Antonio Incondicional de Ayuda Excel

    Registrado:
    12 May 2010
    Mensajes:
    5.614
    Me Gusta recibidos:
    1.036
    Esta instrucción inserta tantas filas como indica I9 con el dato de la celda D7 a partir de la fila 16.

    CÓDIGO:
    For Fila = 16 To [I9] + 15: Range("A" & Fila) = [D7]: Next
  5. Cacho R

    Cacho R Usuario Activo

    Registrado:
    18 Jul 2011
    Mensajes:
    1.302
    Me Gusta recibidos:
    33
    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.
  6. Macro Antonio

    Macro Antonio Incondicional de Ayuda Excel

    Registrado:
    12 May 2010
    Mensajes:
    5.614
    Me Gusta recibidos:
    1.036
    ¡ Hombre ! Cuanto tiempo Sr.Cacho:

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

    A sus pies caballero.
  7. abraxas1983

    abraxas1983 Nuevo Usuario

    Registrado:
    26 Nov 2012
    Mensajes:
    7
    Me Gusta recibidos:
    0
    Gracias señores, ya logre lo que buscaba.
  8. Cacho R

    Cacho R Usuario Activo

    Registrado:
    18 Jul 2011
    Mensajes:
    1.302
    Me Gusta recibidos:
    33
    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:
  9. abraxas1983

    abraxas1983 Nuevo Usuario

    Registrado:
    26 Nov 2012
    Mensajes:
    7
    Me Gusta recibidos:
    0
    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.

    Adjuntos:

    • Book35.xls
      Tamaño de archivo:
      16,5 KB
      Visitas:
      23
  10. HDA1984

    HDA1984 Nuevo Usuario

    Registrado:
    21 Ago 2013
    Mensajes:
    2
    Me Gusta recibidos:
    0
    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

Compartir esta página