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

Автор moonlightchild, 05.07.2012, 17:25

« назад - далее »

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
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771