Ver originales (Francés)

Copia hasta la última línea llena

Resuelto
touroul Mensajes publicados 520 Fecha de registro   Estado Miembro Última intervención   -  
touroul Mensajes publicados 520 Fecha de registro   Estado Miembro Última intervención   -
Hola foro

Busco, a través de una macro, copiar en el portapapeles el contenido de las celdas A6:Ax
Ax es la última fila que contiene texto en la parte inferior de mi tabla.

¿Puedo pedir su ayuda? 

Sub Macro1()
 Range("A3:Ax").Select
 Selection.Copy
End Sub


¡Gracias de antemano por esto!

Configuraión: Windows / Excel 2010 / Firefox 42.0

2 respuestas

  1.
    Kuartz Mensajes publicados 852 Fecha de registro   Estado Miembro Última intervención   65
     
    Hola hola,

    En primer lugar, hay que definir cuál es la última fila de su tabla. Almacenaremos este valor en una variable. Luego, copiaremos las filas en función de esta variable.

    Vamos allá: 

    Sub Macro1() 'Inicio de la macro Dim DL As Long 'Definición de la variable DL = Cells(Application.Rows.Count, 1).End(xlUp).Row 'Defino la última fila cuyo valor en la columna A no está vacío Range("A3:A" & DL).Copy 'Copio las filas de A3 a la última fila (no es necesario seleccionar, a menos que realmente lo quieran, en ese caso, agreguen la línea select en lugar de Copy y luego Selection.Copy End Sub 'Fin de la macro


    Saludos.
    5