더블클릭시 해당 데이터로 이동
VBA
작성자
함쏠까요
작성일
2022-03-31 15:28
조회
174
아래 코드를 보시면 셀 데이터 더블 클릭시 다른 시트에 해당 데이터를 찾아 이동하는 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문을 추가해도 디버깅이 생기고 모듈을 하나 추가해도 작동이 되질 않습니다.
고수님들 도와주십쇼 ㅠㅠ
전체 6,905
번호 | 카테고리 | 제목 | 작성자 | 작성일 | 추천 | 조회 |
📌 -- VBA 기초-활용 4주 완성, 특별 스터디 모집을 시작합니다! (모집 마감) -- 📌 (99)
![]() ![]() |
![]() ![]() |
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 |
39093 | 함수/공식 |
New 쉼표로 구분된 단어 끊는 방법좀 알려주세요! 부탁드립니다
![]() ![]() ![]() |
![]() ![]() |
2022.07.06 | 0 | 19 |
39092 | 함수/공식 |
New 정렬 기능 대신 3가지 순서로 RANK 매기기
![]() ![]() ![]() |
![]() ![]() |
2022.07.06 | 0 | 11 |
39087 | VBA |
New 바코드와 수량이 일치하면 중복 매대를 추출하는 매크로 결과값 오류
![]() ![]() |
![]() |
2022.07.06 | 0 | 16 |
39082 | 함수/공식 |
New RANK와 RANK.EQ 함수 문의
![]() ![]() ![]() |
![]() ![]() |
2022.07.06 | 0 | 17 |
39075 | 파워쿼리/피벗 |
New 파워쿼리 새로고침시 개인정보수준이라는 팝업이 뜨면서 에러가 납니다.
![]() ![]() |
![]() |
2022.07.06 | 0 | 16 |
39072 | 함수/공식 |
New 숙박일수 계산 추가질문드립니다.
![]() ![]() ![]() |
![]() ![]() |
2022.07.06 | 0 | 25 |
39071 | 함수/공식 |
New 상태표시줄 관련
![]() ![]() |
![]() |
2022.07.06 | 0 | 25 |
39070 | 함수/공식 |
New 함수? 사용해서 1시트의 내용을 2시트에 표시하는 방법좀 알려주세요
![]() ![]() |
![]() |
2022.07.06 | 0 | 25 |
39062 | VBA |
New 고급필터를 사용하여 추출한 데이터를 수정하면 원본 데이터 시트에서 수정되는 코드 해석 부탁드립니다
![]() ![]() |
![]() |
2022.07.06 | 0 | 36 |
39059 | 차트/그래프 |
New 슬라이서 다중 연동하여 원형차트 시 적용되지 않는 문제
![]() ![]() |
![]() |
2022.07.06 | 1 | 12 |
39052 | VBA |
New 파일 삭제 매크로가 한쪽 문구에서만 작동을 합니다.
![]() ![]() |
![]() |
2022.07.06 | 0 | 20 |
39044 | VBA |
New 사용자정의함수를 다른PC에 적용
(2)
답변완료
![]() ![]() |
![]() ![]() |
2022.07.06 | 0 | 31 |
39034 | VBA |
New 자동화 프로그램 항목 추가 관련
![]() |
![]() |
2022.07.06 | 0 | 39 |
39032 | VBA |
New VBA 고급자동필터 활용 조건 값이 비워 있을 때 결과 값도 안 나오게 하는 방범 문의 합니다.
![]() ![]() ![]() |
![]() ![]() |
2022.07.06 | 0 | 30 |
39019 | 함수/공식 |
New 엑셀 수식시 범위부분이 절대값이 안되요
![]() ![]() |
![]() |
2022.07.05 | 0 | 31 |
39016 | 함수/공식 |
New vlookup으로 가져온 알파벳을 특정숫자로 바꾸는 방법(쌩초보)
(1)
![]() |
![]() |
2022.07.05 | -2 | 32 |
39014 | VBA |
New 열 추가 문의
![]() ![]() |
![]() |
2022.07.05 | 0 | 32 |
39009 | 함수/공식 |
New index,match 함수 중에서 동일한 값이 나올때
![]() ![]() |
![]() |
2022.07.05 | 0 | 27 |
39007 | 함수/공식 |
New VLOOKUP 조건에 맞는 것을 계속해서 나열하고 싶을 때
![]() ![]() |
![]() |
2022.07.05 | 0 | 39 |
39003 | 함수/공식 |
New 셀에서 영어만 추출하기
![]() ![]() ![]() |
![]() |
2022.07.05 | 0 | 24 |
38996 | VBA |
New 현재 열넓이 확인후 20 더하는 방법
(1)
![]() |
![]() |
2022.07.05 | 0 | 34 |
38990 | 함수/공식 |
New 중복값중에 하나만 더하기
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.05 | 0 | 29 |
38987 | 함수/공식 |
New 행 열이 모두 숫자입니다.
![]() ![]() |
![]() |
2022.07.05 | 0 | 27 |
38983 | 함수/공식 |
New 카드번호별로 시트를 만들 수 있는 방법을 알고 싶습니다! - 관련 엑셀첨부
![]() ![]() ![]() |
![]() |
2022.07.05 | 0 | 45 |
38982 | 파워쿼리/피벗 |
New 파워쿼리에서 영문과 숫자만 순서대로 추출
(6)
답변완료
![]() |
![]() |
2022.07.05 | 0 | 41 |
38981 | 구글시트 |
New COUNTIF 함수와 SUBTOTAL
![]() ![]() ![]() |
![]() |
2022.07.05 | 0 | 27 |
38979 | 문서서식 |
New 서로 다른 엑셀 파일 비교
![]() ![]() |
![]() |
2022.07.05 | 0 | 29 |
38976 | 함수/공식 |
New BOM 오류 확인 방법 문의
![]() ![]() |
![]() |
2022.07.05 | 0 | 30 |
38973 | VBA |
New 점수가 6점이상만 시트2에 표기하는 VBA 또는 매크로 표기하는 방법 문의 합니다.
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.05 | 0 | 40 |
@함쏠까요 님
@함쏠까요 님 A시트~C시트까지 전부 이동할 수 있게 수정했습니다. If문이나 Select문을 적절히 사용하시면 됩니다.
추가로 덧붙이면...
이벤트 프러시저는 스크립트안에 반드시 에러 핸들러와 EnableEvents 를 중단했다가 복원하는 구문이 들어가야 문제가 안 생깁니다. 현재 [종합] 시트의 빈 셀을 더블클릭하면 커서가 편집 모드 상태로 남게 되는데 에러 핸들러 처리를 안 하셔서 그런 증상이 생기는 겁니다. 이전에 비슷한 내용으로 자세한 답변을 달아놓은 것이 있으니 한 번 참고해 보시기 바랍니다.
이전 댓글 확인
@나는나 님 정말 감사합니다! Select Case 문을 적용하면 되는거군요!!!