Я хочу создать поле ввода для пользователей, чтобы выбрать ячейку, и макрос отфильтрует некоторые внешние данные по выбору пользователей.
Я хочу добавить проверку к выбору, чтобы пользователи могли тольковыберите ячейку со значением «ИСТИНА» и только в определенном диапазоне, например столбец «Диапазон» («J4: J100»)
Код на данный момент:
Dim rng As Range
Set rng = Range("J4:J100")
Dim criteria1 As Range
Set criteria1 = Application.InputBox("Select a range", "Obtain Range Object", Type:=8)
Dim criteria2 As String
criteria2 = criteria1.Offset(0, -9)
Dim ws As Worksheet
Set ws = Worksheets("Reference_log")
ws.Select
Dim LastRow As Long
LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
Dim LastColumn As Long 'Find the last non-blank cell in row 2
LastColumn = Cells(2, Columns.Count).End(xlToLeft).Column
Set Rng1 = Cells(2, 8)
Set Rng2 = Cells(LastRow, LastColumn)
ActiveSheet.Range(Rng1, Rng2).AutoFilter Field:=2, criteria1:=Array("*" & criteria2 & "*"), Operator:=xlFilterValues