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

[borik120]

вот такой у меня получился код

Sub разноскаюля()
Dim i As Long, x As Range, y As Range, z As Range, w As Range, v As Range, u As Range, a()

Application.ScreenUpdating = False: Sheets("П-А1").Activate

'присваиваем значения двух столбцов юля в массив а'
With Sheets("Юля"): a = .Range(.[B3], .Cells(Rows.Count, "C").End(xlUp)).Value: End With

'ищем в таблице соответствий что равно строчке из прайса Юля'
For i = 1 To UBound(a, 1)
Set x = Sheets("Т-А").[AM:AM].Find(what:=a(i, 1), LookAt:=xlWhole)

If Not x Is Nothing Then

'y присвоиить диапазон, листа "Т-А", по строке х от J до K'
 With Sheets("Т-А"):
 '******'   Set y = .Range(.Cells(x.Row, "J"), .Cells(x.Row, "K")).Value
: End With

'если нашли, то ищем в главной таблице,искомый диапазон, то есть на активном листе'

With Sheets("П-А1"):
 '******'    Set w = .Range(.Cells(w.Row, "J"), .Cells(w.Row, "K")).Find(what:=y, LookAt:=xlWhole)
: End With

'если нашли то вставляем значение'
If Not w Is Nothing Then

Cells(w.Row, "AN") = a(i, 2)

End If:
End If:
Next i

End Sub

выдает такую ошибку на строчках помеченных '******':
"object varible or with block varible not set". в этих 2х строчках я пытаюсь присвоить переменной, значение диапазона. что я делаю не так?
спасибо.

[The_Prist]

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

пытаюсь присвоить переменной, значение диапазона. что я делаю не так?

Set y = .Range(.Cells(x.Row, "J"), .Cells(x.Row, "K")).Value

Уберите .Value из назначения диапзаона, иначе Вы не объект присваиваете, а его значение.

а потом

Set w = .Range(.Cells(w.Row, "J"), .Cells(w.Row, "K")).Find(what:=y, LookAt:=xlWhole)

Как это Вы собираетесь искать значения целого диапзаона y? Аргументом поиска может быть одна ячейка либо одно значение, но ни как не массив.

[borik120]

понятно, хорошо. тогда такой вопрос, у меня есть диапазон ячеек (строка из 3-х штук), тогда как мне найти такой же диапазон на другом листе? столбец поиска известен, и этот диапазон точно присутствует.
но есть небольшая сложность, на том листе на котором надо найти диапазон, она состоит в том, что могут встречаться такие диапазоны подряд 3-2-1 или 3-2-2, а надо найти 3-2-3 к примеру, то есть значения ячеек диапазона могут частично совпадать, а должны точно. спасибо