Перенаправление на другой лист при нажатии на нужную ячейку

@santa123 · Регистрация: 08.06.2015

Author24 — интернет-сервис помощи студентам

Задумка была следующая есть два листа в одном расчет по помещениям в другом сводная условно таблица, так вот требуется при нажатии рядом с номером помещения например в столбце А перейти на лист расчетов и открыть нужный расчет.

Пытался реализовать с помощью поиска вроде бы все понятно но вылезает ошибка 91 постоянно точнее то вылазит то нет.
Если есть знатоки просьба помочь

@Vovchikvsb · 08.06.2015, 18:27

Вот код измененной процедуры

Visual Basic

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
 
 If Not Intersect(ActiveCell, Range("A1:A15")) Is Nothing Then
  
Dim address As String
Dim a As String
address = ActiveCell
If address = "" Then Exit Sub  'добавил
 
 
 
 
 
    Dim rngFind As Excel.Range
    'Поменял "E1:E333" на "D1:D333"
    Set rngFind = Worksheets(1).Range("D1:D333").Find(What:=address, LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False)
If rngFind Is Nothing Then Exit Sub 'добавил
Set WS1 = ActiveSheet
Set WS2 = ActiveWorkbook.Sheets(1)
 
WS2.Activate
 
       rngFind.Select
       
End If
       
End Sub

@santa123 · 08.06.2015, 18:37 **[ТС]**

Благодарю за оперативную помощь!!
А не подскажете еще такой момент как возможно сделать что бы при нажатии на столбец А 1 он брал аргумент для поиска изменяя столбец форме activecell(x.y)=a(x.y +2) чтоб не надо было приравнить один столбец другому
P.s. Извиняюсь если коряво написал недавно в vba

@Vovchikvsb · 08.06.2015, 18:44

Примените Offset к ActiveCell.

Visual Basic

1	address = ActiveCell.Offset(, 2).Value

@santa123 · 08.06.2015, 18:58 **[ТС]**

Большое спасибо!!

@Vovchikvsb · 08.06.2015, 18:59

Не за что

@santa123 0 / 0 / 0 Регистрация: 08.06.2015 Сообщений: 3
	08.06.2015, 18:37 [ТС]	3
	Благодарю за оперативную помощь!! А не подскажете еще такой момент как возможно сделать что бы при нажатии на столбец А 1 он брал аргумент для поиска изменяя столбец форме activecell(x.y)=a(x.y +2) чтоб не надо было приравнить один столбец другому P.s. Извиняюсь если коряво написал недавно в vba 0

@santa123 0 / 0 / 0 Регистрация: 08.06.2015 Сообщений: 3
	08.06.2015, 18:58 [ТС]	5
	Большое спасибо!! 0

@Vovchikvsb 466 / 123 / 61 Регистрация: 04.03.2015 Сообщений: 325
	08.06.2015, 18:59	6
	Не за что 0