Ciao
mi permetto suggerire:
al posto di quel tabellone pieno di formule (Riepilogo giorni dip) che appesantisce notevolmente il già corposo documento, perchè non prendere da ogni singolo foglio (col.A) il codice, alimentare una collection che impedisce la duplicazione, e poi stampare quella?
Quanto segue elenca in "Riepilogo giorni dip", colonna A (a partire da riga6) i codici univoci di tutti i fogli.
Laddove occorrano i nomi o le commesse si valuterà un'altra colonna dei vari fogli
saluti
Sub UniqueList()
Dim r As Range
Dim rng As Range
Dim ar As Variant
Dim var As Variant
With CreateObject("scripting.dictionary")
For j = 1 To Sheets.Count
If Left(Sheets(j).Name, 9) <> "Riepilogo" Then
ur = Sheets(j).Range("A" & Rows.Count).End(xlUp).Row
For Each rng In Sheets(j).Range("A5:A" & ur)
var = .Item(rng.Value)
If .Item(rng.Value) = "codice" Then Stop
Next
ar = .Keys
End If
Next j
End With
Worksheets("Riepilogo giorni dip").Range("A6").Resize(UBound(ar) + 1) = Application.Transpose(ar)
End Sub
Eventualmente effettuare il sort
[Modificato da dodo47 06/04/2020 17:23]
Domenico
Win 10 - Excel 2016