макрос перехода на заданный лист в excel

[Руслан Набиуллин]

Пр всем! Вот уже не мало времени пытаюсь замутить такой макрос, что бы он выполнял функцию перехода на заданный лист в Excel. Дело в том, что в моей базе оч много листов, где по каждому клиенту содержится информация! Мне очень неудобна переходить на нужный лист через стандартную функцию excel'я, занимает много времени... Так вот мне это представляется примерно так! В определенной ячейке листа "base", пусть "B1" вводится имя листа, пусть "132" (это 132 является так же и порядковым номером клиента!!!), нажимается enter и я перехожу на соответствующую 132 страницу и все такое!!!!! Кнопку back сделал! Если кто сможет ответить, то спасибо заранее !

[IgorGO]

вот это

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim s As String
  If Target.Row = 1 And Target.Column = 2 Then
    On Error Resume Next
    s = Cells(1, 2)
    Sheets(s).Select
    On Error GoTo 0
  End If
End Sub

выложить на лист, где в В1 будем писать название нужного листа.
Имя листа указано правильно - произойдет переходна него, неправильно - ничего не произойдет...

[vladtr]

Сообщение от Руслан Набиуллин

Пр всем! Вот уже не мало времени пытаюсь замутить такой макрос, что бы он выполнял функцию перехода на заданный лист в Excel. Дело в том, что в моей базе оч много листов, где по каждому клиенту содержится информация! Мне очень неудобна переходить на нужный лист через стандартную функцию excel'я, занимает много времени... Так вот мне это представляется примерно так! В определенной ячейке листа "base", пусть "B1" вводится имя листа, пусть "132" (это 132 является так же и порядковым номером клиента!!!), нажимается enter и я перехожу на соответствующую 132 страницу и все такое!!!!! Кнопку back сделал! Если кто сможет ответить, то спасибо заранее !

Возможно вы возьмете данный метод на вооружение...единственно помню, была проблема с именем листа (оно не должно было иметь пробелов, кажется - проверьте...)