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

[doober]

Макрос The_Prist модеренизированый

Sub Макрос2()


Dim i As Integer
Dim n As Long
    For i = 2 To 3    ' цикл от 2 листа до третьего
        With Sheets(i)
        For n = 2 To 16  'Укажете с какой по какую строку
    
        .Range("J" & n).FormulaR1C1 = "=RC[-3]-R[" & -n + 2 & "]C[-3]"
        
           Next
        End With
    Next i

End Sub

[as-is]

Уважаемый The_Prist.
Не получается. Куда надо поместить,- код в лист или модуль.
'здесь то, что необходимо выполнить на всех листах, начиная от второго -
в каком виде, форме. Сюда надо макрос, который записан. Туплю в какой-то мелочи. Подскажите, прошу Вас. Выходной заканчивается, а завтра надо сдать "зачет".
Пробую ведь запихнуть макрос, записанный в ручную. Заранее спасибо

[doober]

Удалите свой ,записаный Макрос2(),и вставте этот на его место.

Sub Макрос2()

Dim i As Integer
Dim n As Long
    For i = 2 To Worksheets.Count    ' цикл от 2 листа до последнего
        With Sheets(i)
        For n = 2 To 16  'Укажете с какой по какую строку
    
        .Range("J" & n).FormulaR1C1 = "=RC[-3]-R[" &  2  -n  & "]C[-3]"

           Next
        End With
    Next i

End Sub

Если совсем будет туго,качайте вложение

[as-is]

Спасибо, doober. Наконец-то исчезли нули на первой странице и все работает. Спасибо еще раз. как я понимаю (или ошибаюсь) вместо "ручного макроса" Вы вставили функцию. Но тогда возникает другая проблема. Мне желательно делать вставку ручного макроса. исходный пример содержал примитив - необходимым для меня есть обработка в столбцах -2:16 потом следующая серия 17:31 и т.д. в колонке
Не вините строго, - я полагал ответ для ручного макроса, поэтому и не стал усложнять исходный пример. Сам ручной код у меня работает, когда запускаю его с активного листа.
Спасибо.

[doober]

Сообщение от as-is

Мне желательно делать вставку ручного макроса.

Ручной макрос-это как

Конкретнее сформулируйте свою задачу(задание)
Каков вопрос-таков и ответ

[as-is]

Присоединяю файл - в модуле 3 ручной макрос=записанный в ручную ("макрос-начать запись ...") для повторяющихся расчетов.
Пожалуйста, doober.
Спасибо.

[Dophin]

тему сначала не читал. Так?

[doober]

as-is Если можете,напишите словами,что должен сделать макрос.
Мне интересно стало,какая у него конечная задача.
А то зачет под вопросом.Чем больше неопределенности,тем правильное решение удаляется с каждым шагом.

PS.На философию потянуло

[as-is]

СПАСИБО, Dophin.
Если бы я все это понял. и сразу.
Разобрался на примере лишь.
Буду пробовать изменять число листов и число строк. И искать закономерность. Может есть еще варианты.
Спасибо.

[doober]

Единственный правильный вариант выложить на словах вашу глобальную задачу.
А Вы пытаетесь ее решить склеивая по кусочкам,заранее не зная подойдут размеры,или нет.Мне уже интересно стало