Jump to content

Seleccionar ultima celda con datos y coopiarla


Go to solution Solved by Antoni,

Recommended Posts

Buenas tardes, de abte manos muchas gracias a la comunidad por la ayuda

 

quisiera seleccionar la ultima celda con datos y copiarla para posteriormente pegarla en una hoja nueva, este es mi codigo 

 

Sub Copiar_Valores_Contabilidad()
        
        
        Sheets("Extraer_Rutas").Select
        
        
        For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        ActiveSheet.Range("A" & i).Select
        Selection.Copy
        
        Next
        
        Sheets("Rutas_Fs").Select
        ActiveSheet.Range("A2").Select
        ActiveSheet.Paste
        
       
       
        
        End Sub

 

pero lo que hace el codigo es que me selecciona el ultimo dato y lo pega  y quiere que tome es toda la seleccion de datos, agradezco su ayuda

Link to comment
Share on other sites

  • Solution
Sub Copiar_Valores_Contabilidad()
With Sheets("Extraer_Rutas")
   .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row).Copy Sheets("Rutas_Fs").Range("A2")
End With
End Sub

 

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

Privacy Policy