나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 참서리 (k5953)

추천:  2
파일:     filtering_auto_advanced.xlsm (33.6KB) 조회:  1379
제목:   [RE]입력값으로 검색하여 데이터 불러오기 도와주세요
　 　 　
　
Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Target.Address(False, False) = "M1" Then Exit Sub
    On Error Resume Next
        Sheet2.ShowAllData
    On Error GoTo 0
    'auto filtering
    Dim sKey As String
    If Target.Value = "All" Then
        sKey = "*"
    Else
        sKey = "=*" & Target.Value & "*"
    End If
    
    ActiveSheet.Range("$A$1:$J$15").AutoFilter Field:=9, Criteria1:=sKey
    

End Sub

  


Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Target.Address(False, False) = "C2" Then Exit Sub
 ' 기존 자료 삭제
    Range("A4").CurrentRegion.Clear
    
    Sheets("DB (3)").Range("A1:J15").AdvancedFilter _
    Action:=xlFilterCopy, _
    CriteriaRange:=Range("D1:D2"), CopyToRange:=Range("A4"), Unique:=False
    
End Sub 		　
[불량 게시물 신고]  
참서리다음 YouTube 동영상에 자세히 설명되어 있습니다.
https://youtu.be/8dXdwkeYbjI		06-01 (01:44)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2019-06-01(01:44)
최종수정일 : 2019-06-01(01:44)
　


 ◎ 관련글
  제 목   작성자   날짜
입력값으로 검색하여 데이터 불러오기 도와주세요 엑세스 2019-05-31
◎ [RE]입력값으로 검색하여 데이터 불러오기 도와주세요 참서리 2019-06-01