VBA EXCEl - Ordenar hojas de Excel automáticamente.

VBA EXCEl - Ordenar hojas de Excel automáticamente.

   20 abril       Luis Reyes

---

 

Excel se ha convertido en una herramienta muy importante en la actualidad, que se ocupa en varios ámbitos ocupacionales, debido a esto necesitamos crear varias hojas en nuestro libro de Excel. 

Por lo tanto, en algunas ocasiones nos vemos en la necesidad de ordenar nuestras hojas. y es por este motivo que les comparto estas macros que nos van a ayudar a ordenar nuestras hojas.

Para ordenar de manera Ascendente

Sub OrdenarHojas_Ascendente()
	For i = 1 To Sheets.Count
		For x = i + 1 To Sheets.Count
			If UCase(Sheets(i).Name) > UCase(Sheets(x).Name) Then
				Sheets(x).Move Before:=Sheets(i)
			End If
		Next x
	Next i
End Sub

Para ordenar de manera descendente

Sub OrdenarHojas_Descendente()
	For i = 1 To Sheets.Count
		For x = a + 1 To Sheets.Count
			If UCase(Sheets(i).Name) < UCase(Sheets(x).Name) Then
				Sheets(x).Move Before:=Sheets(i)
			End If
		Next x
	Next i
End Sub