VBA - ダイナミックレンジを持つコンボボックスを充填

Question

私はComboBox1に問題があります。私は、たくさんのデータを見やすくするためにいくつかの隠しフィルタを作成しようとしています。入力選択はこの処理されたデータの一部です。

ここに私がComboBoxに値を書き込むために書き込もうとしたコードがありますが、それはMethodの間違った使い方であるというエラーが出てきます。

Sub ComboBox1_DropButton_Click() 
Dim i As Range 

With Sheets("Pipe 16") 
Set i = .Range("G5:G" & .Range("G" & .Rows.Count).End(xlUp).Row) 
End With 
Me.ComboBox1.ListFillRange = "i" 

End Sub 

助けてください。

EDIT

これはListFillRangeが範囲のアドレスではない範囲自体を受け入れるDynamically set ListFillRange in Excel ComboBox using VBA

Answer 1

に示すの答えで答えることができません。

Sub ComboBox1_DropButton_Click() 

    Dim i As Range 

    With Sheets("Pipe 16") 
     Set i = .Range("G5:G" & .Range("G" & .Rows.Count).End(xlUp).Row) 
    End With 
    Me.ComboBox1.ListFillRange = i.Address 

End Sub