다른 워크 시트의 ActiveCell 기반 필터 적용

Question

다음 VBA 코드는 "SCU"라는 워크 시트에 위치하고 셀 "C4"는 필자가 필터링하려는 정보입니다. "C4"를 두 번 클릭하면 "Account Data"시트로 이동하여 활성 셀을 필터링하려고 시도하지만 별도의 워크 시트에 있기 때문에 잘못된 데이터가 필터에 나타납니다 (" 은 "SCU"워크 시트를 심판 할 수있는 방법이 있는지 SCU)이 궁금 해서요?

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 

당신이 시트의를 ActiveCell 변경을 선택하면 당신은! 마이크 포스터

Answer 1

을 도울 수 있기를 바랍니다.

시도

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

또는 필터 셀은 동적이기 때문에이 후 자세한 내용을 제공, 작동하지 않는 경우 우리가 더 나은 솔루션을 가지고 올 수 있도록 선택적으로

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

를 사용합니다.