Вопрос : VBA: Копируя данные в новые workbooks и сохранять архивы

(См., что приложение 1)

I am пытает написать макрос автоматически для того чтобы создать и сохранить новый уникально workbook для каждой персоны на моем электронная таблица.

например, в MacroQuestion.xls, я хотел бы:
1. отборные, котор клетки в A2 к C9 основали на колонке a факта имеет такое же имя (Адам) от A2 к A9. Мне нужна гибкость для формулы автоматически знать для того чтобы принять все новые линии в случае если я добавляю дополнительные линии расходов. IE: Всегда не будет рядками 2 до 9 перечисляют расходы Адам. Могло быть рядками 3 к экземпляру A2 50.
2. к C9 в новый workbook.
3. автоматически за исключением нового workbook к настольный компьютер как Adam.XLS.
4. автоматически делает отдельно архив для других людей также. Так, бежать макрос раз давал бы мне «Adam.xls, Mark.xls, Jenny.xls, и Erin.xls» file.

Thank вы для вашей помощи!

Erin class= " lastRow
>Attachments " имени " class= class= " значение "
>
filename " class= >MacroQuestion.xls (31 KB) яваскрипт " href= " " attachmentDetails class= (тип архива детали)
>Attachment 1
" описания " class=
class=
>
class=

Ответ : VBA: Копируя данные в новые workbooks и сохранять архивы

Попытайтесь это.
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 x ()
 
Затемните rng как ряд, ws как рабочий лист

Application.DisplayAlerts = ложно

С Sheet1
    Sheets.Add (). Имя = «temp»
    . Ряд («A1». Ряд («a» & Rows.Count). Конец (xlUp))действие .AdvancedFilter: =xlFilterCopy, CopyToRange: =Sheets («temp»). Ряд («A1»), уникально: =True
     Для каждого rng в листах («temp»). Ряд («A2», листы («temp»). Ряд («A2»). Конец (xlDown))
        Если UCase, то (правый (rng, 5)) <> «ИТОГ» после этого
            Установите ws = Sheets.Add (поже: =Sheets (Sheets.Count))
            ws. Имя = rng
            .AutoFilterMode = ложно
            . Поле ряда («A1») .AutoFilter: =1, Criteria1: =rng & «*»
            .AutoFilter.Range.Copy покрывает (rng. Текст). Ряд («A1»)
            Листы (rng. Текст). Движение
            ActiveWorkbook.Close SaveChanges: =True, Filename: = " C:\Users\Stephen\Desktop\ " & rng & «.xls»
        Закончитесь если
    Следующее rng
    .AutoFilterMode = ложно
    Листы («temp»). Delete
Конец с
     
Application.DisplayAlerts = True

Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us