Автоматический перенос строк из одного листа в другой

[dom_sveta]

Добрый день!
Подскажите, пожалуйста. На один лист заносятся общие сведения (прикладываю файл). Задача:
- если значение первой ячейки в строке - Сергей, то вся строка копируется на лист "Сергей";
- если Максим - то на лист с названием "Максим" и т.д.
Имена могут меняться и добавляться, количество столбцов - тоже.
Задача кажется простой, но я первый раз с таким сталкиваюсь. Буду признательна вам за советы и рекомендации. Спасибо!

[SAS888]

Посмотрите вложение. Запустите макрос "Main".
Все строки будут перенесены в соответствующие листы. Если встретится менеджер, лист которого отсутствует, то такой лист будет создан.

[dom_sveta]

Спасибо! Здорово!
Скажите, пожалуйста, а что нужно изменить в коде, чтобы данные не переносились, а копировались, т. е. оставались на исходном листе?

[SAS888]

В строке кода

aws.Rows(i).Cut ws.Cells(Rows.Count, 1).End(xlUp).Offset(1)

замените Cut на Copy. Но тогда, если запустить макрос несколько раз, он каждый раз будет добавлять соответствующие строки в соответствующие листы. Вы этого не боитесь?

[dom_sveta]

>> замените Cut на Copy.
Спасибо!

>> Но тогда, если запустить макрос несколько раз, он каждый раз будет добавлять соответствующие строки в соответствующие листы. Вы этого не боитесь?
Я об этом думала как раз. Дублирования нужно избежать, и значит, копирование не подойдет.

[dom_sveta]

А вы могли бы еще уточнить? Если перед первым столбцом будет добавлен новый (например, с нумерацией строк), как это повлияет на результат запуска макроса? И если да, то хотелось бы сделать так, чтобы определяющим было содержимое ячейки, где указано имя человека. В том случае, если добавление столбцов перед столбцом с именем нарушит действие макроса и "все усложнит", то я постараюсь избежать его добавления. Спасибо!

[SAS888]

Если заголовки столбцов всегда находятся в 1-й строке и определяющим является столбец с заголовком "Садовник", то можно его располагать где угодно и макрос заменить на следующий:

Sub Main()
    Dim i As Long, j As Integer, ws As Worksheet, aws As Worksheet, x As Range
    Set x = Rows(1).Find("Садовник", , , xlWhole)
    If x Is Nothing Then Exit Sub Else j = x.Column
    Application.ScreenUpdating = False: Set aws = Sheets("Общая база")
    For i = aws.Cells(Rows.Count, j).End(xlUp).Row To 2 Step -1
        If aws.Cells(i, j) <> "" Then
            On Error Resume Next: Set ws = ThisWorkbook.Sheets(CStr(aws.Cells(i, j)))
            If Err <> 0 Then
                Set ws = Sheets.Add: ActiveSheet.Name = aws.Cells(i, j): On Error GoTo 0
                aws.Cells.Copy
                ws.Cells.PasteSpecial Paste:=xlPasteColumnWidths
                ws.Cells.PasteSpecial Paste:=xlPasteFormats
            End If
            aws.Rows(i).Cut ws.Cells(Rows.Count, 1).End(xlUp).Offset(1)
    End If: Next
End Sub

[paveltol]

Добрый день! Прошу помочь с усложнённой задачей.
Возможно ли доработать макрос таким образом, чтобы:
1) Переносились на новые листы (и соответственно создавались новые листы) только строки с заполненными ячейками столбца "Поставка" листа "Общая база"
2) Все новые листы создавались справа от листа "Общая база"
3) При каждом последующем запуске макроса строки в листах не дублировались, а добавлялись только вновь занесенные, но не обязательно добавленные вниз таблицы "Общая база".

4) Отдельно - просьба подсказать, что менять в коде, если заголовки столбцов занимают более 1 строки, в том числе имеют объединённые ячейки.
Заранее премного благодарен!

[IgorGO]

по п.4)

добавлять в код ничего не надо, сократите заголовок до 1 строки и снимите обьединение ячеек.

[paveltol]

Спасибо. Для работы условия в п.1, насколько понимаю, тоже ничего больше не требуется.
Возможно ли выполнение пунктов 2 и 3?