Отображение сообщения и переход к найденной записи

[moonlightchild]

Уважаемые программисты, пожалуйста  помогите с макросом.

При нажатии на кнопку на Лист1 должно отображаться сообщение типа "Истек срок действия удостоверения № " и выводиться список просроченных удостоверений(Удостоверение просрочено если в столбце I ячейка принимает значение "Истек срок"). И желательно чтобы была возможность перехода к этим записям нажатием на кнопку "Далее" или "перейти"

Файл пример прилагается.
Спасибо!

[kuklp]

Зачем так усложнять?

Код Выделить Развернуть

Sub Кнопка3_Щелчок()
    Dim l As Byte, MyFile As String
    Dim n As Integer
    If Application.WorksheetFunction.CountIf([I3:I1000], "Истек срок") Then
        If ActiveSheet.AutoFilterMode Then
            ActiveSheet.AutoFilterMode = 0
        Else
            [a1].CurrentRegion.Columns(9).Offset(1).AutoFilter 1, "Истек срок", , , 0
            '          MsgBox "Истекает срок действия удостоверения №"
        End If
    End If
End Sub