worksheet generico

Hai un problema con Excel?

Nuova discussione

worksheet generico
di madjok (utente non iscritto) data: 16/11/2016 11:55:32
Ciao a tutti,
io ho bisogno di generalizzare il worksheet cosi da poter usare questo pezzo di macro sul generico foglio che di volta in volta è attivo. Mentre ora lavora solamente sul foglio "Foglio Fondi".
Grazie mille

ActiveWorkbook.Worksheets("Foglio Fondi").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Foglio Fondi").Sort.SortFields.Add Key:=Range( _
        "D2:D500"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Foglio Fondi").Sort.SortFields.Add Key:=Range( _
        "O2:O500"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Foglio Fondi").Sort
        .SetRange Range("A1:DK500")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

di Albatros54 data: 16/11/2016 12:18:34
prova con il codice sotto da inserire in un modulo

Set wksh = ActiveSheet
wksh.Sort.SortFields.Clear
    wksh.Sort.SortFields.Add Key:=Range( _
        "D2:D500"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
   wksh.Sort.SortFields.Add Key:=Range( _
        "O2:O500"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With wksh.Sort
        .SetRange Range("A1:DK500")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Vuoi Approfondire?