одновременное выполнение разных процедур в одном файле?

[kuklp]

Не совсем так. Со времени появления процессоров с суперскалярной, а позже и с гиперскалярной архитектурой, многопоточность стала реализовываться на аппаратном уровне. И тут уж все стало зависеть от написания программ. Если прога может использовать многопоточность... если нет...

[gramp]

Сообщение от doober

многопоточности нет.
Дорога с одной полосой движения ,один автомобиль остановился-все ждут.
Паузу выполняйте так

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Применение  пауза 10 сек
Sleep 10000

И никакой нагрузки на проц

пробую паузу на повторах, код такой:

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub m_21()
    Dim flagrun As Integer
    flagrun = Worksheets("33").Range("a1").Value
    If flagrun = 1 Then Application.Run "m_23"
    If flagrun = 0 Then Beep: MsgBox "закончено": Exit Sub
End Sub
Private Sub m_23()
    Dim vПоследняяСтрока As Long
    vpos = Worksheets("33").Range("A1").SpecialCells(xlLastCell).Row + 1
    Worksheets("33").Cells(vpos, 1).Value = Format(Now, "hh:mm:ss")
    Sleep 10000
    Application.Run "m_23"
End Sub

в результате ексел виснет и показывает белый экран, приходится убивать через диспетчер задач
что я делаю не так?

[doober]

Я так понимаю,вы хотите сохранять какие то данные.
такой вариант автогенератора не сильно мне нравиться.

 Sub m_23()
   Dim vПоследняяСтрока As Long
    vpos = Worksheets("33").Range("A1").SpecialCells(xlLastCell).Row + 1
    Worksheets("33").Cells(vpos, 1).Value = Format(Now, "hh:mm:ss")
    DoEvents
    Sleep 10000
    Application.Run "m_23"
End Sub

[gramp]

Сообщение от doober

Я так понимаю,вы хотите сохранять какие то данные.
такой вариант автогенератора не сильно мне нравиться.

 Sub m_23()
   Dim vПоследняяСтрока As Long
    vpos = Worksheets("33").Range("A1").SpecialCells(xlLastCell).Row + 1
    Worksheets("33").Cells(vpos, 1).Value = Format(Now, "hh:mm:ss")
    DoEvents
    Sleep 10000
    Application.Run "m_23"
End Sub

да, работает )
правильно ли я понимаю, что на период паузы никаких манипуляций на листе активной книги сделать невозможно?

[doober]

Да.

Не зная вашей задумки невозможно предложить другой вариант

[gramp]

Сообщение от doober

Да.

Не зная вашей задумки невозможно предложить другой вариант

очень удобная реализация паузы, благодарю
для возможности манипуляций с листом вместо
DoEvent: Sleep 10000

вставляю десять раз по
DoEvent: Sleep 1000