макрос деления таблицы

[remiz]

Добрый день.
Помогите!!!!очень нужен макрос, с помощью которого можно разделить реестр на несколько отдельных листов, с определенным количеством значений в каждом листе(например лист из 500 значений,поделить на 10 листов по 50) и сохранить листы в папке. Спасите,срочно(((

[IgorGO]

книгу сохранить в папку можно
лист - не знаю как? (а тем более 50 листов)

[remiz]

Не правильно выразилась,книгу и надо,но с уже отсортированной частью реестра

[IgorGO]

Заметил еще такую особенность - ВСЕ файлы, сохраненные на диске, имеют имена, причем в одной папке не должно быть совпадающих имен файлов.

вопрос по сути как называть файлы?

и второй вопрос Вам вообще интересно получить решение? или тема Вам по-барабану, как и мне?

[remiz]

Имена можно просто 1,2.... решение мне очень важно.Суть такая. Есть реестр должников с разными сроками,надо отсортировать по срокам и поделить внутри этих сроков на несколько реестров с равным колмчеством,чтобы потом раздать реестры людям.По срокам я отделила уже,а вот остальное не получается

[remiz]

Не могу файл загрузить.

[IgorGO]

откройте файл с реестром должников, добавте в проект программный модуль, скопируйте макрос в модуль, активируйте нужный лист, выполните макрос:

Sub Split50()
  Dim i As Long, wb As Workbook, p As String
  p = ThisWorkbook.Path & Application.PathSeparator
  With ActiveSheet
    For i = 0 To .UsedRange.Rows.Count / 50
      Set wb = Workbooks.Add
      .Rows(1 + i * 50).Resize(50).Copy Cells(1)
      If Dir(p & i & ".xls*") <> "" Then Kill p & i & ".xls*"
      wb.SaveAs p & i:  wb.Close
    Next
  End With
End Sub

[remiz]

Огромное спасибо вечером после работы попробую. Очень благодарна:-)