Фильтрация данных по условию в ячейке

Фильтрация данных по условию в ячейке, vba, macro

Пользователь

Сообщений: 202 Регистрация: 07.09.2015

07.01.2020 16:41:14

Здравствуйте,

Подскажите как можно сделать вот такое.

List1 - Выберается период от P01 до P16
List3 - Отфильтровывается соответствующий период, если ячейка = "x"
List2 – Вспомогательный лист

Фиал прикреплен.

С темой сообщения не уверен. Прошу простить.

Код

Sub test()
Dim ws As Worksheet
Dim filterColumn As Integer

        Set ws = ActiveSheet
        filterColumn = ActiveWorkbook.Sheets("cover").Range("A2").Value

        ws.ListObjects("Table1").Range.AutoFilter Field:=filterColumn, Criteria1:="<>"
End Sub

Спасибо всем кто отзовется.

Прикрепленные файлы

test.xlsm (18.82 КБ)

Изменено: Alex D - 07.01.2020 18:34:45

ocet p

Пользователь

Сообщений: 448 Регистрация: 24.03.2018

07.01.2020 23:52:40

Например:

Код

Option Explicit

Sub test1()
    Const crit = "x"
    
    With ThisWorkbook
        Dim prd: prd = .Sheets("List1").Range("B5").Value
        prd = Replace(Replace(prd, "P", "", 1, -1, 1), "0", "", 1, -1, 1) + 2
        .Sheets("List3").ListObjects("Table1").Range.AutoFilter Field:=prd, Criteria1:="=" & crit
    End With
End Sub