Добрый день!
Есть макрос, который по столбцу "М" осуществляет поиск по ключевому слову "Оставлено без движения". Найдя, ячейки, в которых есть указанное словосочетание необходимо вывести в msgbox текст из ячеек столбца "J".
Т.е. если макрос нашел, что в ячейках "М9" и "М11" содержится "Оставлено без движения", то в msgbox выводится текст из ячеек "J9" и "J11".
В настоящее время получилось только добиться, что макрос дает ссылки на ячейки в которых осуществляет поиск.
Есть макрос, который по столбцу "М" осуществляет поиск по ключевому слову "Оставлено без движения". Найдя, ячейки, в которых есть указанное словосочетание необходимо вывести в msgbox текст из ячеек столбца "J".
Т.е. если макрос нашел, что в ячейках "М9" и "М11" содержится "Оставлено без движения", то в msgbox выводится текст из ячеек "J9" и "J11".
В настоящее время получилось только добиться, что макрос дает ссылки на ячейки в которых осуществляет поиск.
| Код |
|---|
Sub FindererBezDvizheniya()
Dim FD, firstAddress, adrs
FD = "Оставлено без движения"
If FD = "" Then Exit Sub
Dim c As Range: Set c = Range("M:M").Find(FD)
If c Is Nothing Then MsgBox "В базе данных excel отсутствуют признаки о наличии заявлений, оставленных без движения!", vbInformation: Exit Sub
firstAddress = c.Address
c.Select
Do
adrs = adrs & vbLf & c.Address(0, 0)
Union(Selection, c).Select
Set c = Range("M:M").FindNext(c)
Loop While c.Address <> firstAddress
MsgBox "Имеются дела с признаком """ & FD & """" _
& vbCr & "" _
& vbCr & "В связи с этим рекомендуется проверить сроки и устранить недостатки!" _
& vbCr & "" _
& vbCr & adrs, vbExclamation
End Sub
|
Изменено: - 09.04.2022 20:37:18
