'http://kin.naver.com/qna/detail.nhn?d1id=11&dirId=1128&docId=279404024
'
'회사에서 사용하는 프로그램을 자체적인 문제로 인해 더이상 사용할수 없게되어...여차여차 하여
'여튼 네이버를 뒤지다가 VBA를 통해서  엑셀 내에서 검색이 가능한로 확인하였습니다.
'근게 도통 알수가 없네요.... 혹시 초고수님들은 쉽게 하시지 않을까해서
'도움 요청 드립니다.

'대략 파일은 이러한데....제가 원하는건 업체명과 품명을 검색하면 모든정보가 나올수 있게가 가능한지
'궁금하며, 혹시 만들어 주실수 있으신지 입니다. ㅜㅜ



'고급필터를 이용한 검색
'데이터는 4행부터 있고 검색조건은 B1:C2에 있다는 가정하에서 아래의 코드를 수행해 보세요.
'B1:업체명칭,C1:품명
'B2:업체명입력, C2:품명입력
'
'source by 땡큐엑셀vba & 엑셀매크로
'
Sub 검색()
    
    '검색범위(A4:L20)는 알맞게 변경하시면 됩니다.
    '검색조건(B1:C2)
    Range("A4:L20").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("B1:C2"), Unique:=False
    
    
    MsgBox "완료 되었습니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
End Sub



Sub 전체보기()

    On Error Resume Next

    ActiveSheet.ShowAllData
    
End Sub