別のワークシートでActiveCellに基づいてフィルタを適用する

Question

次のVBAコードは「SCU」と呼ばれるワークシートにあり、セル「C4」はフィルタリングしたい情報です。 "C4"をダブルクリックすると、 "Account Data"シートが表示され、アクティブなセルをフィルタリングしようとしますが、別のワークシート上にあるので、フィルタで間違ったデータを取得します（ " SCU）「SCU」のワークシートをREFに方法がある場合、私は不思議でしたか？

Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean) 
If Intersect(Target, Range("C4")) Is Nothing Then 
Else 
    Sheets("Account Data").Select 
    Selection.AutoFilter Field:=1, Criteria1:=ActiveCell 
End With 
End If 
End Sub 

はあなたが役立つことを願って！ マイク・フォスター

Answer 1

あなたはシートを選択すると、ActiveCellの変化します。

試行

Criteria1:=Intersect(Target, Sheets("SCU").Range("C4")) 

または代わりに、これは、フィルタセルは動的であるため、私たちはより良い解決策を考え出すことができるように、そして、より多くの詳細を与える動作しない場合

Criteria1:=Sheets("SCU").Range("C4") 

を使用しています。