Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
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