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.

Solucionado Pegar en la siguiente Celda vacia

Tema publicado en 'Macros y programación VBA' iniciado por manus, 15 Nov 2010.

Estado del tema:
Cerrado para nuevas respuestas
  1. manus

    manus Nuevo Usuario

    Registrado:
    8 Oct 2010
    Mensajes:
    27
    Me Gusta recibidos:
    0
    Buenas.

    quisiera saber como hacer una macro que me permita copiar los datos de una columna, y me los copie en otra columna, pero debajo de los datos que ya tengo, es decir en la primera celda vacia de esa columna.

    GRacias y Saludos.

    Adjuntos:

    • Libro2.rar
      Tamaño de archivo:
      6,6 KB
      Visitas:
      131
  2. RORO1981

    RORO1981 Usuario

    Registrado:
    28 Abr 2010
    Mensajes:
    218
    Me Gusta recibidos:
    9
    revisa el adjunto y comentas...

    saludos desde Chile

    Adjuntos:

    • Libro1.zip
      Tamaño de archivo:
      12,7 KB
      Visitas:
      431
  3. manus

    manus Nuevo Usuario

    Registrado:
    8 Oct 2010
    Mensajes:
    27
    Me Gusta recibidos:
    0
    Si eso es lo que quiero... gracias, pero una pregunta, donde cambio las celdas que quiero que copie o donde pegue, si por ejemlo quiero copiar de uno hoja diferente??
  4. RORO1981

    RORO1981 Usuario

    Registrado:
    28 Abr 2010
    Mensajes:
    218
    Me Gusta recibidos:
    9
    este es el codigo:

    Private Sub CommandButton1_Click()
    Sheets("hoja1").Select
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    With Sheets("Hoja2").Range("a" & Rows.Count).End(xlUp).Offset(1)
    .PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    End With
    End Sub

    para cambiar la hoja solo debes cambiar donde dice with sheets("hoja2") solo cambias "hoja2" por el nombre de la hoja que tu quieres.

    para cambiar la columna donde vas a copiar range("a" & rows.count) solo cambias la "a" por la letra de la columna que tu quieras...

    saludos desde chile
Estado del tema:
Cerrado para nuevas respuestas

Compartir esta página