Odenar alfabéticamente hojas de Excel
Encontré algo en Microsoft, pero no sé cómo aplicarlo. ¿Alguna ayuda?.
Acá va el código:
----------------------------------------
No hay una característica predefinida que realice esta tarea, pero te presentamos aquí una macro que hará el trabajo:
Sub AlphaSort()
Dim iCount As Integer
Application.ScreenUpdating = False
iCount = Sheets.Count
For i = 1 To iCount - 1
For j = i + 1 To iCount
If Sheets(j).Name
Sheets(j).Move Before:=Sheets(i)
End If
Next j
Next i
End Sub
----------------------------------------
¿Podrías decirme cómo usarlo?. O por lo menos dónde encontrar información al respecto...
Acá va el código:
----------------------------------------
No hay una característica predefinida que realice esta tarea, pero te presentamos aquí una macro que hará el trabajo:
Sub AlphaSort()
Dim iCount As Integer
Application.ScreenUpdating = False
iCount = Sheets.Count
For i = 1 To iCount - 1
For j = i + 1 To iCount
If Sheets(j).Name
Sheets(j).Move Before:=Sheets(i)
End If
Next j
Next i
End Sub
----------------------------------------
¿Podrías decirme cómo usarlo?. O por lo menos dónde encontrar información al respecto...
Respuesta de leosoft
Parece que este código no funciona bien, le debe faltar algo, te recomendaría que coloques este código dentro de una macro en tu archivo excel y con la ayuda que el mismo excel trae vas a encontrar el problema, tienes que tener instalado el editor de Visual basic para excel.
