Macro che funziona solo su alcuni fogli

Question

Ciao a tutti,

Utilizzo il seguente codice per ordinare le righe solo per alcuni fogli. 

Public Sub Ordina()

    Application.ScreenUpdating = False

    With ActiveSheet

.Unprotect Password:=""

.Range("A6").Select

.Sort.SortFields.Clear

.Sort.SortFields.Add Key:=Range("A6:A50") _

, SortOn:=xlSortOnValues, _

Order:=xlAscending, _

DataOption:=xlSortNormal

With .Sort

   .SetRange Range("A5:K50")

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

Application.ScreenUpdating = True

.Protect Password:=""

    End With

End Sub

Visto che ho messo il pulsante per eseguire il codice nella barra di accesso rapido, involontariamente mi è capitato di eseguire la macro su alcuni fogli che non andava fatto. È possibile isolare l’esecuzione del codice solo per alcuni fogli? Grazie

Answer 1

Anche se non l'hai testata carissimo Mauro funziona benissimo. Si potrebbe aggiungere un msg che indichi nel caso la macro venisse eseguita su un foglio escluso da Case Is = "Foglio1", "Foglio3", "Foglio6"  "Il foglio è esluso da Ordina righe".

Ecco qui:

Public Sub Ordina()

     Application.ScreenUpdating = False

    With ActiveSheet

         Select Case .Name

             Case Is = "Foglio1", "Foglio3", "Foglio6"

                 .Unprotect Password:=""

                 .Range("A6").Select

                 .Sort.SortFields.Clear

                 .Sort.SortFields.Add Key:=Range("A6:A50") _

                 , SortOn:=xlSortOnValues, _

                 Order:=xlAscending, _

                 DataOption:=xlSortNormal

                 With .Sort

                     .SetRange Range("A5:K50")

                     .Header = xlYes

                     .MatchCase = False

                     .Orientation = xlTopToBottom

                     .SortMethod = xlPinYin

                     .Apply

                 End With

            Case Else

                MsgBox "Foglio non valido"

         End Select

         Application.ScreenUpdating = True

         .Protect Password:=""

     End With

 End Sub

Modifica il testo della MsgBox a tuo piacimento.

Buona domenica.

Answer 2

Grazie Mauro testata e modificata a mio piacimento. Sei stato gentilissimo e hai reso un servizio molto, molto utile.

Bene!

Sempre qui se hai bisogno.

Ciao e alla prossima.

Answer 3

Grazie Mauro testata e modificata a mio piacimento. Sei stato gentilissimo e hai reso un servizio molto, molto utile.

Answer 4

Anche se non l'hai testata carissimo Mauro funziona benissimo. Si potrebbe aggiungere un msg che indichi nel caso la macro venisse eseguita su un foglio escluso da Case Is = "Foglio1", "Foglio3", "Foglio6"  "Il foglio è esluso da Ordina righe".

Answer 5

Ciao a tutti,

Utilizzo il seguente codice per ordinare le righe solo per alcuni fogli. 

<cut>

Visto che ho messo il pulsante per eseguire il codice nella barra di accesso rapido, involontariamente mi è capitato di eseguire la macro su alcuni fogli che non andava fatto. È possibile isolare l’esecuzione del codice solo per alcuni fogli? Grazie

Prova :

Public Sub Ordina()

    Application.ScreenUpdating = False

    With ActiveSheet

        Select Case .Name

            Case Is = "Foglio1", "Foglio3", "Foglio6"

                .Unprotect Password:=""

                .Range("A6").Select

                .Sort.SortFields.Clear

                .Sort.SortFields.Add Key:=Range("A6:A50") _

                    , SortOn:=xlSortOnValues, _

                    Order:=xlAscending, _

                    DataOption:=xlSortNormal

                With .Sort

                    .SetRange Range("A5:K50")

                    .Header = xlYes

                    .MatchCase = False

                    .Orientation = xlTopToBottom

                    .SortMethod = xlPinYin

                    .Apply

                End With

        End Select

        Application.ScreenUpdating = True

        .Protect Password:=""

    End With

End Sub

Qui solo per Foglio1, Foglio3, Foglio6. Modifica e/o aggiungi i nomi dei tuoi foglio qui:

Case Is = "Foglio1", "Foglio3", "Foglio6"

Scritta direttamente qui e non testata.