Excel VBA Autofilter字段作为变量

Question

我正在尝试开发一个代码，该代码将自动过滤字段，并且每个月都会更改。

我有一个用户窗体，用户可以在其中选择报告月份，然后脚本在结构化表格的顶部找到该月份，然后下拉1行以选择结构化表格的标题。点击用户表单上的“确定”。

由于每次我需要将其作为变量输入时，字段号“ column”都会改变。我尝试了与其他人的帖子不同的解决方案，但还是没有运气。

我不记得我现在尝试过的所有不同组合。

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

我希望能够根据用户表单的输出将表的列过滤为大于0的值。