С Книги в Лист

[valerij]

Посоветуйте, у меня было так:

Private Sub Workbook_Open()
    With Application
        .EnableEvents = False
    .Run "Vniz"
    .Run "Vverh"
                .OnKey "{PGDN}", "Vniz"
            .OnKey "{PGUP}", "Vverh"
        .EnableEvents = True
    End With
End Sub

Но не удобно, тем, что в новых Листах, мне не нужен такой шаг, нужен другой.
Я убрал с книги этот код и пернес в Лист 3, так:

Private Sub WorksheetFunction()
    With Application
        .EnableEvents = False
    .Run "Vniz"
    .Run "Vverh"
                .OnKey "{PGDN}", "Vniz"
            .OnKey "{PGUP}", "Vverh"
        .EnableEvents = True
    End With
End Sub

Но все осталось по прежнему, шаг остался одинаков для всех листов, а ЧЕ?

[EducatedFool]

Этот код лишь назначает горячие клавиши для вызова макросов.

Тебе надо внести изменения в код макросов "Vniz" и "Vverh", а именно - добавить проверку активного листа.

Например:

Sub Vniz()
    Шаг = 50
    If ActiveSheet.Index = 3 Then Шаг = 55
    ' далее твой код
End Sub

Или так:

Sub Vniz()
    Шаг = 50
    If ActiveSheet.Name = "Лист3" Then Шаг = 55
    ' далее твой код
End Sub

[valerij]

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

Тебе надо внести изменения в код макросов "Vniz" и "Vverh"

Игорь, давай я прикреплю, посмотри, чета не поучается.
Когда Private Sub Workbook_Open(), скролл не работает, то, что надо, а если в Лист, скролл работает????

[EducatedFool]

Добавь в модуль ЭтаКнига:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Application.ScreenUpdating = False
    Vniz
    Vverh
End Sub

давай я прикреплю, посмотри, чета не поучается.

Что именно не получается?
Что и как пытался сделать?

[valerij]

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

Что именно не получается??

Все получилось, тока почему пустой лист2, исполняет макросы?
Делал так в прищепке