Страницы: 1
RSS
Фильтр умной таблицы по значению отдельной ячейки., Необходимо, чтобы таблица провела фильтрацию значений в соответствии со значением (запросом), который указан в другой ячейке, которая не является частью умной таблицы.
 
Друзья, нужна помощь или совет!
Есть таблица по выдаче гуманитарной помощи нуждающимся семьям, данные которых вносятся в таблицу.
Нужно, чтобы при вводе в ячейку А1 порядкового номера семьи, фильтр умной таблицы отображал только ту семью, которой порядковый номер введён в ячейку А1.
Подскажите, какие есть варианты решения.
Спасибо!
 
Я далеко не опытный, как местные, но от безделья попробовал.  :)
Подождите решения других пользователей.

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cell As Range
Dim LR As Long

LR = Range("B" & Rows.Count).End(xlUp).Row
For Each Cell In Range("A4:A" & LR)
If Range("A1") = vbNullString Then
Cell.EntireRow.Hidden = False
Else:
Cell.EntireRow.Hidden = Cell.Value <> Range("A1")
End If
Next Cell
End Sub


Гум.Помощь (1).xlsm (21.18 КБ)
Изменено: jiumohoo - 10.07.2022 22:30:25
 
Power Query:
Код
let
    номер = Table.TransformColumnTypes(Excel.CurrentWorkbook(){[Name="номер"]}[Content],{}),
    Источник = Excel.CurrentWorkbook(){[Name="УТ_ЗаказПокупателя"]}[Content],
    #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Номер семьи", Int64.Type}, {"ФИО", type text}, {"Город", type text}, {"Дата рождения", type datetime}, {"Пол", type text}, {"Соц.защита", type text}, {"Пенсионер", type text}, {"Инвалидность", type text}, {"Продуктовый Набор", type text}, {"Подпись о получении", type any}, {"Примечание", type any}}),
    #"Строки с примененным фильтром" = Table.SelectRows(#"Измененный тип", each ([Номер семьи] = номер[Column1]{0}))
in
    #"Строки с примененным фильтром"

Макрос:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    f = Target.Text
    If Target.Address = "$A$1" Then
        If Target.Text = "" Then
        ActiveSheet.ListObjects("УТ_ЗаказПокупателя5").Range.AutoFilter Field:=1
        Else
        ActiveSheet.ListObjects("УТ_ЗаказПокупателя5").Range.AutoFilter Field:=1, Criteria1:=Target.Value
        End If
    End If
End Sub
 
Попробовал, вроде бы работает как нужно.
Отлично, большое спасибо! ;)  
 
Отлично, тоже работает. Спасибо большое!
 
Оба варианта рабочие!
Спасибо друзья!  
Страницы: 1
Наверх