Sub 드롭다운6_Change() Dim strCriteria As String Dim shtTarget As Worksheet: Set shtTarget = Sheets("타자") Dim shtFilter As Worksheet: Set shtFilter = Sheets("자동필터") Select Case shtFilter.Range("B7").Value Case 1 strCriteria = "좌타" Case 2 strCriteria = "우타" End Select shtTarget.Activate shtTarget.Range("$A$3:$Y$27").AutoFilter Field:=2 shtTarget.Range("$A$3:$Y$27").AutoFilter Field:=2, Criteria1:=strCriteria End Sub
안녕하세요? 하이버리님..
반갑습니다.. ^^
첨부파일을 참고하세요..
다운 받기 : abyul.com_20111210_autofilterByComboBox-1.xlsm
Sub 드롭다운6_Change()
Dim strCriteria As String
Dim shtTarget As Worksheet: Set shtTarget = Sheets("타자")
Dim shtFilter As Worksheet: Set shtFilter = Sheets("자동필터")
Select Case shtFilter.Range("B7").Value
Case 1
strCriteria = "좌타"
Case 2
strCriteria = "우타"
End Select
shtTarget.Activate
shtTarget.Range("$A$3:$Y$27").AutoFilter Field:=2
shtTarget.Range("$A$3:$Y$27").AutoFilter Field:=2, Criteria1:=strCriteria
End Sub