Jump to content

Seleccionar ultima celda con datos y coopiarla


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

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy