Foro Excel

TodoExcel · por **TodoExcel** » 13 Oct 2011 19:38

Con esta macro podrás ordenar todas las hojas de un libro de forma alfabética (ideal para cuando hay muchas hojas, o cuando los nombres de las hojas son números).

Código: Seleccionar todo: Public Sub OrdenarHojas(ByVal Desde As Long, ByVal Hasta As Long) Dim i As Long Dim j As Long For i = Desde To Hasta - 1 For j = i + 1 To Hasta If VBA.Val(Sheets(i).Name) > VBA.Val(Sheets(j).Name) Then Sheets(j).Move before:=Sheets(i) End If Next j Next i End Sub

Salu2.xls

Adrian · por **Adrian** » 14 Oct 2011 10:52

Hola, en unos de mis primeros aportes de exceluciones puse algo similar solo que ordenaba alfabeticamente y por color de fondo de la orejilla de la hoja.

Foro Excel

Ordenar hojas alfabéticamente

Ordenar hojas alfabéticamente

Re: Ordenar hojas alfabéticamente

¿Quién está conectado?