Pytanie : VBA: Kopiowy dane w nowy workbooks i oszczędzanie the kartoteka

(Widzieć doczepianie 1)

I am Makro- automatycznie i save nowy unikalny workbook dla unikalny osoba na mój spreadsheet.

For przykład, w MacroQuestion.xls, I chcieć:
1. Wybrany komórka w A2 C9 opierać się na the fact Kolumna A mieć the ten sam imię (Adam) od A2 A9. I potrzebować the elastyczność dla the formuła automatycznie wszystkie the nowy linia jeśli I dodawać dodatkowy linia koszt. IE: Ono zawsze być rząd 2 9 który spisywać Adam koszt. Ono można rząd 3 50.
2. Odbitkowy A2 C9 w nowy workbook.
3. Automatycznie oprócz the nowy workbook the desktop jako Adam.XLS.
4. Automatycznie robić oddzielny kartoteka dla the inny ludzie także. W Ten Sposób, the Makro- makro- dać "Adam.xls, Mark.xls, Jenny.xls, i Erin.xls" file.

Thank ty dla twój pomoc!

Erin
Attachments:
MacroQuestion.xls (31 KB) (Kartoteka Typ Szczegół)
Attachment 1

Odpowiedź : VBA: Kopiowy dane w nowy workbooks i oszczędzanie the kartoteka

Próbować to.
(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:

Okręt podwodny x ()
 
Ciemnawy rng Jako Pasmo, ws Jako Worksheet

Application.DisplayAlerts = Fałszywy

Z Sheet1
    Sheets.Add (). Imię = "zastępca"
    . Pasmo ("A1". Pasmo ("A" & Rows.Count). Końcówka (xlUp)).AdvancedFilter Akcja: =xlFilterCopy, CopyToRange: =Sheets ("zastępca"). Pasmo ("A1"), Unikalny: =True
     Dla Zastępca rng W Prześcieradło ("zastępca"). Pasmo ("A2", Prześcieradło ("zastępca"). Pasmo ("A2"). Końcówka (xlDown))
        Jeżeli UCase (Prawy (rng, 5)) <> "SUMA" Wtedy
            Set ws = Sheets.Add (Póżniej: =Sheets (Sheets.Count))
            ws. Imię = rng
            .AutoFilterMode = Fałszywy
            . Pasmo ("A1") .AutoFilter pole: =1, Criteria1: =rng & "*"
            .AutoFilter.Range.Copy Ciąć na arkusze (rng. Tekst). Pasmo ("A1")
            Prześcieradło (rng. Tekst). Ruch
            ActiveWorkbook.Close SaveChanges: =True, Filename: = " C:\Users\Stephen\Desktop\ " & rng & ".xls"
        Kończyć Jeżeli
    Następny rng
    .AutoFilterMode = Fałszywy
    Prześcieradło ("zastępca"). Deleatur
Końcówka Z
     
Application.DisplayAlerts = Prawdziwy

Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us