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

(Vedere il collegamento 1)

I provare a scrivere una macro per generare e conservare automaticamente un nuovo libro di esercizi unico per ogni persona sul mio foglio elettronico.

per esempio, in MacroQuestion.xls, vorrei: Il
1. che le cellule prescelte in A2 a C9 hanno basato sulla colonna A di fatto ha lo stesso nome (Adam) da A2 a A9. Ho bisogno della flessibilità affinchè la formula sappia automaticamente per prendere tutte le nuove linee nel caso aggiunga le linee supplementari di spese. IE: Non sarà sempre file 2 - 9 che elenchino le spese del Adam. Ha potuto essere file 3 alla copia A2 di 50.
2. a C9 in un nuovo libro di esercizi. Il
3. salvo il nuovo libro di esercizi al tavolo come Adam.XLS.
4. fa automaticamente automaticamente una lima separata per l'altra gente pure. Così, fare funzionare la macro una volta mi dare “un Adam.xls, un Mark.xls, un Jenny.xls e un Erin.xls„ file.

Thank voi per il vostro aiuto!

Erin class= " lastRow del
>Attachments " di nome " del class= del class= " valore " del
il

il nome di schedario " del class= di >MacroQuestion.xls " fileSize " > (31 Kb) il Javascript " del href= " " dei attachmentDetails del class= di (tipo di lima particolari)
>Attachment 1
" di descrizione " del class= del
il class= di
del >
class= del

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

Provare questo.
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à
Altre soluzioni  
 
programming4us programming4us