성명 선택시 표의 해당 성명이 있는 셀로 커서가 이동토록 하는 방법

@마운틴 님 worksheet -> change를 적용해보세요.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim m As Long

m = Application.WorksheetFunction.Match(Range("ai2"), Range("a:a"), 0)
If Not Intersect(Target, Range("ai2")) Is Nothing Then

Range("a" & m).Activate

End If

End Sub

첨부파일 : worksheet_chage_21.01.03.xlsm

@마운틴 님 [영역_명단]을 이름 정의한 후

match( ) 함수로 조회할 자료의 위치를 찾아서

그 위치로 이동하는 매크로를 실행합니다

첨부파일 : 문의3_해법제안.xlsm