Сравнить и сложить книги

[Rolls]

Ладно ребят, спасибо за попытку помочь, буду юзать кривой, зато работоспособный код
Удачи всем

[Rolls]

Одна просьба на последок :
подскажите, как вставить ProgressBar в мои циклы, а то больно не удобно смотреть на загруженность процессора и не знать процент выполнения.

[Hugo121]

Вот так и есть - код нужно оптимизировать, а не тормозить его ещё прогрессбарами.

Я посоветую обойтись Application.StatusBar (можно выводить не каждое значение y/i, а например десятое или сотое - так можно будет эти значения заметить, если код не совсем тормозной):

Sub add_items()
...
...
...
        For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        Application.StatusBar = "Обработка " & y & " строки прайса, обработка " & i & " строки этого листа."
            If wB.Sheets("прайс").Cells(y, 3).Value = Cells(i, 3).Value Then
                Z = 1
                Exit For
            End If
        Next
    Next
    
    Application.StatusBar = False
    'ActiveSheet.Protect: Application.ScreenUpdating = True
End Sub

И кстати - если работет очень долго и мешает шевелиться компьютеру вообще - поставьте внутрь тяжёлого цикла DoEvents - ну может не на каждом шаге, а тоже на сотом/тысячном. Так правда код чуть замедлится, но можно будет параллельно хоть что-то другое сделать.

[Rolls]

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

И кстати - если работет очень долго и мешает шевелиться компьютеру вообще - поставьте внутрь тяжёлого цикла DoEvents - ну может не на каждом шаге, а тоже на сотом/тысячном. Так правда код чуть замедлится, но можно будет параллельно хоть что-то другое сделать.

Спасибо, остальные приложения работают абсолютно нормально, вообще без отличий, просто в диспетчере задач висит загрузка ЦП на 50% на обоих ядрах.

[Rolls]

для информации :

при прохождении одного цикла (6000 строк) Application.StatusBar отлично отрабатывает, а при прохождении 6000 раз по 6000 строк, виснет и вешает весь excel. ждал больше часа (для чистоты эксперимента), excel так и непроснулся, до добавления Application.StatusBar скрипт выполнялся +- 5 минут.

[DiemonStar]

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

для информации :

при прохождении одного цикла (6000 строк) Application.StatusBar отлично отрабатывает, а при прохождении 6000 раз по 6000 строк, виснет и вешает весь excel. ждал больше часа (для чистоты эксперимента), excel так и непроснулся, до добавления Application.StatusBar скрипт выполнялся +- 5 минут.

ctrl-break нажимать пробовали? где именно зависало?

[Hugo121]

Я думаю, в чём-то другом причина - ни разу статусбар систему не вешал.
Чуть тормозит - это да (если каждое значение выводить), но не вешает.

[Rolls]

когда ставлю перед ним апостроф (закоментить), скрипт нормально отрабатывает.

[Rolls]

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

ctrl-break нажимать пробовали? где именно зависало?

пробовал, не помогает.
если вас интересует уонкретно на каком месте зависает, то на 25 строке одного прайса и 900 - 990 (всегда по-разному) строка второго.

[Rolls]

Hugo121

оффтоп: Спасибо за совет "копироваться строки с русскими символами с включенной русской раскладкой". Теперь помогает во всех программах!