VBA 코드 에러 문의

VBA
작성자
Seokdrew
작성일
2021-11-03 23:56
조회
67
엑셀버전 : 엑셀2013

운영체제 : 윈도우10

안녕하세요! 오빠두 엑셀을 통해 나날이 성장하는 학생입니다.

VBA 코드를 실행하다가 오류가 나서 진행이 안되는데, 이해가 안가는 부분이 있어 조언을 구하고자 합니다!

하나의 시트의 데이터 갯수만큼, 자동으로 시트 생성을 하고 싶은데 음영처리 된 부분이 오류라고 나옵니다ㅠㅠ

도와주세요 오빠두!

----------------------------------------------------------

Sub 시트자동생성()

Dim ws As Worksheet
Dim rngrow As Long

Application.ScreenUpdating = False
Application.DisplayAlerts = False

For Each ws In Worksheets
If ws.Name <> "DB" Then
ws.Delete
End If
Next ws

rngrow = Sheets("DB").Range("A1").End(xlDown).Row

For i = 1 To rngrow
ShtName = Sheets("DB").Cells(i, 1).Value
Worksheets.Add(after:=Sheets(Sheets.Count)).Name = ShtName // '1004' 런타임 오류 발생, 응용 프로그램 정의 또는 개체 정의 오류

Next i

Sheets("DB").Select

Application.DisplayAlerts = True
Application.ScreenUpdatin = True

End Sub

회원등급 : 잎새등급
포인트 : 100 EP
총질문 : 3 개 (마감율 : 0%)
채택답변 : 0 개
전체 1

  • 2021-11-04 06:27

    Seokdrew님 안녕하세요.

    Worksheets.Add(after:=Sheets(Sheets.Count)).Name = ShtName // '1004' 런타임 오류 발생, 응용 프로그램 정의 또는 개체 정의 오류

    이 부분을

    Dim newWS as WorkSheet
    Set newWS = Worksheets.Add(after:=Sheets(Sheets.Count))
    newWs.Name = ShtName

    로 수정해보세요. 바로 해결되실겁니다 ^^

    제시해드린 답변이 도움이 되셨길 바랍니다. 감사합니다.


