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