더블클릭시 해당 데이터로 이동

VBA
작성자
함쏠까요
작성일
2022-03-31 15:28
조회
174
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

아래 코드를 보시면 셀 데이터 더블 클릭시 다른 시트에 해당 데이터를 찾아 이동하는 VBA를 작성하고 있습니다.(B열 클릭시 "A시트" 데이터로 이동)

 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Intersect(Target, Range("B3:B190")) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub

If IsEmpty(Target) Then Exit Sub

Set srch = Sheets("A시트").Columns(2).Find(Target.Value, , , 1)
If Not srch Is Nothing Then

Application.Goto srch

Cancel = True

End If

End Sub

여기까지는 작동이 되는데 여기서 C열 클릭시 'B시트' 시트의 데이터로 이동하는 VBA도 추가하고 싶은데 어떻게 하면 될까요?

IF문을 추가해도 디버깅이 생기고 모듈을 하나 추가해도 작동이 되질 않습니다.

 

고수님들 도와주십쇼 ㅠㅠ

전체 4

  • 2022-03-31 20:03

    @함쏠까요

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    If Not Intersect(Target, Range("C:C")) Is Nothing Then
    Sheets("B시트").Activate
    Exit Sub
    End If
    
    If Intersect(Target, Range("B3:B190")) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    
    If IsEmpty(Target) Then Exit Sub
    
    Set srch = Sheets("A시트").Columns(2).Find(Target.Value, , , 1)
    If Not srch Is Nothing Then
    
    Application.Goto srch
    
    Cancel = True
    
    End If
    
    End Sub

     


  • 2022-03-31 20:15
    채택된 답변

    @함쏠까요 님 A시트~C시트까지 전부 이동할 수 있게 수정했습니다. If문이나 Select문을 적절히 사용하시면 됩니다.

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
        If Intersect(Target, Range("B3:D190")) Is Nothing Then Exit Sub
        If Target.Cells.Count > 1 Then Exit Sub
        If IsEmpty(Target) Then Exit Sub
        
        Select Case Target.Column
            Case 2
                Set srch = Sheets("A시트").Columns(2).Find(Target.Value, , , 1)
            Case 3
                Set srch = Sheets("B시트").Columns(2).Find(Target.Value, , , 1)
            Case 4
                Set srch = Sheets("C시트").Columns(2).Find(Target.Value, , , 1)
        End Select
            
        If Not srch Is Nothing Then
            Application.Goto srch
            Cancel = True
        End If
    
    End Sub
    

     


    • 2022-03-31 20:25

      추가로 덧붙이면...

      이벤트 프러시저는 스크립트안에 반드시 에러 핸들러와 EnableEvents 를 중단했다가 복원하는 구문이 들어가야 문제가 안 생깁니다. 현재 [종합] 시트의 빈 셀을 더블클릭하면 커서가 편집 모드 상태로 남게 되는데 에러 핸들러 처리를 안 하셔서 그런 증상이 생기는 겁니다. 이전에 비슷한 내용으로 자세한 답변을 달아놓은 것이 있으니 한 번 참고해 보시기 바랍니다.

      이전 댓글 확인


    • 2022-04-01 09:22

      @나는나 님 정말 감사합니다! Select Case 문을 적용하면 되는거군요!!!


