Macro copiar últimos 20 datos
¿Hola Mucho gusto
me puedes ayudar con una macro la cual debe copiar los últimos 20 datos de una hoja de excel y que los pegue en otra hoja diferente pero que los copie al revez? Por ejemplo tengo 20 números en la columna A del 1 al 20 y quiero que los copie y los pegue del 20 al 1 se puede sin tener que copiar uno por uno y sin tener que utilizar la herramienta de ordenar por ascendencia
me puedes ayudar con una macro la cual debe copiar los últimos 20 datos de una hoja de excel y que los pegue en otra hoja diferente pero que los copie al revez? Por ejemplo tengo 20 números en la columna A del 1 al 20 y quiero que los copie y los pegue del 20 al 1 se puede sin tener que copiar uno por uno y sin tener que utilizar la herramienta de ordenar por ascendencia
Respuesta de snaki Fco
1
Sheets("Hoja1").select
range("A1").end(xldow).select
activecell.offset(-20,0).select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Hoja1").select
Range("A1").End(xlDown).Offset.Select
ActiveSheet.Paste
Application.CutCopyMode = False
Prueba con eso.
range("A1").end(xldow).select
activecell.offset(-20,0).select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Hoja1").select
Range("A1").End(xlDown).Offset.Select
ActiveSheet.Paste
Application.CutCopyMode = False
Prueba con eso.
En la segunda linea es
range("A1").end(xldown).select
range("A1").end(xldown).select
