Всем привет.
Можете подсказать как изменить или написать новый макрос поиска значений.
Нужно чтобы он нашел все значения и если их больше 1 то запустить один макрос, иначе другой.
вот код который у меня есть. Он просто ищет значение на листе.
Можете подсказать как изменить или написать новый макрос поиска значений.
Нужно чтобы он нашел все значения и если их больше 1 то запустить один макрос, иначе другой.
вот код который у меня есть. Он просто ищет значение на листе.
| Код |
|---|
Dim myPhraseRB As Variant, myCellRB As Range
myPhraseRB = Trim(Range("D2").Value)
Set myCellRB = Worksheets("Авария").Range("A1:A20000").Find(What:=myPhraseRB, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not myCellRB Is Nothing Then
toMail = Worksheets("Авария").Cells(myCellRB.Row, 2).Value
Else
MsgBox "Авария не найдена !"
End If
|
