Таблица фильтров и значение вставки по Userform VBA

Question

Первое сообщение, поэтому отзывы о формате оцениваются. Я хочу добавить значение в ячейку таблицы, используя Userform. Combobox Value 'filters' Col 1, Textbox 1 Фильтры Value Col Col 2 и итоговый Col 3 - это целевая ячейка для ввода моего значения из текстового поля2.

Код ниже Показывает ошибку компиляции: Sub или Function not defined («Где» выделено).

Private Sub CommandButton1_Click() 

Dim tbl As ListObject 
Sheets("Sheet5").Activate 
Set tbl = ActiveSheet.ListObject("Table1") 
    With tbl.DataBodyRange.Cells(12, tbl.ListColumns("Cost").Index) 
     .Value = TebxtBox2 
      Where tbl.DataBodyRange.Cells(0, tbl.ListColumns("Friendly Name").Index) = ComboBox.Value _ 
       And tbl.DataBodyRange.Cells(11, tbl.ListColumns("Height").Index) = TextBox1.Value 
    End With 



End Sub 

Спасибо .....

Answer 1

Понял! Код ниже фильтрует таблицу и вставляет значение. Макрос прикрепляется к кнопке Command. Двойной фильтр «Автофильтр» очищает фильтр таблицы, а затем добавляет стрелки фильтра назад.

Private Sub CommandButton1_Click() 

    Dim skn As ListObject 
    Set skn = ActiveSheet.ListObjects("Table1") 
     With skn 
     .Range.AutoFilter Field:=1, Criteria1:="Item 1" 
     .Range.AutoFilter Field:=12, Criteria1:="80.5" 
     .DataBodyRange.Columns(13).SpecialCells(xlCellTypeVisible).Select 
     Selection.Value = 12 
     .Range.AutoFilter 
     .Range.AutoFilter 


    End With 
End Sub