Сравнить колонки

[Romuald]

Всем привет!
С Новым Годом!
У меня в Sheet2 в колонке A - код товара , а в колонке В -его название т.е. как "база данных"
В Sheet1 в колонку А пишу коды и макрос1 , в колонку В, из "базы"присуждает название
Пользуюсь макросом с формулой
Но не очень удобно все убирать лишнее после формул
Подскажите макрос без формулы.
Иногда надо наоборот- названию присудить код, тогда в Sheet1 в колонку А пишем название , а "макрос2" в Колонке В -присуждает код
Как сделать два макроса без формул?
Пользуюсь во каким (макрос1)

Sub Perenos()

Sheets("Sheet1").Activate
Cells(1, 2).Select
Application.ScreenUpdating = False


ActiveCell.FormulaR1C1 = "=VLOOKUP(TRIM(RC[-1])*1,Sheet2!C[-1]:C,2,0)"
Selection.AutoFill Destination:=Range("B1:B20000"), Type:=xlFillDefault
Range("B1:B20000").Select

Columns("B:B").Select
Selection.Copy
Range("E1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("B:B").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("D:D").Select
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
Columns("D:D").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("G7").Select
Columns("A:A").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
End Sub

[SAS888]

Посмотрите вложенный файл.
Макрос "Persons1" запускать, если есть код товара в столбце "A" листа "Sheet1".
Макрос "Persons2" запускать, если есть название в столбце "B" листа "Sheet1".
Лист "Sheet2", как я понял, содержит исходные данные (и код (столбец "A") и название (столбец "B")).

[Romuald]

SAS888 !
Все классно!
Спасибо!

[Romuald]

Добрый день !
Подскажите, пожалуйста, почему машина при отборе тормозит и примерно на 170-ой строке останавливается ?

[SAS888]

Не могу открыть вложенный файл.

[Romuald]

Во посылаю еще раз

[SAS888]

Та же беда. При открытии файла выскакивает ошибка Excel. Затем восстанавливается файл, но без макросов.
Может лучше Вам вложить файл только с данными, а коды макросов отдельно текстом, так как причина возникновения ошибки не известна.

[Pavel55]

Последний файл вообще Excel завалил и открывается уже с удалёнными макросами

[Romuald]

Во данные
В Sheet-e 2 -это база данных
В Sheet-e 1 надо к SAP коду пришить кол-во

[Romuald]

А макрос написан чуть выше (отSAS888)