첨부된 파일을 열어보면 보고서Sheet의 콤보박스 (B7)을 선택하면 (좌타
선택시) 타자
Sheet에
있는 데이터들중에 좌타 선수들의 전체 데이터가 타자Sheet에
필터 되어
표시되는 방법을 찾고 있습니다. VBA를 사용해야 할텐데 도무지 감이 안잡히네요.. 사용버전은 엑셀 2010 버전 입니다
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
![[레벨:0]](http://www.abyul.com/zbxe/modules/point/icons/default/0.gif "포인트:47point (52%), 레벨:0/30"){kind=icon}
하이버리
![[레벨:30]](http://www.abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:141749point, 레벨:30/30"){kind=icon}
아별
안녕하세요? 하이버리님..
반갑습니다.. ^^
첨부파일을 참고하세요..
다운 받기 : 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