макрос для optionbutton

[ruavia3]

Спасибо, очень выручили.

[ruavia3]

Код используется для заполнения дней недели, с указанием каждой ячейки. В примере код работает, но если добавить еще несколько групп (например c,d,f) то макрос выдаст 'procedure too large'

Можно каким-нибудь образом сократить код?

[SAS888]

Посмотрите пример во вложении.

[ruavia3]

Спасибо огромное.
Вот так сократили

Set sh1 = Sheets(sh): Set sh2 = Sheets(sh + 4): j = 10: - почему именно 10 ?

[SAS888]

Обратите внимание, как адресуются ячейки "откуда брать" и "куда вставлять".
В первом проходе внешнего цикла j=10 и k=0. Соответственно, берем значения из нужного листа в найденной строке из столбцов j, j + 1 и j + 2 (т.е. "J", "K" и "L") и вставляем в 1-й лист в столбцы 5, 6 и 7 (т.е. "E", "F" и "G").
При втором проходе - j = 2 и k = 1. Соответственно, из столбцов "B:D" вставляем в "B:D".
Подставьте значения j и k для 1-го и 2-го прохода в формулы, например, этого фрагмента макроса:

Cells(i, j + 5 * k - 5) = sh1.Cells(x.Row, j)
Cells(i, j + 5 * k - 4) = sh1.Cells(x.Row, j + 1)
Cells(i, j + 5 * k - 3) = sh1.Cells(x.Row, j + 2)

Посмотрите, какие номера столбцов получаются - и все станет понятно.

[ruavia3]

Не работает
Хорошо, когда значения выборки стоят по порядку, мы можем задать цикл с j=10, а потом j=2 (выбирая столбец). А если данные идут не по порядку, если столбцы выборки для одной группы находятся в середине другой?

[SAS888]

Решение делается в зависимости от задания. Если для прошлого случая было рационально использовать цикл с изменением номера столбца, то сейчас лучше сделать так (см. вложение).
P.S. Давайте называть вещи своими именами: предыдущий макрос работает и полностью выполняет свою задачу. Если Вы снова будете изменять требования, то либо вносите корректные изменения в код макроса, либо поставьте соответствующий вопрос.

[ruavia3]

Виноват, согласен. Я планировал дальше сам дописать код, не зная, что придется переписывать его целиком.
В последнем файле, группа b почему-то не заполняется(

[SAS888]

Добавил. Посмотрите.

[ruavia3]

Если потребуется добавить еще группы листов, например с, d. То в конце кода нужно написать:
Next
Set ws = Sheets(sh + 4)
Next
Set ws = Sheets(sh + 8)
Next
Set ws = Sheets(sh + 12)
Next


Верно?