Risolto ordinare fogli in ordine alfabetico

Klaus79

Nuovo utente
28 Luglio 2020
11
1
Libre Office
0
scusate ragazzi ho bisogno del vostro aiuto perchè sono alle prime armi : non capisco come fare ad organizzare i fogli di un lavoro in ordine alfabetico. Mi pare di capire di dover accedere alle "macro" ma non so come procedere. Qualcuno saprebbe darmi le istruzioni precise per piacere? grazie mille in anticipo a chi vorrà dedicarmi il suo tempo!
 

Marius44

VBA Expert
Moderatore
Expert
9 Settembre 2015
6.769
115
76
Catania
Excel2010
263
Ciao
Se i fogli non sono tanti (visto che non hai conoscenza di VBA) procedi in questo modo:
seleziona il tab (in basso nella schermata ci sono tutti i Fogli) del Foglio che vuoi spostare e, tenendo premuto il pulsante del mouse, spostalo dove vuoi e rilascia il pulsante.

Ciao,
Mario
 

rollis13

Utente assiduo
15 Novembre 2015
1.954
95
Cordenons
Office 2016 x32
128
Se dai un'occhiata proprio qui sotto nella zona "Similar threads " troverai un 'snippet code' preparato da ges @ges e che fa al tuo caso.
 

alfrimpa

VBA Expert
Supermoderatore
Expert
18 Dicembre 2015
28.865
1.845
66
Napoli
2019 Pro Plus
789
K @Klaus79 dichiara nel profilo LibreOffice per cui occorrerebbe una macro nel Basic di LibreOffice non in VBA.
 

Powerwin

VBA Expert
Expert
17 Marzo 2016
5.880
245
vicino a Milano
2019
174
non ho Libre Office ma prova questa
Java:
Sub Main
If (Not GlobalScope.BasicLibraries.isLibraryLoaded("Tools")) Then
   GlobalScope.BasicLibraries.LoadLibrary("Tools")
End If
Sheets = ThisComponent.Sheets
Names = Sheets.ElementNames
SortedList = BubbleSortList(Names) 'BubbleSortList is a macro in the Tools Library'
for i = 0 to UBound(SortedList)
   Sheets.MoveByName(SortedList(i), i)
next i
End Sub
Java:
 

Marco1975

Nuovo utente
18 Maggio 2018
19
1
toscana
office 365
0
Ciao fatto in 2 minuti.. si limita alla prima lettera del nome ma sembra funzionare

Ciao


Visual Basic:
Sub ordina()

Dim sh As Worksheet
Dim sh2 As Worksheet


For y = 1 To ThisWorkbook.Sheets.Count
    For i = 1 To ThisWorkbook.Sheets.Count - 1
        Set sh = Sheets(i)
        Set sh2 = Sheets(i + 1)
        If Left(sh.Name, 1) > Left(sh2.Name, 1) Then
            sh.Move , sh2
        End If
    Next i
Next y

End Sub
 

Powerwin

VBA Expert
Expert
17 Marzo 2016
5.880
245
vicino a Milano
2019
174
K @Klaus79 appena possibile dacci un feedback e se è ok metti il risolto alla discussione, se non sai come farlo, leggi nella mia firma i gli Avvisi dello Staff
 

alfrimpa

VBA Expert
Supermoderatore
Expert
18 Dicembre 2015
28.865
1.845
66
Napoli
2019 Pro Plus
789
Marco1975 @Marco1975

K @Klaus79 (che sembra sparito) dichiara LibreOffice e su questo il VBA non funziona.
 

alfrimpa

VBA Expert
Supermoderatore
Expert
18 Dicembre 2015
28.865
1.845
66
Napoli
2019 Pro Plus
789
Ma già solo scrivendo in questa discussione riceve le notifiche.

K @Klaus79

Sei nuovamente invitato a dare riscontro, come sancito dal regolamento, a questa discussione.
 

alfrimpa

VBA Expert
Supermoderatore
Expert
18 Dicembre 2015
28.865
1.845
66
Napoli
2019 Pro Plus
789
Ciao per completezza dovresti dire anche come hai risolto. cappello_saluta Potrebbe essere d'aiuto a qualcun altro.
La coppa è stata assegnata a Marius44 @Marius44 quindi è da ritenere che abbia adottato la soluzione da lui proposta ossia quella di spostare i fogli a mano.
 

genio66

Utente assiduo
Expert
25 Marzo 2017
1.807
115
Friuli
Libo exc-onl
215
Hai ragione Alfredo, non avevo notato che aveva già messo la coppa alla risposta di Marius44 @Marius44
 

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!