2013-09-04 12 views
0

У меня есть ежемесячная книга с деталью около 37000 строк и скажем 350 клиентов.
Клиенты должны получить подробную информацию в отдельной книге, которую я буду прикреплять со своей пастельной накладной.создать новую книгу от выбора в excel

Я хочу макрос:

  1. После выбора диапазона колебаний клиентов.
  2. Открыть новую книгу и вставьте выделение в A1
  3. Затем сохраните книгу в отдельном каталоге (пример: C:\Aug2013Detail)
  4. Сохраните книгу с именем клиента в A2 новой книги (имя клиента всегда в A2 после приклеивания)

Таким образом, в конечном итоге с 350 отдельными книгами в этом каталоге

Спасибо очень много. Hennie Koch

ответ

0

Я немного поиграл, и это работает отлично !!!!! Hennie

Sub Macro13() 
    ' 
    ' Macro13 Macro 
    ' 
    ' Keyboard Shortcut: Ctrl+s 
    ' 
    Selection.Copy 
    Workbooks.Add 
    ActiveSheet.Paste 
    ActiveCell.Offset(1, 0).Range("A1").Select 
    Application.CutCopyMode = False 
    ThisFile = Range("A2").Value 
    ActiveWorkbook.SaveAs Filename:=ThisFile 
    ActiveWindow.Close 
End Sub