Condividi:        

Ordina Dati

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Ordina Dati

Postdi Fabiolan » 04/04/17 11:07

Ciao ragazzi.
Io ho registrato la seguente macro.
Come si modifica per renderla attivabile su tutti i fogli? (non intendo contemporaneamente, ma solo che funziona sia sul foglio 1 che 2 che 3 etc.)
Codice: Seleziona tutto
Sub Ordina()
'
' Ordina Macro
'

'
    ActiveWorkbook.Worksheets("9").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("9").Sort.SortFields.Add Key:=Range("A8:A1290"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("9").Sort
        .SetRange Range("A7:G1290")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub


Grazie
Fabiolan
Utente Junior
 
Post: 65
Iscritto il: 12/02/17 19:19

Sponsor
 

Re: Ordina Dati

Postdi Marius44 » 04/04/17 15:08

Ciao
a me funziona sostituendo Worksheets("9") con ActiveSheet
Ovviamente dovrai associare la macro (che ritengo sia in Modulo standard) ad un Evento di ogni Foglio ovvero ad un Pulsante su ogni Foglio.

Prova e fai sapere.
Ciao,
Mario
Marius44
Utente Senior
 
Post: 655
Iscritto il: 07/09/15 22:00

Re: Ordina Dati

Postdi Fabiolan » 04/04/17 17:50

Funziona Grazie!
Fabiolan
Utente Junior
 
Post: 65
Iscritto il: 12/02/17 19:19


Torna a Applicazioni Office Windows


Topic correlati a "Ordina Dati":


Chi c’è in linea

Visitano il forum: Nessuno e 39 ospiti