Гиперссылка + фильтр. Переход на другой лист при нажатии на сумму в таблице

@Grnh · Регистрация: 29.06.2022

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

Здравствуйте! Интересует макрос при котором можно осуществить следующую задумку: Есть таблица на листе ОСТАТКИ в ней столбцы Наименование (В), Поступление (F), Отгрузка(G), Списание(H). В столбцах Поступление, Отгрузка, Списание хранится сумма по каждой позиции из других листов. Нужен макрос при котором при нажатии на эту сумму на листе ОСТАТКИ например .(F4), а не наименование (B4), меня перекидывало бы на лист Приход где срабатывал бы фильтр по столбцу Наименование (В) в соответствии со столбцом Наименованием (B) на листе ОСТАТКИ. Нашла Макрос как перейти на фильтр только из столбца Наименование.1.xlsx

@Vlad999 · 29.06.2022, 14:36

код вставлять в модуль листа ОСТАТКИ. срабатывание на двойной клик по ячейке диапазона "F4:F27"

Visual Basic

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Name As String
Cancel = True
'если активная ячейка не принодлежит диапазону "F4:F27" то выход из процедуры
If Intersect(Range("F4:F27"), Target) Is Nothing Then Exit Sub
 
Name = Target.Offset(, -4).Text
Sheets("Приход").Activate ' активируем лист Приход
ActiveSheet.Range("$A$3:$J$35").AutoFilter Field:=2 ' снимаем фильтр со 2-ого столбца таблицы
ActiveSheet.Range("$A$3:$J$35").AutoFilter Field:=2, Criteria1:=Name ' ставим фильтр во 2-ом столбце таблицы с критерием.
 
End Sub

Это хотели?

@Grnh · 29.06.2022, 14:53 **[ТС]**

Спасибо огромное! Все отлично работает)

Добавлено через 7 минут
А если мне нужно будет добавить еще одну вкладку по тому же принципу, например "Расход" и столбец расходов на листе ОСТАТКИ?

@Vlad999 · 29.06.2022, 15:00

макрос нужно будет корректировать.

@Grnh · 29.06.2022, 15:11 **[ТС]**

А не подскажите как?

@Vlad999 · 29.06.2022, 15:14

типа этого.

Visual Basic

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Name As String, NList As String
Cancel = True
'если активная ячейка не принодлежит диапазону "F4:H27" то выход из процедуры
If Intersect(Range("F4:H27"), Target) Is Nothing Then Exit Sub
 
Name = Cells(Target.Row, 2).Text
If Cells(3, Target.Column).Text = "Поступление" Then
    NList = "Приход"
    ElseIf Cells(3, Target.Column).Text = "Отгрузка" Then
        NList = "Расход"
        Else
        NList = "Списание"
End If
Sheets(NList).Activate ' активируем лист Приход
ActiveSheet.Range("$A$3:$J$35").AutoFilter Field:=2 ' снимаем фильтр со 2-ого столбца таблицы
ActiveSheet.Range("$A$3:$J$35").AutoFilter Field:=2, Criteria1:=Name ' ставим фильтр во 2-ом столбце таблицы с критерием.
 
End Sub

@Grnh · 29.06.2022, 15:19 **[ТС]**

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

Гиперссылка + фильтр. Переход на другой лист при нажатии на сумму в таблице

Решение

Решение

@Grnh 0 / 0 / 0 Регистрация: 29.06.2022 Сообщений: 8
		1
	Гиперссылка + фильтр. Переход на другой лист при нажатии на сумму в таблице 29.06.2022, 11:52. Показов 1957. Ответов 6 Метки гиперссылка, поиск, фильтр (Все метки) Здравствуйте! Интересует макрос при котором можно осуществить следующую задумку: Есть таблица на листе ОСТАТКИ в ней столбцы Наименование (В), Поступление (F), Отгрузка(G), Списание(H). В столбцах Поступление, Отгрузка, Списание хранится сумма по каждой позиции из других листов. Нужен макрос при котором при нажатии на эту сумму на листе ОСТАТКИ например .(F4), а не наименование (B4), меня перекидывало бы на лист Приход где срабатывал бы фильтр по столбцу Наименование (В) в соответствии со столбцом Наименованием (B) на листе ОСТАТКИ. Нашла Макрос как перейти на фильтр только из столбца Наименование.1.xlsx 0

@Grnh 0 / 0 / 0 Регистрация: 29.06.2022 Сообщений: 8
	29.06.2022, 14:53 [ТС]	3
	Спасибо огромное! Все отлично работает) Добавлено через 7 минут А если мне нужно будет добавить еще одну вкладку по тому же принципу, например "Расход" и столбец расходов на листе ОСТАТКИ? 0

@Vlad999 3917 / 2315 / 784 Регистрация: 02.11.2012 Сообщений: 6,158
	29.06.2022, 15:00	4
	макрос нужно будет корректировать. 0

@Grnh 0 / 0 / 0 Регистрация: 29.06.2022 Сообщений: 8
	29.06.2022, 15:11 [ТС]	5
	А не подскажите как? 0

@Grnh 0 / 0 / 0 Регистрация: 29.06.2022 Сообщений: 8
	29.06.2022, 15:19 [ТС]	7
	Большое спасибо!) 0