(초보입니다 도와주세요ㅠ) 컴파일 오류입니다.외부 프로시저가 잘못되었습니다

VBA
작성자
쿠간지
작성일
2024-03-27 09:20
조회
939
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

질문 요약 : 컴파일오류. 외부프로시저

"가능리스트" 시트
A3:G22 데이터를 "호남영업소" 시트 A5:G24 와 A32:G51 로 복사

"가능리스트" 시트
A25:G44 데이터를 "대구영업소" 시트 A5:G24 와 A32:G51 로 복사

"가능리스트" 시트
A47:G66 데이터를 "부산영업소" 시트 A5:G24 와 A32:G51 로 복사

"가능리스트" 시트
A69:G88 데이터를 "중부영업소" 시트 A5:G24 와 A32:G51 로 복사

"가능리스트" 시트
A91:G110 데이터를 "강원영업소" 시트 A5:G24 와 A32:G51 로 복사

"가능리스트" 시트
A113:G132 데이터를 "제주영업소" 시트 A5:G24 와 A32:G51 로 복사

하는 코드 와

엑셀시작할때 자동으로 매크로 실행되고 "가능리스트" 데이터를 실시간으로 변경해도 적용되게 하는 코드

VBA
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:01"), "CopyData"
End Sub

Sub CopyData()
Dim wsPossibleList As Worksheet
Dim wsHONAM As Worksheet, wsDAEGU As Worksheet, wsBUSAN As Worksheet, wsCHUNGBU As Worksheet, wsGANGWON As Worksheet, wsJEJU As Worksheet

Set wsPossibleList = ThisWorkbook.Sheets("가능리스트")
Set wsHONAM = ThisWorkbook.Sheets("호남영업소")
Set wsDAEGU = ThisWorkbook.Sheets("대구영업소")
Set wsBUSAN = ThisWorkbook.Sheets("부산영업소")
Set wsCHUNGBU = ThisWorkbook.Sheets("중부영업소")
Set wsGANGWON = ThisWorkbook.Sheets("강원영업소")
Set wsJEJU = ThisWorkbook.Sheets("제주영업소")

' Copy data from PossibleList to HONAM
wsHONAM.Range("A5:G24").Value = wsPossibleList.Range("A3:G22").Value
wsHONAM.Range("A32:G51").Value = wsPossibleList.Range("A25:G44").Value

' Repeat the same for other regions

End Sub

이렇게 했는데

컴파일 오류입니다.외부 프로시저가 잘못되었습니다 라는 오류창뜹니다... 모가 잘못된걸까요..ㅠ_ㅠ

신고
스크랩
공유
회원등급 : 2레벨
포인트 : 60 EP
총질문 : 1 개 (마감율 : 0%)
채택답변 : 0 개
전체 2

  • 2024-03-27 09:43

    @쿠간지 님 Private Sub Workbook_Open()
    Application.OnTime Now + TimeValue("00:00:01"), "CopyData"
    End Sub

    Sub CopyData()
    Dim wsPossibleList As Worksheet
    Dim wsHONAM As Worksheet, wsDAEGU As Worksheet, wsBUSAN As Worksheet, wsCHUNGBU As Worksheet, wsGANGWON As Worksheet, wsJEJU As Worksheet

    Set wsPossibleList = ThisWorkbook.Sheets("가능리스트")
    Set wsHONAM = ThisWorkbook.Sheets("호남영업소")
    Set wsDAEGU = ThisWorkbook.Sheets("대구영업소")
    Set wsBUSAN = ThisWorkbook.Sheets("부산영업소")
    Set wsCHUNGBU = ThisWorkbook.Sheets("중부영업소")
    Set wsGANGWON = ThisWorkbook.Sheets("강원영업소")
    Set wsJEJU = ThisWorkbook.Sheets("제주영업소")

    ' Copy data from PossibleList to HONAM
    wsHONAM.Range("A5:G24").Value = wsPossibleList.Range("A3:G22").Value
    wsHONAM.Range("A32:G51").Value = wsPossibleList.Range("A25:G44").Value

    ' Repeat the same for other regions

    End Sub

    고쳐 놓았는데 맞으면 사용하세요.^^
    1. VBA 삭제
    2. 시트에서 강원영업소가 강원물류센터로 되어 있네요^^
    시트명을 강원영업소로 변경해놓았습니다.
    시트명대로 강원물류센터 사용하려면 프로그램에서 강원물류센터로 바꾸어야 하지 않을까요?!

    첨부파일 : 테스트Q-A.xlsm


  • 2024-03-27 09:55

    @쿠간지 님 Private Sub Workbook_Open()
    Application.OnTime Now + TimeValue("00:00:01"), "CopyData"
    End Sub

    상기 구문 의도가 파일 오픈시 CopyData가 실행되는것이라면 여기 작성하는것이 아니라

    vba프로젝트화면 왼쪽에 개체 - 현재_통합_문서에 작성해야 파일오픈시 실행됨니다.
    그냥 CopyData만 해도 실행됨