전체 4,653
번호 카테고리 제목 작성자 작성일 추천 조회
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (10)
오빠두엑셀 | 2021.10.28 | 추천 16 | 조회 715
트로피 오빠두엑셀 2021.10.28 16 715
24177 기능/도구
New 매크로 와 자동필터
FLOWERBALL | 2021.11.30 | 추천 0 | 조회 20
FLOWERBALL 2021.11.30 0 20
24168 VBA
New (문의) 번호가 같을경우 옆에 있는 셀의 값을 병합 (1)
ryan_cruze | 2021.11.30 | 추천 0 | 조회 37
ryan_cruze 2021.11.30 0 37
24166 기능/도구
New 질문있습니다.
최강씨맨 | 2021.11.30 | 추천 0 | 조회 26
최강씨맨 2021.11.30 0 26
24163 함수/공식
New 엑셀 특정 내용 추출하는 수식 질문드립니다. (2)
PAKSAW | 2021.11.30 | 추천 0 | 조회 31
PAKSAW 2021.11.30 0 31
24161 함수/공식
New 특정 날짜 값 찾기 (2)
ㄱ박민극 | 2021.11.30 | 추천 -1 | 조회 35
ㄱ박민극 2021.11.30 -1 35
24154 피벗테이블
New 설문조사 피벗테이블 구성이 어렵네요 첨부파일 (2)
가리 | 2021.11.30 | 추천 0 | 조회 29
가리 2021.11.30 0 29
24153 VBA
New 엑셀 검색 창 첨부파일 (2)
이혜 | 2021.11.30 | 추천 0 | 조회 28
이혜 2021.11.30 0 28
24148 피벗테이블
New 피벗테이블 형태의 데이터베이스 변환 (1)
이길호 | 2021.11.30 | 추천 0 | 조회 27
이길호 2021.11.30 0 27
파워쿼리/피벗
New Re:피벗테이블 형태의 데이터베이스 변환
Yukon | 2021.11.30 | 추천 0 | 조회 17
Yukon 2021.11.30 0 17
24140 VBA
New 특정 시트에 추출되어있는 값을 각각의 시트로 분류하려고합니다. 첨부파일 (1)
이치영 | 2021.11.30 | 추천 0 | 조회 40
이치영 2021.11.30 0 40
24135 VBA
New vlookup #N/A 에러가 나오는 경우 IF문은 어떻게.... (2)
툴잇지 with 우정기기 | 2021.11.29 | 추천 0 | 조회 53
툴잇지 with 우정기기 2021.11.29 0 53
24132 함수/공식
New 동적범위, 셀값을 시트명으로 인식하여 합계를 구하는것 첨부파일 (6) 답변완료
키큰아저씨 | 2021.11.29 | 추천 0 | 조회 51
키큰아저씨 2021.11.29 0 51
24129 VBA
New 직사각형 도형 삭제vba (2) 답변완료
H.B | 2021.11.29 | 추천 1 | 조회 33
H.B 2021.11.29 1 33
24126 VBA
New "요청한 레지스트리에 엑세스할 수 없습니다." 라는 에러때문에 진행이 안됩니다. (3)
볼펜수리공 | 2021.11.29 | 추천 0 | 조회 30
볼펜수리공 2021.11.29 0 30
24120 기능/도구
New 조건부서식으로 찾은 바탕색을 실제 엑셀 바탕색 컬러로 변경하고 싶습니다. 첨부파일 (3) 답변완료
glas**** | 2021.11.29 | 추천 0 | 조회 36
glas**** 2021.11.29 0 36
24117 함수/공식
New 맨 끝자리를 제외한 7자리 추출 첨부파일 (2) 답변완료
감사하모니카 | 2021.11.29 | 추천 0 | 조회 43
감사하모니카 2021.11.29 0 43
24116 VBA
New VBA 2007버전과 2021버전에서의 속도 차이가 많이 납니다. 해결방안이 있을까 해서요? 첨부파일 (2)
한정석 | 2021.11.29 | 추천 0 | 조회 49
한정석 2021.11.29 0 49
24113 함수/공식
New 조건 서식 질문입니다. 첨부파일 (1)
space | 2021.11.29 | 추천 0 | 조회 38
space 2021.11.29 0 38
24111 피벗테이블
New 피벗테이블 DAX함수 관련 문의 (1)
T첫 | 2021.11.29 | 추천 0 | 조회 25
T첫 2021.11.29 0 25
24106 함수/공식
New 엑셀에서 해당 날짜기간 동안을 찾아 날짜열에 각각 표기하는 방법 첨부파일 (5)
공수래 | 2021.11.29 | 추천 0 | 조회 41
공수래 2021.11.29 0 41
24099 함수/공식
New 입력한 값에 따라 IMAGE 자동입력 함수 문제 관련 (1)
유지연 | 2021.11.29 | 추천 0 | 조회 30
유지연 2021.11.29 0 30
24098 VBA
New 워드 Format(숫자, "#,###") (1) 답변완료
argus | 2021.11.28 | 추천 0 | 조회 38
argus 2021.11.28 0 38
24097 VBA
New 각각 형식이 다른 여러 시트에서 원하는 값들만 가져와서 한 시트에 보기 쉽게 합치고 싶습니다. 첨부파일 (1)
축전 | 2021.11.28 | 추천 0 | 조회 44
축전 2021.11.28 0 44
24096 VBA
New 엑셀 재고관리툴 만들기 VBA영상 시청중 오류 발생관련 문의입니다. 첨부파일
가을전어 | 2021.11.28 | 추천 0 | 조회 28
가을전어 2021.11.28 0 28
24093 기능/도구
New 작업표시줄 클릭으로 클립보드에 복사 문제 관련 (1)
어루 | 2021.11.28 | 추천 0 | 조회 21
어루 2021.11.28 0 21
24091 VBA
New 도와주세요! 뭐가 문제인지 못찾겠습니다.
y**** | 2021.11.28 | 추천 0 | 조회 40
y**** 2021.11.28 0 40
24089 VBA
New 엑셀 vlookup vba 문의드립니다. (4) 답변완료
ㅈㄱㄹ | 2021.11.28 | 추천 0 | 조회 50
ㅈㄱㄹ 2021.11.28 0 50
24088 함수/공식
New 개인별 회비 납부 현황에 따라 월별 납부액 결정 관련 함수 또는 VBA (미납, 매월 16일 이후 납부할 경우 월회비 10% 가산) 첨부파일 (5) 답변완료
007 | 2021.11.28 | 추천 0 | 조회 63
007 2021.11.28 0 63
24081 함수/공식
New 영문주소를 한글주소로 변경 희망합니다. (1)
루s cos 개인대행 | 2021.11.28 | 추천 0 | 조회 40
루s cos 개인대행 2021.11.28 0 40
24072 VBA
New 수식이 있는 데이터에서 매크로를 사용하여 다른시트에 결과값만 붙여넣고 싶습니다. 첨부파일 (6) 답변완료
호랑이파워 | 2021.11.28 | 추천 0 | 조회 60
호랑이파워 2021.11.28 0 60
24068 파워쿼리/피벗
파워쿼리 간단한 '값 바꾸기' 에 대해서 질문드립니다. 첨부파일 (3)
월마리아 | 2021.11.28 | 추천 0 | 조회 31
월마리아 2021.11.28 0 31