Ошибка в макросе сравнения таблиц

[ZorDMV]

Уважаемые форумчане! Помогите исправить ошибку в макросе. На основе ваших примеров составил, свой макрос для своих задач, а решить возникшую проблему не могу направьте на путь истинный. Задача следующая: на третьем листе таблица с данными, необходимо найти на втором листе совпадающие записи и вывести их на первый лист. Заранее благодарен за ответ)

[Казанский]

На листе MY

01-2 Вологда
32-Шекснинский

На листе NER

01-2-ОМ Вологда
32-Шекснинский РОВД

Как Вы предполагаете их сравнивать? По первым двум символам - достаточно?

[ZorDMV]

Сообщение от Казанский

На листе MY

01-2 Вологда
32-Шекснинский

На листе NER

01-2-ОМ Вологда
32-Шекснинский РОВД

Как Вы предполагаете их сравнивать? По первым двум символам - достаточно?

На листе NER не должно быть "32-Шекснинский РОВД" должно быть просто "32-Шекснинский" забыл удалить РОВД)))

[ZorDMV]

Вот правильный файл

[Казанский]

В принципе, можно без макроса - см. формулы на 2-м и 3-м листах, потом автофильтр на 2-м листе по условию "не равно: #Н/Д", скопировать**, вставить на первый лист.

** В 2007+ перед копированием надо выделить видимые: F5 - выделить - только видимые ячейки, иначе скопируется все. В 2003 и более ранних и так копируются только видимые.

[ZorDMV]

Благодарю за помощь))) Очень помогли мне, на основе этого и допишу макрос, поскольку я не для себя делал макрос, а для коллег, а они в Excel-е ничего не понимают, поэтому создам кнопку и будет им счастье. Еще раз благодарю за помощь))) И тему можно закрыть.

[ZorDMV]

Начал переписывать макрос и получилось следующее
For i = 2 To kolstr2
s = "=LEFT(A" & i & ",2)&"" ""&B" & i & "&"" ""&C" & i & ""
ws2.Cells(i, 4).Formula = s
Next i
For i = 2 To kolstr2
s = "=MATCH(LEFT(A" & i & ",2)&"" ""&B" & i & "&"" ""&C" & i & ";MY!D2:D" & kolstr2 & ";0)"
ws4.Cells(i, 4).Formula = s
Next i

Третья строка проходит на ура, а восьмая вылетает в ошибку 1004, в чем дело понять не могу(((

Помогите пожалуйста разобраться.

[Казанский]

Мне проще заново написать
На листе с формулой ПОИСКПОЗ достаточно вписать формулу в одну ячейку, чтобы использовать ее как условие Расширенного фильтра, который и перенесет совпадающие строки на другой лист:

Sub bb()
With Sheets("MY")
    .Range("D2:D" & .Cells(.Rows.Count, "C").End(xlUp).Row).Formula = "=LEFT(A2,2)&"" ""&B2&"" ""&C2"
End With
With Sheets("NER")
    .Range("E2").Formula = "=MATCH(LEFT(A2,2)&"" ""&B2&"" ""&C2,MY!D:D,)"
    .Range("A1").CurrentRegion.AdvancedFilter xlFilterCopy, .Range("E1:E2"), Sheets("ITOG").Range("A1:C1")
    .Range("E2").Clear
End With
Sheets("MY").Columns("D").Clear
End Sub

[ZorDMV]

Благодарю за ответ)))