다른시트의 데이터 검색하여 출력하기

- http://cafe.naver.com/excelmaster/131930

품번을 입력하면 

다른 시트의 데이터에서 일치하는 항목을 불러오는 고급필터 예제입니다.

Option Explicit
Sub mSearch()
'고급필터를 활용한 매크로입니다.
'A2에 품번을 입력하고 버튼을 누르면 품번에 맞는 자료를 가져옵니다.
 
    Dim 품목대장 As Worksheet
    Dim wsList As Worksheet
    Dim 조건 As Range
    Dim 출력위치  As Range
    
    Set 품목대장 = Sheets("품목대장")
    Set wsList = Sheets("list")
    Set 조건 = 품목대장.Range("A1:A2")
    Set 출력위치 = 품목대장.Range("A7:F7")
    
    wsList.Range("A1").CurrentRegion.AdvancedFilter xlFilterCopy, 조건, 출력위치, False
    
End Sub
 

고급필터.xlsm