Выделение цветом найденой строки

[tanyshenka09]

Есть макрос поиска значения в таблице
Sub Finderer()
Dim FD, firstAddress, adrs
FD = InputBox("ВВЕДИТЕ ИСКОМОЕ СЛОВО ИЛИ ЧИСЛО", "Мой поиск")
If FD = "" Then Exit Sub ' если пользователь нажал кнопку ОТМЕНА - отказ от поиска
Dim c As Range: Set c = Range("A:A").Find(FD) ' поиск данных
' если ничего не нашли - выход из макроса
If c Is Nothing Then MsgBox "Искомые данные не найдены", vbExclamation: Exit Sub
firstAddress = c.Address
c.Select
Do
adrs = adrs & vbLf & c.Address(0, 0)
Union(Selection, c).Select
Set c = Range("A:A").FindNext(c)
Loop While c.Address <> firstAddress

MsgBox "Значение """ & FD & """ найдено в ячейке (ячейках):" & adrs, vbInformation
End Sub

Когда слово найдено в таблице, то оно выделяется рамочкой и пишут адрес ячейки в которой найдено это слово, но мне нужно чтобы эта ячейка выделялась цветом.Подскажите, что нужно дописать в исходный макрос
И если не затруднит, то напишите пожалуйста, какая строка отвечает за какое действие, многое не могу объяснить, к сожалению

[kuklp]

Добавьте перед MsgBox "Значение """ & FD & """ найдено...:
Selection.interior.colorindex=3

[tanyshenka09]

Большое Вам спасибо.Очень помогли мне!

[tanyshenka09]

А возможно ли сделать так, чтобы при повторном поиске прошлое выделение не оставалось?

[kuklp]

В начало макроса:
cells.interior.colorindex=xlnone

[Lihodej]

Скажите, пожалуйста, как сделать так - чтобы окно после поиска и выделения не закрывалось (просто выделалась найденная ячейка). Тесть чтобы окно с запросом данных выводилось и дальше до момента когда значение не будет найдено, тогда сообщение об ошибке. А если бы ещё сделать так, чтобы когда значение найдено - то в колонке «М» этой же строчки ставилась единичка (для последующей фильтрации).
Заранее благодарен!!!

[staniiislav]

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

Скажите, пожалуйста, как сделать так - чтобы окно после поиска и выделения не закрывалось (просто выделалась найденная ячейка). Тесть чтобы окно с запросом данных выводилось и дальше до момента когда значение не будет найдено, тогда сообщение об ошибке. А если бы ещё сделать так, чтобы когда значение найдено - то в колонке «М» этой же строчки ставилась единичка (для последующей фильтрации).
Заранее благодарен!!!

наверное тогда вам нужно делать через форму