A continuación, le indicamos cómo asignar a sus tablas un orden alfabético.
Ordenar los datos alfabéticamente en sus listas no es un problema. Pero, ¿cómo lo haces cuando quieres poner las hojas de trabajo en orden alfabético de acuerdo con sus nombres?
La siguiente ilustración muestra un registro de hoja con una serie de hojas de trabajo. Deben estar ordenados alfabéticamente para que sean más fáciles de encontrar.
3
Con unas pocas hojas, puede realizar el trabajo manualmente de forma fiable. Con muchas hojas, esto se vuelve rápidamente difícil, lento y confuso. La siguiente macro le ayudará aún más:
Sub SortBlaetter ()
Dim Zaehler1 como entero, Zaehler2 como entero
Dim Nombre como cadena
Nombre = ActiveSheet.Name
Para Zaehler1 = 1 a hojas de trabajo.
Para Zaehler2 = Zaehler1 a hojas de trabajo.
Si UCase (Worksheets (Counter2) .Name) <UCase (Worksheets (Counter1) .Name) Entonces
Hojas de trabajo (Zaehler2). Mover antes: = Hojas de trabajo (Zaehler1)
Terminara si
Siguiente contador2, contador1
Hojas de trabajo (Nombre) .Activar
End Sub
La macro ordena las hojas de trabajo del libro activo en orden alfabético ascendente. La siguiente figura muestra cómo se ve el libro de trabajo de muestra después de haber iniciado la macro:
Sugerencia: si desea saber cómo ingresar e iniciar macros en Excel, encontrará una breve descripción aquí: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
