Macro ordina colonne+filtro automatico

Question

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

Answer 1

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