макрос и ВПР

[flacon45]

Добрый день.
Помогите плз.

На одном листе ("справочник") есть два столбца:
товар принадлежность
"яблоки" яблоки
яблоки. яблоки
яблоки_ яблоки
"груши" груши



На втором листе ("исходник") так:
Товар Продажи
"яблоки" 1 000
яблоки 2 000
яблоки 5 000
груши 7 000
апельсины 9 000
яблоки_ 21 000


Мне необходимо на основе справочника исправить название товар. Для этого делаю цикл по листу "исходники". Беру к примеру "яблоки" и перетаскиваю в ячейку на лист справочник, где в соседней ячейки прописана функция ВПР по 2 стодбцам справочника =ВПР(F19;$A:$B;2;0).
Функция ВПР возвращает яблоки (уже без ковычек) затем копирую на лист исходник и все хорошо.
Но если к примеру в имени товара ничего менять не надо, то впр выдаст #Н/Д. В макросе в условии (IF) не воспринимает и пишет ошибку: run time 13: type mismatch.
Помогите разобраться?

Сама прога:

Private Sub CommandButton2_Click()

stolb_proverka = TextBox1.Value ‘ задается столбец для проверки
col = TextBox2.Value ‘ новый столбец с исправленным названием
q_strok = TextBox3.Value ‘ кол-во строк


'заголовок
Sheets("исходник").Cells(1, col) = "Исправленный"

'цикл на исправление

For i = 2 To q_strok ' со второй строки начинаем
Sheets("справочник").Cells(19, "F") = Sheets("исходник").Cells(i, stolb_proverka) ‘ присваиваю для дальнейшей обработки ВПР

If Sheets("справочник").Cells(19, "G") <> "#Н/Д" Then
Sheets("исходник").Cells(i, col) = Sheets("справочник").Cells(19, "G")
End If
'если изменений нет, то оставляем название товара как есть
If Sheets("справочник").Cells(19, "G") = "#Н/Д" Then
Sheets("исходник").Cells(i, col) = Sheets("исходник").Cells(i, stolb_proverka)
End If
Next i
End Sub

p.s.
именно хочется сделать 1 цикл и ВПР. Через 2 цикла и без ВПР все работает.

спасибо

[alex77755]

Не совсем ясна задача, но может в одном цикле просто убрать ненужные символы(".", "_" и пр.)

Sub Нормализовать()
For j = 2 To Columns(1).Rows(65536).End(xlUp).Row
Cells(j, 1) = Replace(Cells(j, 1), ".", "")
Cells(j, 1) = Replace(Cells(j, 1), ",", "")
Cells(j, 1) = Replace(Cells(j, 1), "-", "")
Cells(j, 1) = Replace(Cells(j, 1), "_", "")
Cells(j, 1) = Replace(Cells(j, 1), """", "")
Next j
End Sub

[flacon45]

могут быть не только символы. А например так: "ябл.". Поэтому я и сделал справочник

[kuklp]

Мож проще:
If с Like "ябл*" then c=...
Понятно, что вместо "ябл*", адрес ячейки из словаря.

[alex77755]

могут быть не только символы. А например так: "ябл.".

Ну, на всякого мудреца... Если программно предусмотреть все возможніе описки, сокращения и просто безграмотное написание..
А если не груши, а гр.? Вметсто мандарины - ма-ны. Да мало ли кому что на ум вбредёт.

[kuklp]

А если еще проще - давайте Ваш файл-пример с реальным расположением данных(чтоб потом не было бесконечных уточнений) и с Вашим словарем. Рисовать за Вас пример, как видите, никто не спешит.

[Hugo121]

Так вроде просто 2 массива, цикл в цикле... сравнить - переписать. Без формул вообще.

[flacon45]

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

Так вроде просто 2 массива, цикл в цикле... сравнить - переписать. Без формул вообще.

мне хотелось решить эту задачу именно через ВПР. Что-то с типом - непонимаю. Файл прикреплю вечером
Так можно вообще без макросов просто функцией на листе исходник =ЕСЛИОШИБКА(ВПР(E2;справочник!A$2:B $75;2;0);E2).

[kuklp]

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

Так вроде просто 2 массива, цикл в цикле... сравнить - переписать. Без формул вообще.

Отож, возьми и напиши. А потом окажется, что данные расположены не так и не в том месте(и не такие). И на уточнение-переписку макросов уйдет трое суток. Без примера тут делать нефиг.

[Hugo121]

Я уже написал - может самому пригодится, или ещё куда. Жду примера для примерки
Вообще, этот справочник можно держать например в отдельном файле, даже например в текстовом, или в файле с макросом. И обрабатывать этим кодом выделенный диапазон, или столбец целиком.
Т.е. открыли инструмент (или даже иметь его всегда под рукой в Personal.xls), открыли кривой файл, выделили корявые названия - запустили код. Готово.