not Like в VB

[kuznetsovSergey]

всем привет, прошу помоще напомнить ))

есть код:

Код: Выделить всё

If Sheets("CSL Daily KA").Cells(1, 5).Text Like "*0741*" Then
Range("E1:E" & CStr(stroka)).Select

Вот надо что бы делало тоже самое но, не в случае если он найдет 0741 в ячейке, а если он не найдет. Вот что бы долго время не терять, решил спросить, может кто то помнит или знает =)

спасибо заранее)

[SAS888]

Вариант 1:

Код: Выделить всё

If Not Sheets("CSL Daily KA").Cells(1, 5).Text Like "*0741*" Then Range("E1:E" & CStr(stroka)).Select

Вариант 2:

Код: Выделить всё

If Sheets("CSL Daily KA").Cells(1, 5).Text Like "*0741*" Then Else Range("E1:E" & CStr(stroka)).Select

[kuznetsovSergey]

просто нужно много условий, ну не "*0741*" не "*0742*" не "*0743*" и так далее

[SAS888]

А почему тогда *0741* не поменять на *074*

[kuznetsovSergey]

ну потому что там есть и 0812 ))
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
мне нужно как то задать условие так, чтобы не было всех меня интересующих значений. Потому что это условие, хотел использовать как проверку. Потому что если я оганичу предположи наличие значени *07* то есть шанс, что в проверку и пролетит новое значение. Ну пример я отслеживаю на появление новго числа 0706
я проверяю что бы не было ни 0701 ни 0702 ни 0703 ни 0704 ни 0705. Естейственно условие не равное *07* не подойдет, потому что 0706 тоже подходит под это условие.
Поэтоу и обратился на форуме,потому что не лезет в голову. как это условие можно реализовать?
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
нашёл решение , спасибо всем за помощь !