You are here:--un nome per tanti fogli
un nome per tanti fogli 2019-03-20T05:54:15+02:00

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

  • Autore
    Articoli
  • Avatargiorgioantonio
    Partecipante
      Post totali: 322
      #8130 |

      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 argomento è stato modificato 1 mese, 1 settimana fa da Avatar giorgioantonio. Ragione: aggiunto dati
    • sidsid
      Moderatore
        Post totali: 639

        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: 322

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

          VA BENE COSI’?

        • sidsid
          Moderatore
            Post totali: 639

            senza virgolette

          Devi essere loggato per rispondere a questa discussione.

          Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

          Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

          Chiudi