フィルタテーブルとユーザーフォームによる値の挿入VBA

Question

最初の投稿ですので、形式のフィードバックが高く評価されています。私はUserformを使用してテーブルのセルに値を追加したいと思います。 Combobox Value 'filters' Col 1、Textbox 1 Value 'はCol 2をフィルタリングし、結果のCol 3はmy valueがtextbox2から入力するターゲットセルです。

以下のコードは、コンパイルエラーを示します：SubまたはFunction not defined（ "Where"が強調表示されています）。

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

がそれを手に入れました！以下のコードはテーブルをフィルタリングし、値を挿入します。マクロがコマンドボタンに添付されています。ダブル 'Autofilter'行はテーブルフィルタをクリアし、フィルタの矢印を戻します。

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