2017-06-06 38 views
0

我想使用userform/comboboxes過濾載體表。我收到「Sheets(」Carrier「)行上的錯誤。range.AutoFilter field:= 16,Criteria1:= ComboBoxA.value」。 「錯誤的參數數量或無效的財產分配」什麼是我的錯誤論據或無效的財產分配?

我jhave刪除了以前的問題,因爲我在半夜添加了不良信息。

公用Sub CommandButton1_Click()

Dim strCriteria1 As String 
Dim lastrow As Long, lastcol As Long 

With Me 
    Select Case True 
    Case ComboBoxA.value <> "": strCriteria1 = ComboBoxA.value 
    'Case ComboBox1.value <> "": strCriteria1 = ComboBox1.value 
    'Case Else: Exit Sub 
    End Select 
End With 

With Sheets("Carrier") 
    '.ClearAllFilters 
    lastrow = .Cells(Rows.count, "E").End(xlUp).Row 
    lastcol = .Cells(1, Columns.count).End(xlToLeft).Column 

    .AutoFilterMode = False 
    If ComboBoxA.value <> "" Then 
    Sheets("Carrier").range.AutoFilter field:=16, Criteria1:=ComboBoxA.value 
    End If 
End With 

末次

回答

1

您沒有提供參數給Range。例如。 Sheets("Carrier").range("A1").AutoFilter field:=16, Criteria1:=ComboBoxA.value

+0

表格(「載體」)。範圍(「A1:S20000」)。自動過濾字段:= 16,Criteria1:= ComboBoxA.value –

+0

我已經添加了該範圍但現在它不停止運行,但它過濾如預期。 –

相關問題