Автоматическое заполнение листов 2,3 при условии, на основе введённых данных на листе 1

[gunshoots]

Здравствуйте, дорогие форумчане! Подскажите, пожалуйста, как решить этот вопрос.
Что имеем:
Лист Регистрация. В него вписываются вручную столбцы: B,C,D. Выбираются столбцы: E,F,G. Порядковый номер не меняется.
9 листов (как из выбора E,F,G). В них автоматически вписывается порядковый номер и ФИО из табл.Регистрация.
Что нужно:
При внесении данных в лист Регистрация при выборе пунктов E,F,G автоматически вписывались данные в соответствующие листы. Если на всех ячейках E,F,G будет стоять "нет", или ничего не будет введено, то эти данные никуда не будут переноситься.
Пример прикрепил.
Буду очень рад, если сможете помочь понять, как сделать эту автоматизацию.
Интернет молчит, ничего не нахожу в нём..

[Aleksandr H.]

Сообщение от gunshoots

помочь понять, как сделать эту автоматизацию.

Что умеете делать в VBA: сравнение значения ячейки с образцом, перебор листов в книге, поиск последней заполненной строки на листе, перенос значений между листами?

[gunshoots]

Сообщение от Aleksandr H.

Что умеете делать в VBA: сравнение значения ячейки с образцом, перебор листов в книге, поиск последней заполненной строки на листе, перенос значений между листами?

Обычно использую шаблоны из интернета. С нуля плохо понимаю этот язык. Из всего что вы перечислили ничего не понимаю) Т.е. моя задача решаема с помощью этих тем?

[Aleksandr H.]

Самый тупой метод -
1. на лист Регистрация бросаем кнопку
2. вешаем на кнопку макрос РазнестиСтроку
3. помещаем курсор в строку с данными, например в ячейку В12
4. жмякаем кнопку
5. на листах Фронт1, Басс2, Рейс3 лицезреем новую запись

Sub РазнестиСтроку()
    Dim CellSelected As Range
    
    Dim ColumnCriteriaValue As String
    Set CellSelected = ActiveSheet.Cells(ActiveCell.Row, "A")
    If MsgBox("Разнести запись строки №" & CellSelected.Row & "?", vbQuestion + vbYesNo) = vbYes Then
        ColumnCriteriaValue = CellSelected.Offset(0, 4).Value
        CopyDataToDestinationPage CellSelected.Resize(1, 3), ColumnCriteriaValue
        
        ColumnCriteriaValue = CellSelected.Offset(0, 5).Value
        CopyDataToDestinationPage CellSelected.Resize(1, 3), ColumnCriteriaValue

        ColumnCriteriaValue = CellSelected.Offset(0, 6).Value
        CopyDataToDestinationPage CellSelected.Resize(1, 3), ColumnCriteriaValue
    End If
End Sub


Private Sub CopyDataToDestinationPage(RangeCopyWhat As Range, SheetNameCopyTo As String)
    Dim sht As Worksheet
    Dim iLastRow As Integer
    On Error GoTo errlbl
    Set sht = Sheets(SheetNameCopyTo)
    With sht
        iLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
        .Cells(iLastRow, "A") = RangeCopyWhat(1, 1)
   '     .Cells(iLastRow, "B") = RangeCopyWhat(1, 2)
    End With
errlbl:
    
End Sub

[gunshoots]

Сообщение от Aleksandr H.

[/CODE]

Круто! Спасибо большое! Буду разбираться.