In questo articolo imparerai come ordinare automaticamente più fogli utilizzando il codice VBA.

{vuoto} D) Vorrei sapere come posso ordinare i dati su più fogli di lavoro (non tutti).

[.underline] # Facciamo un esempio: # Abbiamo 3 fogli (gennaio, febbraio e marzo) e di essi solo il foglio marzo deve essere ordinato automaticamente quando inserisci le informazioni nella colonna A.

Fare clic sulla scheda Sviluppatore Dal gruppo Codice, selezionare Visual Basic

img1

Immettere il codice seguente in questa cartella di lavoro (non in alcun foglio). Questo eseguirà il codice in tutti i fogli di lavoro.

Private Sub Workbook_SheetChange (ByValSh As Object, ByVal Target As Range)

In caso di errore Riprendi Avanti

Seleziona Case ActiveSheet.Name

Caso “Jan”, “Feb”

Case Else

If Not Intersect (Target, Range (“A: A”)) Is Nothing Then

Range (“A1”). Sort Key1: = Range (“A2”), _

Order1: = xlAscending, Header: = xlYes, _

OrderCustom: = 1, MatchCase: = False, _

Orientamento: = xlTopToBottom

End If

Fine Seleziona

End Sub

img2

In questo modo, puoi facilmente ordinare i dati in base a una colonna specifica in più fogli mentre digiti le informazioni. Questo è un ottimo modo per risparmiare tempo e assicurarti che il rapporto abbia l’aspetto che vorresti vedere.