Excel макрос работает только на одном листе

First, you need to create a public variable to hold your timer, otherwise you’ll never be able to cancel it so it will continue trying to fire even when your workbook is closed. You should also create a public variable to store when the timer is running, so you can check before creating a new timer.

At the top of a code module put:

Public nextTime As Date

Then in your Workbook_BeforeClose() event method (within ThisWorkbook), disable the existing timer so it doesn’t keep trying to fire after the workbook is closed.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    On Error Resume Next   ' Continue with next line of code if we encounter an error
    Application.OnTime Earliesttime:=nextTime, Procedure:="Macro1", Schedule:=False
    On Error GoTo 0   ' Resume error-trapping

End Sub

In Macro1() you should explicitly and directly reference your workbook components — ThisWorkbook always refers to the workbook the code is running from, so you don’t need your If statement. Then you set the nextTime and activate the timer using that variable if it is not already running.

Sub Macro1()

    Dim sht As Worksheet   ' Creates a variable to hold your Weight worksheet
    Set sht = ThisWorkbook.Sheets("Weight")   ' Sets the reference

    Application.DisplayAlerts = False

    sht.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:Nett weight" & sht.Range("B1").Text & sht.Range("E1").Text   ' Remember to preceed Range with sht. to explicitly reference the range of your Weight worksheet

    On Error Resume Next   ' Continue with next line of code if we encounter an error
    Application.OnTime Earliesttime:=nextTime, Procedure:="Macro1", Schedule:=False
    On Error GoTo 0   ' Resume error-trapping

    nextTime = Now + TimeSerial(0, 0, 10)   ' Adds 10 seconds to Now
    Application.OnTime Earliesttime:=nextTime, Procedure:="Macro1", Schedule:=True
    timerIsRunning = True

    Application.DisplayAlerts = True   ' Remember to enable alerts at the end of code

End Sub

Your Worksheet_Change() event method can stay as is. Now if there is a change in B1 it will call Macro1(). Macro1() will save the Weight worksheet as a PDF regardless of whether the workbook or worksheet is active, and create a new timer to re-run Macro1() every 10 seconds after deactivating an existing timer. When you’re finished with the workbook, you close it and the existing timer is also deactivated.

EDIT:

Fortunately (as it fixes a spreadsheet of my own) I have figured out why the solution I originally provided wasn’t working. Placing the Public variables under ThisWorkbook meant they no longer held their values after code execution. The remedy was to place them in a module instead. Once that was sorted out, I also realised that when the timer fires to call Macro1() it will throw an error when trying to unschedule the existing timer (as none exists unless Macro1() was called ad hoc by the Worksheet_Change() event).

Long story short: Public variables have been moved to a code module, and the timerIsRunning flag has been removed entirely and errors when attempting to unschedule the timer are simply ignored in the event that no timer exists.

Доброго времени суток, форумчане!

Столкнулся со следующей проблемой:
На нескольких листах в формулах используются одни и те же пользовательские функции. Необходимо, чтобы при изменении значении в любой ячейке на листе, пересчитывались все формулы, но ТОЛЬКО НА ЭТОМ листе.
Т.е. Application.Volatile не подходит, ибо пересчитывает все формулы на всех листах. Причем при таком пересчете пользовательские функции используют значения ячеек с листа, с которого был инициирован пересчет.

Видится два варианта решения вопроса:
1) Сделать так, чтобы пересчитывались значения только на том листе, на котором произошло изменения ячейки. (пытался использовать Calculate. Возможно как-то криво его прописывал).
2) Сделать так, чтобы пересчитывались все листы, но на каждом листе использовались значения ячеек с этого же листа.

Пожалуйста, помогите с реализацией.

P.S. понимаю, что вопрос, скорее всего, глупый, ибо самостоятельно начал осваивать vba совсем недавно. Гугление не дало результатов.
Выложить Excel’вский файл проблематично, ибо корпоративная тайна.