è chiaro che se tutti i dati sono un uinco foglio il filtro che applico funziona perfettamente
La interpreto come un SI in risposta alla mia domanda, e a questo punto e’ superflua pure la domanda di Ricky.
Prova in questo modo:
-dal tuo file excel, Alt-F11; ti si apre l’ editor delle mecro
-Menu /Inserisci /Modulo
-copia questo codice e incollalo su frame di dx
- Codice: Seleziona tutto
Sub Many2one()
'
CopyCol = "A2:F2" '<<< Le Colonne che vanno copiate
' Modificare se serve, ma lasciare riga=2
AWb = ActiveWorkbook.Name
Sheets(1).Copy
For I = 2 To Workbooks(AWb).Worksheets.Count
CshR = Workbooks(AWb).Sheets(I).UsedRange.Rows.Count
Workbooks(AWb).Sheets(I).Range(CopyCol).Resize(CshR).Copy _
Destination:=Range("A" & ActiveSheet.UsedRange.Rows.Count)
Next I
End Sub
Torna su excel e lancia la macro:
-Alt-F8, seleziona la macro Many2one dall’ elenco che ti propone, premi Esegui
Dovrebbe crearti un secondo file con, in sequenza, il contenuto di tutti i fogli; salvalo e lavoraci con i tuoi filtri.
Fai sapere, ciao