макрос для optionbutton

[SAS888]

Внешний цикл (в предыдущем примере это For j = 0 To 1), как раз и есть количество групп. Так, например, пусть имеется n групп по 4 листа в каждой. Тогда внешний цикл будет выглядеть так:

For j = 1 To n
    '''
    '''
    '''
    Set ws = Sheets(sh + 4 * j)
Next

Не забудьте в адресах ячеек для вставки данных заменить i + j на i + j -1.

[ruavia3]

А как ограничить значение переменной ws?
Вылетает ошибка, т.к. группы 3, листов 12, а при подсчете цикла sh+4*j, при значении j=3, sh=13 - а этого листа нет. Как вариант я добавил еще три пустых листа в конец книги.

[SAS888]

Да, Вы правы. Лучше присваивать значение объекту ws в начале цикла. Например, для 3-х групп (от j=0 до j=2) можно так:

Sub Main(sh As Integer)
    Dim i As Integer, j As Integer, x As Range, ws As Worksheet: Application.ScreenUpdating = False
    For j = 0 To 2
        Set ws = Sheets(sh + 4 * j)
        For i = 13 To 31 Step 3
            Set x = ws.Columns("A").Find(what:=Cells(i - 1, "A") - 1, LookAt:=xlWhole)
            If Not x Is Nothing Then
                ws.Range(ws.Cells(x.Row, "K"), ws.Cells(x.Row, "V")).Copy
                Cells(i + j, "B").PasteSpecial Paste:=xlPasteValues
            Else: Range(Cells(i + j, "B"), Cells(i + j, "Y")).ClearContents
            End If
            Set x = ws.Columns("A").Find(what:=Cells(i - 1, "A"), LookAt:=xlWhole)
            If Not x Is Nothing Then
                ws.Range(ws.Cells(x.Row, "W"), ws.Cells(x.Row, "Y")).Copy
                Cells(i + j, "N").PasteSpecial Paste:=xlPasteValues
                ws.Range(ws.Cells(x.Row, "B"), ws.Cells(x.Row, "J")).Copy
                Cells(i + j, "Q").PasteSpecial Paste:=xlPasteValues
            Else: Range(Cells(i + j, "N"), Cells(i + j, "Y")).ClearContents
            End If
        Next
    Next
    [A1].Select
End Sub

Заметьте, что в этом случае листов должно быть не 12, а 13, т.к. 1-й лист не входит в группы по 4 листа.

[ruavia3]

гениально, все летает