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...
1 respuesta
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.