전체 6,905
번호 카테고리 제목 작성자 작성일 추천 조회
알림
📌 -- VBA 기초-활용 4주 완성, 특별 스터디 모집을 시작합니다! (모집 마감) -- 📌 (99)
오빠두엑셀 | 2022.06.23 | 추천 144 | 조회 17844
오빠두엑셀 2022.06.23 144 17844
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (79)
오빠두엑셀 | 2021.10.28 | 추천 98 | 조회 5347
오빠두엑셀 2021.10.28 98 5347
39097 VBA
New Worksheet_Change 기능을 Module 에서 다루기 (1)
유지니_ | 2022.07.06 | 추천 0 | 조회 7
유지니_ 2022.07.06 0 7
39093 함수/공식
New 쉼표로 구분된 단어 끊는 방법좀 알려주세요! 부탁드립니다 첨부파일 (2) 답변완료
YJ | 2022.07.06 | 추천 0 | 조회 19
YJ 2022.07.06 0 19
39092 함수/공식
New 정렬 기능 대신 3가지 순서로 RANK 매기기 엑셀파일 (1)
블링블링 | 2022.07.06 | 추천 0 | 조회 11
블링블링 2022.07.06 0 11
39087 VBA
New 바코드와 수량이 일치하면 중복 매대를 추출하는 매크로 결과값 오류 엑셀파일
kkwak | 2022.07.06 | 추천 0 | 조회 16
kkwak 2022.07.06 0 16
39082 함수/공식
New RANK와 RANK.EQ 함수 문의 엑셀파일 (2) 답변완료
블링블링 | 2022.07.06 | 추천 0 | 조회 17
블링블링 2022.07.06 0 17
39075 파워쿼리/피벗
New 파워쿼리 새로고침시 개인정보수준이라는 팝업이 뜨면서 에러가 납니다. 첨부파일
만땅 | 2022.07.06 | 추천 0 | 조회 16
만땅 2022.07.06 0 16
39072 함수/공식
New 숙박일수 계산 추가질문드립니다. 엑셀파일 (1)
두키림 | 2022.07.06 | 추천 0 | 조회 25
두키림 2022.07.06 0 25
39071 함수/공식
New 상태표시줄 관련 첨부파일 (2) 답변완료
선크 | 2022.07.06 | 추천 0 | 조회 25
선크 2022.07.06 0 25
39070 함수/공식
New 함수? 사용해서 1시트의 내용을 2시트에 표시하는 방법좀 알려주세요 엑셀파일 (3)
지펴린 | 2022.07.06 | 추천 0 | 조회 25
지펴린 2022.07.06 0 25
39062 VBA
New 고급필터를 사용하여 추출한 데이터를 수정하면 원본 데이터 시트에서 수정되는 코드 해석 부탁드립니다 엑셀파일 (2)
호랑이파워 | 2022.07.06 | 추천 0 | 조회 36
호랑이파워 2022.07.06 0 36
39059 차트/그래프
New 슬라이서 다중 연동하여 원형차트 시 적용되지 않는 문제 엑셀파일
지둥이 | 2022.07.06 | 추천 1 | 조회 12
지둥이 2022.07.06 1 12
39052 VBA
New 파일 삭제 매크로가 한쪽 문구에서만 작동을 합니다. 첨부파일 (1)
빼갈 | 2022.07.06 | 추천 0 | 조회 20
빼갈 2022.07.06 0 20
39044 VBA
New 사용자정의함수를 다른PC에 적용 (2) 답변완료
siempre | 2022.07.06 | 추천 0 | 조회 31
siempre 2022.07.06 0 31
39034 VBA
New 자동화 프로그램 항목 추가 관련
유라 | 2022.07.06 | 추천 0 | 조회 39
유라 2022.07.06 0 39
39032 VBA
New VBA 고급자동필터 활용 조건 값이 비워 있을 때 결과 값도 안 나오게 하는 방범 문의 합니다. 첨부파일 (4) 답변완료
파란맥 | 2022.07.06 | 추천 0 | 조회 30
파란맥 2022.07.06 0 30
39019 함수/공식
New 엑셀 수식시 범위부분이 절대값이 안되요 첨부파일 (4)
skih**** | 2022.07.05 | 추천 0 | 조회 31
skih**** 2022.07.05 0 31
39016 함수/공식
New vlookup으로 가져온 알파벳을 특정숫자로 바꾸는 방법(쌩초보) (1)
방성희 | 2022.07.05 | 추천 -2 | 조회 32
방성희 2022.07.05 -2 32
39014 VBA
New 열 추가 문의 첨부파일 (2)
오대표 | 2022.07.05 | 추천 0 | 조회 32
오대표 2022.07.05 0 32
39009 함수/공식
New index,match 함수 중에서 동일한 값이 나올때 첨부파일 (2) 답변완료
최사무엘 | 2022.07.05 | 추천 0 | 조회 27
최사무엘 2022.07.05 0 27
39007 함수/공식
New VLOOKUP 조건에 맞는 것을 계속해서 나열하고 싶을 때 첨부파일 (1)
야자키겐스케 | 2022.07.05 | 추천 0 | 조회 39
야자키겐스케 2022.07.05 0 39
39003 함수/공식
New 셀에서 영어만 추출하기 엑셀파일첨부파일 (2) 답변완료
킹셀 | 2022.07.05 | 추천 0 | 조회 24
킹셀 2022.07.05 0 24
38996 VBA
New 현재 열넓이 확인후 20 더하는 방법 (1)
033cola | 2022.07.05 | 추천 0 | 조회 34
033cola 2022.07.05 0 34
38990 함수/공식
New 중복값중에 하나만 더하기 엑셀파일첨부파일 (4) 답변완료
DS | 2022.07.05 | 추천 0 | 조회 29
DS 2022.07.05 0 29
38987 함수/공식
New 행 열이 모두 숫자입니다. 첨부파일 (1)
DOUKCHEON 이재형 | 2022.07.05 | 추천 0 | 조회 27
DOUKCHEON 이재형 2022.07.05 0 27
38983 함수/공식
New 카드번호별로 시트를 만들 수 있는 방법을 알고 싶습니다! - 관련 엑셀첨부 엑셀파일첨부파일 (1)
showtime**** | 2022.07.05 | 추천 0 | 조회 45
showtime**** 2022.07.05 0 45
38982 파워쿼리/피벗
New 파워쿼리에서 영문과 숫자만 순서대로 추출 (6) 답변완료
아코니 | 2022.07.05 | 추천 0 | 조회 41
아코니 2022.07.05 0 41
38981 구글시트
New COUNTIF 함수와 SUBTOTAL 엑셀파일첨부파일
거꾸로문 | 2022.07.05 | 추천 0 | 조회 27
거꾸로문 2022.07.05 0 27
38979 문서서식
New 서로 다른 엑셀 파일 비교 첨부파일 (2)
notice | 2022.07.05 | 추천 0 | 조회 29
notice 2022.07.05 0 29
38976 함수/공식
New BOM 오류 확인 방법 문의 첨부파일 (4)
터브가이황 | 2022.07.05 | 추천 0 | 조회 30
터브가이황 2022.07.05 0 30
38973 VBA
New 점수가 6점이상만 시트2에 표기하는 VBA 또는 매크로 표기하는 방법 문의 합니다. 엑셀파일첨부파일 (4) 답변완료
파란맥 | 2022.07.05 | 추천 0 | 조회 40
파란맥 2022.07.05 0 40