Cosa che non succede sul Prg2 (unico file), essendo uno lo trova e lo sostituisce su richiesta.
Come funziona attualmente il programma che suddivide
1ª elaborazione 580 righe crea 5 file da 100 fogli e 1 da 80 nominandoli Confronto100, Confronto200... Confronto600
2° elaborazione (con 2 righe) unico file Confronto100 con 2 fogli va a sostituire solo Confronto100, gli altri non vengono toccati.
Quindi se vuoi cancellare automaticamente i file nella cartella Palestra devi aggiungere solo questa macro
- Codice: Seleziona tutto
Sub CancellaFile()
URE = Worksheets("Elenco").Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To URE
NFileC = Worksheets("Elenco").Cells(i, 1).Value
If NFileC <> "ConfrontoTutti.xls" Then Kill "C:\Palestra\" & NFileC
Next
End Sub
e all'inizio del programma nel punto indicato aggiungere solo la riga di codice chiamat macro
- Codice: Seleziona tutto
Sub PrgConfr()
Application.ScreenUpdating = False '<<<< esistente
Application.Calculation = xlManual '<<<< esistente
If Dir("C:\Palestra", vbDirectory) <> "" Then Call CancellaFile '<<<<<<<<< riga da aggiungere
UR1 = Worksheets("DatiConfronto").Cells(Rows.Count, 1).End(xlUp).Row '<<<< esistente
Ciao
P.s. Hai provato con tutte le righe (600 e oltre) ad avviare la macro ControntaPrg2 (tutti) e creare una cartella con oltre 600 fogli all'interno? - Fai sapere