Macro ordina colonne+filtro automatico

Ciao a tutti,
avrei l'esigenza (ad ogni apertura di un file) di eseguire una macro ordinare la colonna A (in ordine Z-A) e seguentemente la colonna B (in ordine A-Z) e in seguito far sì che venga impostato in automatico il filtro alla globalità delle colonne presenti nel file.

Grazie!

Fabio
 

Informazioni domanda


Ultimo aggiornamento febbraio 27, 2018 Visualizzazioni 339 Si applica a:
Risposta
Ciao a tutti,
avrei l'esigenza (ad ogni apertura di un file) di eseguire una macro ordinare la colonna A (in ordine Z-A) e seguentemente la colonna B (in ordine A-Z) e in seguito far sì che venga impostato in automatico il filtro alla globalità delle colonne presenti nel file.

Grazie!

Fabio


Capito veramente poco.

Il codice qui sotto *dovrebbe* fare quanto chiedi per il Foglio1.

 

In un modulo standard:

 

Public Sub m()
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Worksheets("Foglio1")
    Application.ScreenUpdating = False
    With sh
        .Select
        .Range(.Range("A1").CurrentRegion.Address).Sort _
            Key1:=Range("A1"), Order1:=xlDescending, _
            Key2:=Range("B1"), Order2:=xlDescending, _
            Header:=xlYes, _
            OrderCustom:=1, MatchCase:=False, _
            Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal
        If Not .AutoFilterMode Then .Range("A1").AutoFilter
    End With
    Application.ScreenUpdating = True
    Set sh = Nothing
End Sub

 

Nel modulo di Questa_cartella_di_lavoro(o nel modulo ThisWorkbook per chi ha Excel pre 2010):

 

Private Sub Workbook_Open()
    Call m
End Sub

 

Prova un po'.

 

Qui puoi scaricare il file utilizzato per l'esempio:

http://www.maurogsc.eu/esempiforum13/ordinafiltrainavvio.zip

--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

Il problema è stato risolto?

Siamo spiacenti che questo non sia stato d'aiuto.

Fantastico! Grazie per aver scelto questa risposta.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento, ci aiuta a migliorare il sito.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento.