Запуск макроса на листе, который выполняется в других листах

[as-is]

Помогите, пожалуйста, разобраться с запуском макроса.
Макрос записан вручную.
В книге три рабочих листа.
На первом листе изображение (вместо кнопки), к которому привязан макрос. Необходимо, чтобы макрос выполнялся только на втором и третьем листах.
Спасибо за возможную помощь.

[doober]

Грузите файл для лучшего понимания задачи.
Я понял,что кнопку жмут на 1 листе,а выполнение касается 2 и 3 листа

[as-is]

Да, именно так, doober.
Спасибо за оперативность. Готовлю файл

[The_Prist]

Для применения макроса на других листах, используйте либо их активацию, либо(что лучше и быстрее и профессиональней) - конструкцию With ... End With.

Dim i As integer
For i = 2 to 3 ' цикл от 2 листа до третьего
With Sheets(i)
.Range(.Cells(1,1),.Cells(10,1)).value = "1"
End With
Next i

Обращаю внимание на обязательное проставление точек перед .Range и .Cells. Это очень Важно!

[as-is]

Спасибо. Пробую. Но файл прикладываю.
The_Prist, Как быть, если листы не 1,2,3, а их количество меняется.
И как будет выглядеть макрос в целом.
Спасибо.

[The_Prist]

Вот код всего Вашего макроса

Sub Макрос2()
    Dim i As Integer
    For i = 2 To 3    ' цикл от 2 листа до третьего
        With Sheets(i)
            .Range("J2:J16").FormulaR1C1 = "=RC[-3]-RC[-3]"
        End With
    Next i
End Sub

А про имена листов - значения не имеет. В коде берется не имя листа, а его индекс. Т.е. номер листа в книге по порядку. Если листо будет 10, то просто продляете цикл

For i = 2 To 10 'цикл от 2 листа до десятого

Попробуйте - поймете.

P.S. Формула не совсем ясна - "=RC[-3]-RC[-3]" - какой результат она вернет? Только нуль, т.к. Вы вычитаете ячейку из самой себя. Наверное, что-то другое должно быть, хотя бы - "=RC[-3]-RC[-2]"

[as-is]

Спасибо, The_Prist.
Логично, но может быть непонято сторонним пользователем.
Дело в том, что число листов выбирается тем, кто работает. Сегодня, например, я открываю в "листы" 3 файла; завтра 5. (Прим. я использую макрос, который соединяет файлы-книги в листы).
Можно ли указать с запасом, например 10, зная, что число листов будет не больше.
И не глючит ли, когда открыто 3 листа. Спасибо.
** сам сейчас попробую.

[as-is]

К тому же мне необходимо просчитать не по формуле, а по записаному макросу - расчет будет не от 2:16, а значительно больше и с повторяющимися действиями.
.Range("J2:J16").FormulaR1C1 = "=RC[-3]-RC[-3]"
Помогите, пожалуйста, вставить в тело записанный макрос.
Спасибо
** может через переменную листа

[as-is]

Действительно, The_Prist, формула возвращает нули. А записанный макрос (в приложенном файле) корректирует значения - вычитает от каждого последующего самое первое значение.
Спасибо.

[The_Prist]

Sub Макрос2()
    Dim i As Integer
    For i = 2 To Sheets.Count  ' цикл от 2 листа до последнего
        With Sheets(i)
            'здесь то, что необходимо выполнить на всех листах, начиная от второго
        End With
    Next i
End Sub