You are here:Home-Domande su Excel VBA e MACRO-un nome per tanti fogli
un nome per tanti fogli2019-03-20T05:54:15+01:00

Home Forum Domande su Excel VBA e MACRO un nome per tanti fogli

Visualizzazione 3 filoni di risposte
  • Autore
    Post
    • Avatargiorgioantonio
      Partecipante
        Post totali: 436

        Salve a tutti,

        in questa macro che posto richiede il nome
        del foglio per essere eseguita.
        da sistemare c’è solo il nome del foglio generico
        in quanto se c’è un modo per generalizzare il nome del foglio
        farei a meno di ripetere la stessa macro.
        questa macro in più fogli e come posizione
        avrà lo stesso range di selezione,
        e siccome richiede il nome del foglio
        cosa si può ssostituire per rendere utile
        a tutti
        Sub Macro4()
        dim i as integer
        i=[f1]
        ActiveCell.Select
        Range(“F12:CS12”).Select
        ActiveCell.Range(“A1:CN” & i).Select
        ActiveWorkbook.Worksheets(“V”).Sort.SortFields.Clear
        ActiveWorkbook.Worksheets(“V”).Sort.SortFields.Add Key:=ActiveCell.Offset(0, 91).Range(“A1:A” & i), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
        With ActiveWorkbook.Worksheets(“V”).Sort
        .SetRange ActiveCell.Range(“A1:CN” & i)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
        End With
        End Sub
        Grazie dell’aiuto

        • Questo topic è stato modificato 1 anno, 2 mesi fa da Avatargiorgioantonio. Motivo: aggiunto dati
      • sidsid
        Moderatore
          Post totali: 749

          Metti la macro in un modulo standard, e al posto del nome del foglio puoi usare
          ActiveSheet.Name
          In questo modo il codice viene eseguito per il foglio attivo

        • Avatargiorgioantonio
          Partecipante
            Post totali: 436

            ActiveWorkbook.Worksheets(“ActiveSheet.Name”).Sort.SortFields.Clear

            VA BENE COSI’?

          • sidsid
            Moderatore
              Post totali: 749

              senza virgolette

          Visualizzazione 3 filoni di risposte
          • Devi essere connesso per rispondere a questo topic.