Como ordenar varias hojas

Hola perdita!
Mi problema es el siguiente:
Tengo un archivo de excel que contiene 20 hojas (llámese así a cada solapa en su interior), cada hoja tiene dos columnas, una con elementos y la otra con su respectiva cantidad. Lo que yo necesito es poder ordenar de menor a mayor cada hoja. Lo que hago actualmente es ordenar hoja por hoja, pero... ¿hay alguna forma de ordenar todas las hojas juntas?
Te agradezco tu tiempo.
Ariel
1

1 Respuesta

12.875 pts.
Simplemente copia esta macro, si los datos que quieres ordenar inician en "A1" espero te funciona, sino cambia la celda en la que tienes los datos
_______________________
Sub ordenar_registros_varias_hojas()
Dim hoja As Worksheet
Dim h As Integer
For h = 1 To Worksheets.Count
Set hoja = Worksheets(h)
Worksheets(h).Select
Range("A1").Activate
ActiveCell.CurrentRegion.Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Next h
End Sub
_________________________

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas