이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
글 수 822
![[레벨:1]](http://www.abyul.com/zbxe/modules/point/icons/default/1.gif "포인트:161point (26%), 레벨:1/30"){kind=icon}
speena메인시트에 있는 P12:P20범위에 있는 Ⅰ～F를 누르면 하이퍼링크로 타입리스트 시트로 이동해서 선택한 값을 타입리스트 시트의 오토필터값으로 설정하고 싶은데요.
Ⅰ을 누르면 하이퍼링크로 타입리스트 시트로 이동 오토필터값이 ⅠⅡ을 누르면 하이퍼링크로 타입리스트 시트로 이동 오토필터값이 Ⅱ
Range("P12：P20")의 내용 변경이 아니라 Range("P12：P20")의 셀을 선택하면 실행되는 VBA를 만들고 싶은데 어떻게 하면 될까요.
알려주시면 감사하겠습니다.
참고했던 코드입니다.
Private Sub worksheet_selectionchange(ByVal Target As Range)
Dim strCriteria As String
If Not Application.Intersect(Target, Range("P12：P20")) Is Nothing Then
strCriteria = taget.Value
With Worksheets("typelist")
.Range("$A$2:$P$113").AutoFilter Field:=6, Criteria1:=strCriteria
.Activate
End With
End If
End Sub
Ⅰ을 누르면 하이퍼링크로 타입리스트 시트로 이동 오토필터값이 ⅠⅡ을 누르면 하이퍼링크로 타입리스트 시트로 이동 오토필터값이 Ⅱ
Range("P12：P20")의 내용 변경이 아니라 Range("P12：P20")의 셀을 선택하면 실행되는 VBA를 만들고 싶은데 어떻게 하면 될까요.
알려주시면 감사하겠습니다.
참고했던 코드입니다.
Private Sub worksheet_selectionchange(ByVal Target As Range)
Dim strCriteria As String
If Not Application.Intersect(Target, Range("P12：P20")) Is Nothing Then
strCriteria = taget.Value
With Worksheets("typelist")
.Range("$A$2:$P$113").AutoFilter Field:=6, Criteria1:=strCriteria
.Activate
End With
End If
End Sub
