ускорить работу макроса

[borik120]

здравствуйте, я в VBA новичек, но тут выпала надобность написать маленький макрос. В документе три листа, "Юля" - наименоваания с ценами, "Т-А" - таблица соответствия (о ней расскажу дальше), "П-А1" - выходной лист для переноса цен из листа "Юля". Таблица соответствия - это таблица из двух столбцов в сторках которой прописаны соответствия между наименованиями в листах "Юля" и "П-А1".

макрос работает так: берет первое наименование на Листе "Т-А" и ищет его на листе "Юля", когда находит, он из соседнего столбца, той же строки, на Листе "Юля" копирует цену. Потом переходит на лист "П-А1", и ищет первое наименование из листа соответствия на листе "П-А1" и вставляет цену в соседний столбец. помимо этого макрос еще подсвечивает на листе "юля" те ячейки из которых он копировал цену. вот как то так . А проблема состоит в том, что макрос выполняется слишком долго, на листе на каждом листе примерно по 1000 наименований. но я не думаю, что из-за этого. подскажите пожалуста как можно оптимизировать данный код. буду благодарен всей душой.

Sub разноскаЮля()

k = 1

For i = 1 To 1000
If Worksheets("Т-А").Range("AM" & k).Text = Worksheets("Юля").Range("B" & i).Text Then Worksheets("Юля").Range("C" & i).Copy Else GoTo 1

If Worksheets("Т-А").Range("AM" & k).Text = "стоп" Then GoTo 2



    For j = 1 To 1000
    If (Worksheets("П-А1").Range("J" & j).Text = Worksheets("Т-А").Range("J" & k).Text) And (Worksheets("П-А1").Range("K" & j).Text = Worksheets("Т-А").Range("K" & k).Text) And (Worksheets("П-А1").Range("L" & j).Text = Worksheets("Т-А").Range("L" & k).Text) Then
    Worksheets("П-А1").Range("AN" & j).PasteSpecial
    End If
   

    Next j

Worksheets("Юля").Range("B" & i).Interior.Color = RGB(200, 160, 35)

k = k + 1
i = 4
1
Next i
2

End Sub

[The_Prist]

Как минимум перед выполнением макроса необходимо отключить обновление экрана и автоперсчет формул:

Sub разноскаЮля()
Application.Screenupdating = false
Application.calculation = xlManual

А перед завершением вернуть все на место

Application.Screenupdating = true
Application.calculation = xlautomatic
End Sub

[EducatedFool]

Ваш макрос можно ускорить в десятки раз - достаточно отказаться от вложенных циклов.
Для поиска совсем необязательно перебирать все ячейки в цикле.

Прикрепите пример файла с исходными данными и тем, что должно получиться в результате работы макроса.
PS: Можно попробовать обойтись без макроса - по крайней мере, бОльшую часть работы можно выполнить простейшими формулами.

[borik120]

Для поиска совсем необязательно перебирать все ячейки в цикле.
Можно попробовать обойтись без макроса

а можно поподробней про эти два случая?

[The_Prist]

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

а можно поподробней про эти два случая?

Вам написали, что для этого надо сделать.

[borik120]

вот файл. в принципе то что мне нужно написано в первом посте. а если вкратце, нужно чтобы цены из прайса "юля", забивались в прайс "П-А1". а таблица соответствий названий находится на листе "Т-А".
в коде который я отправил в первом посте, не совпадают названия столбцов с тем файлом который я сюда скинул, т.к. из этого файла я удалил все ненужные столбцы. мне бы идею, как сделать без цикла, а то получается что макрос работает минут 30(
в качестве небольшого вознаграждения, т.к. вебмани номер забыт, могу кинуть денег на телефон) лишь бы работало. заранее спасибо. извиняюсь что сразу не выложил исходники.

[SAS888]

Посмотрите вложение. Запустите макрос "Main". При нахождении данных, в лист "Т-А" заносится цена, а в лист "П-А1" - в столбец "Z" - запись, найденная в листе соответствий, а в столбец "AA" - цена. Сделал так, как понял. Если что-то не нужно - уберите из кода.
P.S. Для "облегчения" файла, удалены лишние листы.

[borik120]

SAS888, спасибо большое, в принципе то что нужно, только не надо было удалять столбцы на листе П-А1, там где были написаны обьем и M\W(мужской женский), они ведь тоже участвуют в соответствии. Хотелось бы понять как это работает, то есть комментарии к макросу.

[SAS888]

В приложении тот же файл с комментариями.

не надо было удалять столбцы на листе П-А1, там где были написаны обьем и M\W(мужской женский), они ведь тоже участвуют в соответствии

Каким образом они это делают? Я считал, что соответствие - это записи в строках на листе "Т-А" в столбцах "J" и "AM". Не так?

[borik120]

Да, соответствие на листе "Т-А" столбцы J,K,L в документе П-А1 соответствуют единственному столбцу на листе "Юля". В документе "Т-А" так и идет, - 4 столбца. Но не стоит ничего исправлять, я сам постараюсь, все сделать. Большое спасибо SAS888