Apri l'editor vba di excel. Fai doppio click sul foglio 1 e associagli questo codice
Ogni volta che aggiungerai/modificherai/eliminerai righe dal foglio 1, il foglio 2 verrà aggiornato con le voci univoche di conseguenza.codice:Private Sub Worksheet_Change(ByVal Target As Range) 'copio il contenuto della colonna A del foglio 1 nella colonna C del foglio 2 Sheets(1).Range("A:A").Copy Sheets(2).Range("C1") 'ordino le voci copiate in senso decrescente al fine di poter applicare il filtro avanzato Sheets(2).Range("C:C").Sort Key1:=Sheets(2).Columns("C"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal 'filtro e copio il risultato nella colonna B del foglio 2 Sheets(2).Range("C1", Sheets(2).Range("C65536").End(xlUp)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets(2).Range("B1"), Unique:=True 'cancello tutto dalla colonna C Sheets(2).Range("C:C").Clear End Sub![]()

Rispondi quotando