Не могу найти ошибка в коде массива.

[Hoochara]

Доброе утро уважаемые форумчане.

Подскажите где ошибка в коде:

Sub Transfer()
Dim t!: t = Timer

Dim sell As Worksheet, ost As Worksheet, x, y, z, i&, temp$

ActiveWorkbook.RefreshAll

Set baza = Sheets("baza")
Set svod = Sheets("svod")

With baza
x = .Range(.Range("a2"), .Cells(Rows.Count, "a").End(xlUp).Offset(, 2)).Value
End With

With svod
y = .Range(.Range("a2"), .Cells(Rows.Count, "a").End(xlUp).Offset(, 1)).Value
ReDim z(1 To UBound(y), 1 To 2)

With CreateObject("Scripting.dictionary" )
.CompareMode = 1

For i = 2 To UBound(x)
temp = x(i, 1)
.Item(temp) = i
Next

For i = 1 To UBound(y)

temp = y(i, 1)
If .exists(temp) Then
z(i, 1) = x(.Item(temp), 1)
End If

Next i

End With

.[h2].Resize(UBound(z), 2) = z

End With

Debug.Print "Dictionary: " & Timer - t


MsgBox "Ìèêêè Ìàóñ"

End Sub

Макрос набирает значения из двух страниц. Потом вставляет данные из 2 столбца листа baza в лист svod на 8 столбец, а Должен вставлять на второй. Где ошибка не пойму.

Спасибо!

[Hugo121]

Если нужно во второй, то
.[b2].Resize(UBound(z), 2) = z
Но в массиве z первый столбец пустой, поэтому в B будет пусто.

[Hoochara]

Во поправил всё заработало, спасибо хуго.

Слушай а можно ли в код проверки добавить несколько критериев. К примеру. идет сравнение LCD тел-р LG 32LD320=
Если такое значение есть то данные переносятся на другой лист.
А как добавить к поиску что если он такую модель не нашел, то не идет на следующую строчку, а берёт эту же модель для сравнения, но например уже без знака =, потом без (тел-р). потом без пробелов. и светит цветом её, либо же копирует данные в соседний столбец. а если не нашел ни по каким критериям то берёт Полное название.

[Hugo121]

Тогда нужно весь код менять.
В этом варианте вариантов нет - или нашёл в словаре или не нашёл.
Единственное - класть в словарь без мусора, и искать в словаре без мусора.

Хотя... можно через ЕСЛИ НЕ НАШЁЛ искать replace(temp, "=","") или trim(temp)...

Что-то вроде

            For i = 1 To UBound(y)

                temp = y(i, 1)
                If .exists(temp) Then
                    z(i, 2) = x(.Item(temp), 1)
                    Else
                    If .exists(Replace(temp, "=", "")) Then
                    z(i, 2) = x(.Item(Replace(temp, "=", "")), 1)
                    Else
                    If .exists(Trim(temp)) Then
                    z(i, 2) = x(.Item(Trim(temp)), 1)
                    End If
                    End If
                End If

            Next i