использование Like - в чем проблема?

[kievlyanin]

задача:

есть область (Range("Name_for_del")) куда заносятся слова по которым в проверяемой области будет проводится подчистка данных.

сравниваю через Like, но пробовал и "=" результат одинаковый - никакого... т.е. если искать по одному слову то результата нет а если искать по всей ячейке, то работает.

а мне надо чтобы искало только по одному слову!


вот код:

With Sheets("70")
.Cells(1, "J").PasteSpecial Paste:=xlPasteValues
a = .Range("Name_for_del").Value
b = .Range(.Cells(5, "K"), .Cells(.Cells(65000, "K").End(xlUp).Row, "K")).Value
Application.Calculation = xlManual 

For j = 1 To UBound(a, 1)
  For k = 1 To UBound(b, 1)

If  "*" & a(j, 1) & "*"  Like b(k, 1) Then

.Range(.Cells(k + 4, "J"), Cells(k + 4, "L")).ClearContents
End If
Next k
Next j
Application.Calculation = xlAutomatic

как сделать чтобы по ключевому слову, например: "товар1" ячейка с текстом "товар1 №контракта 333" или " №контракта 333 товар1с НДС" или другое сочетание таки находилось???

[The_Prist]

Есть подозрение, что Вы перепутали местами что с чем сравнивать. Должно быть

If a(j, 1) Like "*" & b(k, 1) & "*" Then

где
b(k, 1) = "товар1"
a(j, 1) = "товар1 №контракта 333"
Если у Вас также, но не работает, возможно совпадения действительно нет...

[kievlyanin]

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

Есть подозрение, что Вы перепутали местами что с чем сравнивать. Должно быть

If a(j, 1) Like "*" & b(k, 1) & "*" Then

где
b(k, 1) = "товар1"
a(j, 1) = "товар1 №контракта 333"
Если у Вас также, но не работает, возможно совпадения действительно нет...

да попутал .. но наоборот тоже не работает ... это просто код выолжил уже х/з какой варинт уже пробую че тока в голову не взбредет ... ща исправлю

[kievlyanin]

блин .. тут что-то неправильно с синтаксисом *
если убирать * и в список ставить полное значение удаляемой ячейки - работает! .. если оставить только часть и приписать "*" то не работает ...

как это правильно написать???

[The_Prist]

А что если обойтись без цикла?

dim rFndRng as range,a as range,b as range,rCell as range
With Sheets("70")
.Cells(1, "J").PasteSpecial Paste:=xlPasteValues
set a = .Range("Name_for_del")
set b = Range(.Cells(5, "K"), .Cells(.Cells(65000, "K").End(xlUp).Row, "K"))
Application.Calculation = xlManual
Application.ScreenUpdating = False
for each rCell in a
set rFndRng = b.find(what:=rCell,lookin:=xlvalues,lookat:=xlPart)
if not rFndRng is nothing then Range(.Cells(rFndRng.row + 4, "J"), .Cells(rFndRng.row + 4, "L")).ClearContents
next rCell
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End with

Как-то так

[The_Prist]

А у Вас в этой строчке

.Range(.Cells(k + 4, "J"), Cells(k + 4, "L")).ClearContents

ошибки не возникало случаем? Потому как у Вас отсутствует "." перед второй Cells. Может у Вас обработчик ошибок On error resume Next стоит перед кодом?

[kievlyanin]

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

А у Вас в этой строчке

.Range(.Cells(k + 4, "J"), Cells(k + 4, "L")).ClearContents

ошибки не возникало случаем? Потому как у Вас отсутствует "." перед второй Cells. Может у Вас обработчик ошибок On error resume Next стоит перед кодом?

точку поставлю, но ошибок не возникало - лист на котором работает код - активный, там можно собсно и без точек.

а вариант без цикла щас проверю.

[kievlyanin]

блин .. сдаюсь ..

вот тренировочный файл с примером.

Есть два варианта с циклом (мое) и без цикла от The_Prist.

в обоих случаях проблемы

мое вообще не работает а второй вариант работает странно - удаляет все как надо, но почему то код надо два раза запускать... т.е. где-то что-то не так.

[kievlyanin]

up!

все еще не решил задачку