Сохранить цвет из разных листов

Question

У меня более 20 листов с одинаковой структурой, и я пытаюсь подвести итог на первом листе.Проблема, с которой я сталкиваюсь, заключается в том, что я являюсь новичком, когда дело доходит до использования vba.

Приведенный ниже код, как я думал, был первым шагом, все клетки из A2:A31 в blad5 должны сохранитьцвет фона в blad1 E2:E31, если я изменю цвет в blad5, он будет отображаться, как цвет blad1 (все ячейки в Blad5 A2:A31 имеют зеленый цвет фона)

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Worksheets(Blad2).Range("A2:A31").Interior.Color = Worksheets(Blad1).Range("E2:E31").Interior.Color
 End Sub

Мое намерениеиспользовать цикл do на всех листах (blad2-blad27) для blad1, который является моим листом для подведения итогов.

Был бы признателен за толчок в правильном направлении, как выполнить функцию en do loop для листов(минус blad1 / sheet1) и как правильно написать макрос interior.color.

С уважением, Фредрик

Answer 1

Для петли над листами вы можете использовать следующее:

For i = 2 To 27

Worksheets("Blad" & i).Range("A2:A31").Interior.Color=Worksheets(Blad1).Range("E2:E31").Interior.Color

Next i