VBA: Dati di copiatura nei nuovi libri di esercizi e nel salvataggio delle lime - Problemi e soluzioni alle problematiche legate a Network

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

Sub la x ()
 
Oscurare il rng come gamma, WS come manuale

Application.DisplayAlerts = falso

Con Sheet1
    Sheets.Add (). Nome = “temp„
    . Gamma (“A1„. Gamma (“A„ & Rows.Count). Estremità (xlUp))azione di .AdvancedFilter: =xlFilterCopy, CopyToRange: =Sheets (“temp„). Gamma (“A1„), unica: =True
     Per ogni rng in strati (“temp„). Gamma (“A2„, strati (“temp„). Gamma (“A2„). Estremità (xlDown))
        Se UCase (giusto (rng, 5)) <> “TOTALE„ allora
            Regolar la WS = Sheets.Add (dopo: =Sheets (Sheets.Count))
            la WS. Nome = rng
            .AutoFilterMode = falso
            . Campo della gamma (“A1„) .AutoFilter: =1, Criteria1: =rng & “*„
            .AutoFilter.Range.Copy riveste (rng. Testo). Gamma (“A1„)
            Strati (rng. Testo). Movimento
            ActiveWorkbook.Close SaveChanges: =True, nome di schedario: = " C:\Users\Stephen\Desktop\ " & rng & “.xls„
        Concluder se
    Rng seguente
    .AutoFilterMode = falso
    Strati (“temp„). Cancellazione
Estremità con
     
Application.DisplayAlerts = allineano

Sommergibile dell'estremità

Questione : VBA: Dati di copiatura nei nuovi libri di esercizi e nel salvataggio delle lime

Risposta : VBA: Dati di copiatura nei nuovi libri di esercizi e nel salvataggio delle lime