Я пытаюсь разработать код, который будет автоматически фильтровать поле, которое будет меняться от месяца к месяцу.
У меня есть пользовательская форма, в которой пользователь выбирает отчетный месяц, затем сценарий находит этот месяц в верхней части.структурированной таблицы, а затем опускается на 1 строку вниз, чтобы выбрать заголовок структурированной таблицы.после нажатия «ОК» в пользовательской форме.
Поскольку номер поля «столбец» будет меняться каждый раз, когда мне нужно будет ввести его в качестве переменной.Я пробовал несколько разных решений из постов других людей, но все же не повезло.
Я не помню все разные комбинации, которые я пробовал сейчас.
Private Sub cbOK_Click()
Sheets("Weekly Timesheet").Select
Sheets("Weekly Timesheet").Range("H5").Select
ActiveCell.value = cboRMonth.value
Unload Me
ReportMonth = cboRMonth.value
MsgBox ReportMonth
Sheets("Tracking (DAYS)").Select
Sheets("Tracking (DAYS)").Range("N2").Select
Do Until ActiveCell = ReportMonth
ActiveCell.Offset(0, 1).Select
Loop
ActiveCell.Offset(1, 0).Select
'Tells me what the name of the header is (just to make sure I've got the
right one selected).
Dim Col As String
Col = ActiveCell
MsgBox Col
Dim lCol As Long
lCol = ActiveCell.Column
ActiveSheet.ListObjects("Tracking_DAYS").Range(lCol).AutoFilter _
Criterial:=">0", _
Operator:=x1FilterValues
End Sub
I 'ожидая, что можно будет отфильтровать столбец таблицы на основе выходных данных пользовательской формы до значений больше 0.