запуск запросов по очереди

[Iskin]

Если отдельно запускать, то отрабатывает. Если с вышеуказанным кодом, то полный игнор. Поэтому и думал что надо запрос, который обращается на лист 2 запустить первым, а потом другой запрос, который на активном листе. А не оба запроса сразу

[Aleksandr H.]

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

А не оба запроса сразу

Как знаете что запросы выполняются одновременно?

Dim col As Range
    For Each col In Columns("C:E")
        col.AutoFit ' автоширина
        Application.ScreenUpdating = True ' Возвращаем режим обновления экрана при изменении
        
        Range("g1").FormulaR1C1 = Date 'в яч ставит дату
        
        Dim lr As Long
        
        'Поиск последней строки по столбцу С.
        ' End не ищет в скрытых строках.
        lr = Cells(Rows.Count, "C").End(xlUp).Row
        
        ' пропустить 4 строк и вставить надпись в колонку D
        Cells(lr + 4, "D").Value = "К оплате _________________"
        
    Next

1) Next в нужном месте стоит?
2) Без цикла не работает?

Columns("C:E").autofit

3)

 'Поиск последней строки по столбцу С.
        ' End не ищет в скрытых строках.

и все-равно используете End

[Iskin]

Может перепишете мой код. а ТО Я ЗАПУТАЛСЯ ВООБЩЕ)

[Hugo121]

ошибся...

[Elixi]

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

Если отдельно запускать, то отрабатывает. Если с вышеуказанным кодом, то полный игнор.

Не знаю как вам, мне иногда помогает не запускать а по шагам (F8) смотреть что делает код что я <смастерил>.
Думаю, вам стоило бы посмотреть в процедуру из которой вызываете Макрос1().
Возможно там написано чтобы процесс останавливался на листе 2 ?

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

Может перепишете мой код. а ТО Я ЗАПУТАЛСЯ ВООБЩЕ)

Может попробуете с F8, станет понятнее на что вам намекают.

[Iskin]

Попробовал F8, оператор Next, поднял выше, но всё равно не помогло.
Кстати, при повторном запуске макроса, на лист 2 не перескакивает, только при первом запуске. Может там собака порылась? )