Долгая обработка таблицы

[Hugo121]

Замечание по коду - перекиньте всё что не относится к листу в стандартный модуль.
Потому что вот например сразу косяк:

Sub SortirovkaPoDatam()
    Dim PosStr1
    PosStr1 = Sheets("Лист2").UsedRange.Rows.Count
    ActiveWorkbook.Worksheets("Лист2").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Лист2").Sort.SortFields.Add Key:=Range("F1:F" & PosStr1) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Лист2").Sort
        .SetRange Range("A1:J" & PosStr1)
        .Header = xlGuess

Range("F1:F" & PosStr1) и Range("A1:J" & PosStr1) будут от какого листа браться, как думаете?

[Mkoty]

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

Замечание по коду - перекиньте всё что не относится к листу в стандартный модуль.
Потому что вот например сразу косяк:

Sub SortirovkaPoDatam()
    Dim PosStr1
    PosStr1 = Sheets("Лист2").UsedRange.Rows.Count
    ActiveWorkbook.Worksheets("Лист2").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Лист2").Sort.SortFields.Add Key:=Range("F1:F" & PosStr1) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Лист2").Sort
        .SetRange Range("A1:J" & PosStr1)
        .Header = xlGuess

Range("F1:F" & PosStr1) и Range("A1:J" & PosStr1) будут от какого листа браться, как думаете?

думаю от второго

ActiveWorkbook.Worksheets("Лист2").Sort

по крайней мере работает.
я не совсем понимаю суть предложения (тот еще программист)

[Aleksandr H.]

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

[Mkoty]

Сообщение от Aleksandr H.

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

В момент запуска макроса активен Лист1, а сортировку сделал на Лист2, как и хотел.
Перенесу в стандартный модуль все.

[Aleksandr H.]

рекомендуют для сортировка лист2 писать

With ActiveWorkbook.Worksheets("Лист2").Sort
        .SetRange Worksheets("Лист2").Range("A1:J" & PosStr1)

[Mkoty]

Сообщение от Aleksandr H.

рекомендуют для сортировка лист2 писать

With ActiveWorkbook.Worksheets("Лист2").Sort
        .SetRange Worksheets("Лист2").Range("A1:J" & PosStr1)

Принято.
увидел где у меня ошибка, странно но работало

[Hugo121]

Сообщение от Aleksandr H.

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

- это если код в стандартном модуле. А код не там, о чём я и написал.

[alex777555]

        Kod = Sheets("Лист2").Range("A" & i)
        Kol = Sheets("Лист2").Range("B" & i)

Конечно будет долго
юзай массивы

[Fairyman]

1)

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

и вот я еще чего не могу понять
файл с VBA в формате .xlsm весит 43 мегабайта, там текста ноль повдоль.

Попробуйте экспортировать свои макросы в файл, затем создать НОВУЮ книгу и импортировать туда макросы из файлов. Объём скорей всего сильно уменьшится. Возможно это скажется на скорости работы макроса.

2)

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

Dim i, b, Kod, Kol, CenaVdoke, CenaOpt, NomerDoka, DataDoka, VidDoka, Klient, Vozvrat, Manager

Все эти переменные без объявления им типа становятся переменными Variant, которые занимают много места в памяти. Вам это точно нужно?

3)Нажмите Ctrl+End чтобы понять сколько ячеек используется. По идее должна показываться последняя нижняя правая ячейка с данными. Если это не так, то выделите все ячейки где нет данных и удалите их через команду Удалить (не Del). Это уменьшит размер файла и по идее немного ускорит работу с файлом.

Тормозит ли сейчас файл?

[Mkoty]

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

1)

Попробуйте экспортировать свои макросы в файл, затем создать НОВУЮ книгу и импортировать туда макросы из файлов. Объём скорей всего сильно уменьшится. Возможно это скажется на скорости работы макроса.

2)

Все эти переменные без объявления им типа становятся переменными Variant, которые занимают много места в памяти. Вам это точно нужно?

3)Нажмите Ctrl+End чтобы понять сколько ячеек используется. По идее должна показываться последняя нижняя правая ячейка с данными. Если это не так, то выделите все ячейки где нет данных и удалите их через команду Удалить (не Del). Это уменьшит размер файла и по идее немного ускорит работу с файлом.

Тормозит ли сейчас файл?

1. Я исправил теперь файл весит килобайты
2. посмотрю
3. обработка работает примерно 11 секунд. не быстро

P.s. исправил пункт два ускорил секунды на две - уже хорошо
не могу понять как обозначить эти переменные:
Dim PosStr1
и
Dim tmp