1. Esta comunidad utiliza cookies. Si continuas utilizando nuestra comunidad 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

    Reg:
    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

    Reg:
    5 Jun 2012
    Mensajes:
    1.457
    Me Gusta recibidos:
    49
    Adjunta archivo ejemplo......normas del foro

    Un saludo,

    Tese
     
  3. abraxas1983

    abraxas1983 Nuevo Usuario

    Reg:
    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:
      48
  4. Macro Antonio

    Macro Antonio Incondicional de Ayuda Excel

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

    CÓDIGO:
    Es necesario iniciar sesión o registrarse para ver este contenido.
     
  5. Cacho R

    Cacho R Incondicional de Ayuda Excel

    Reg:
    18 Jul 2011
    Mensajes:
    1.303
    Me Gusta recibidos:
    34
    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

    Reg:
    12 May 2010
    Mensajes:
    5.698
    Me Gusta recibidos:
    1.094
    ¡ 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

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

    Cacho R Incondicional de Ayuda Excel

    Reg:
    18 Jul 2011
    Mensajes:
    1.303
    Me Gusta recibidos:
    34
    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

    Reg:
    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

    Reg:
    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