전체 16,942
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[📚진짜쓰는 실무엑셀] 2024년 엑셀 공부, 이 책 한권으로 마스터하세요! (291)
오빠두엑셀 | 2022.02.03 | 추천 554 | 조회 846782
오빠두엑셀 2022.02.03 554 846782
공지사항 문서서식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (197)
오빠두엑셀 | 2021.10.28 | 추천 304 | 조회 31522
오빠두엑셀 2021.10.28 304 31522
74639 함수/공식
New 데이터유효성 검사를 통해 40배수의 수만 입력
쿠노이 | 00:21 | 추천 0 | 조회 3
쿠노이 00:21 - 3
74638 피벗테이블
New 피벗테이블 날짜 그룹화 원치 않는 범위가 뜹니다.
단팥빵 | 2024.10.31 | 추천 0 | 조회 15
단팥빵 2024.10.31 - 15
74633 문서서식
New 안녕하세요 게임 시스템 테이블 작성 배우고 있는데 기초적인 부분을 잘 모르겠어서 질문 드립니다! 첨부파일 (1) 답변완료
코니 | 2024.10.31 | 추천 0 | 조회 42
코니 2024.10.31 - 42
74632 기능/도구
New 챗gpt 연동해서 이미지로 된 표의 데이터를 가져오려고 합니다.
김수현 | 2024.10.31 | 추천 0 | 조회 44
김수현 2024.10.31 - 44
74628 구글시트
New IMPORTRANGE 함수에서 칸을 늘리면 사라지는데 고정하는 방법은 없을까요? (3)
야망이 | 2024.10.31 | 추천 0 | 조회 50
야망이 2024.10.31 - 50
74627 문서서식
New 조건부 서식 문의 엑셀파일첨부파일 (1)
배고픈짐승 | 2024.10.31 | 추천 0 | 조회 72
배고픈짐승 2024.10.31 - 72
74626 파워쿼리/피벗
New [파워쿼리] 여러 파일 한번에 불러올 때 데이터 유실 첨부파일 (3)
naa**** | 2024.10.31 | 추천 0 | 조회 63
naa**** 2024.10.31 - 63
74625 VBA
New 시트이동시 유저폼 실행방법 문의 (2) 답변완료
땡이 | 2024.10.31 | 추천 0 | 조회 61
땡이 2024.10.31 - 61
74621 기능/도구
New 4개의 열 에서 같은 이름 가로로 정렬 (3)
Bukonge | 2024.10.31 | 추천 0 | 조회 61
Bukonge 2024.10.31 - 61
74618 VBA
New 유저폼에 바코드스캔시 입력속도 개선방법? (5) 답변완료
땡이 | 2024.10.31 | 추천 0 | 조회 58
땡이 2024.10.31 - 58
74616 함수/공식
New Rawdata 첨부파일 (4)
HIHUGO | 2024.10.31 | 추천 0 | 조회 66
HIHUGO 2024.10.31 - 66
74604 문서서식
New 간트차트 조건부서식 이용 문의 엑셀파일첨부파일 (3)
배고픈짐승 | 2024.10.30 | 추천 0 | 조회 79
배고픈짐승 2024.10.30 - 79
74599 함수/공식
New 이런 경우에는 무슨 함수를 써야할까요..? (2)
iwnqn | 2024.10.30 | 추천 0 | 조회 99
iwnqn 2024.10.30 - 99
74598 문서서식
New 엑셀 유효성 검사 뛰어 쓰기 문제 엑셀파일 (2) 답변완료
퉁퉁이 | 2024.10.30 | 추천 0 | 조회 72
퉁퉁이 2024.10.30 - 72
74592 함수/공식
New 여러 값들 중에서 원하는 값을 찾고 싶어요 도와주세요! 첨부파일 (9) 답변완료
저도해볼게요 | 2024.10.30 | 추천 0 | 조회 99
저도해볼게요 2024.10.30 - 99
74589 구글시트
New 한셀에 줄바꿈으로 있는 여러데이터를 한셀에 한데이터 들어가게끔 일괄로 하고 싶습니다 첨부파일 (4) 답변완료
스톤스톤 | 2024.10.30 | 추천 0 | 조회 60
스톤스톤 2024.10.30 - 60
74585 VBA
New UserForm 크기질문 첨부파일 (5)
땡이 | 2024.10.30 | 추천 0 | 조회 74
땡이 2024.10.30 - 74
74583 함수/공식
New XLOOKUP 함수의 다중조건을 잘 모르겠습니다 첨부파일 (6)
qlcc**** | 2024.10.30 | 추천 0 | 조회 90
qlcc**** 2024.10.30 - 90
74582 함수/공식
New filter 함수에 대해 문의드립니다 (5)
김은상 | 2024.10.30 | 추천 0 | 조회 71
김은상 2024.10.30 - 71
74581 구글시트
New 구글폼 견적서 자동화 관련, 폼에서 입력된 이미지 파일을 견적서에 넣는 방법 좀 알려주시면 감사하겠습니다.
| 2024.10.30 | 추천 0 | 조회 56
2024.10.30 - 56
74572 차트/그래프
New 꺽은선 그래프의 레이블이 원복이 됩니다. 첨부파일 (3)
구리구리이 | 2024.10.30 | 추천 0 | 조회 63
구리구리이 2024.10.30 - 63
74570 함수/공식
New 배수 금액으로 순번 정하기 알려 주세요...ㅠ 엑셀파일첨부파일 (3) 답변완료
서기 | 2024.10.30 | 추천 0 | 조회 60
서기 2024.10.30 - 60
74566 함수/공식
New 두개의 열에 입력된 데이터를 순서 바꿔서 입력으로 중복일 때 골라내는 법 엑셀파일첨부파일 (1) 답변완료
문과적남자 | 2024.10.30 | 추천 0 | 조회 61
문과적남자 2024.10.30 - 61
74564 함수/공식
New 각 열별로 합 구하는 방법 첨부파일 (2) 답변완료
라핼 | 2024.10.30 | 추천 0 | 조회 78
라핼 2024.10.30 - 78
74563 함수/공식
New 필터 적용시 중복값 제외 카운트 되는 법 좀 알려주세요 ㅠㅠ 첨부파일 (1)
정재욱 | 2024.10.30 | 추천 0 | 조회 74
정재욱 2024.10.30 - 74
74558 함수/공식
New 문자와 숫자가 섞여있는 열의 합계와 평균을 구하는 방법을 알려주세요!! 첨부파일 (9)
침착해 | 2024.10.30 | 추천 0 | 조회 79
침착해 2024.10.30 - 79
74556 함수/공식
New 세트상품 마진율 구하기 (2)
ek02 | 2024.10.30 | 추천 0 | 조회 67
ek02 2024.10.30 - 67
74543 기능/도구
New 문자와 숫자 혼합된 셀에서 숫자만 따로 따올수 있는 기능이 있을까요? 첨부파일 (4)
야만용사 | 2024.10.29 | 추천 0 | 조회 100
야만용사 2024.10.29 - 100
74542 기능/도구
New 엑셀 백분율 숫자로변경 (3)
rarara | 2024.10.29 | 추천 0 | 조회 92
rarara 2024.10.29 - 92
74540 함수/공식
New ★데이터 가공★ 잘못된 데이터를 올바른 데이터로 변환하는 과정을 도와주세요 ㅠㅠ 엑셀파일첨부파일 (11)
| 2024.10.29 | 추천 0 | 조회 134
2024.10.29 - 134