2번 시트에서 1번 시트내용 지울때 오류발생 문제

VBA
작성자
밍장군
작성일
2020-10-05 17:33
조회
245

하기 구문 활용 시 오류가 발생 합니다

1번 시트를 보면서 동작시 전혀 문제가 되지 않습니다만

2번 시트를 보면서 동작시 에러가 발생합니다

Sub delete_past_data()
Dim end_row
end_row = ThisWorkbook.Sheets(1).Cells(Rows.count, 1).End(xlUp).row '-------------------------지난 자료 지우기
If end_row <= 2 Then end_row = 2
If end_row > 2 Then
With ThisWorkbook
.Sheets("sheet1").Range(Cells(2, 1), Cells(end_row, 5)).ClearContents
End With
End If

End Sub

문제가 뭘까요?

심지어 2번 시트에서 end_row 값은 가져오는데

 

회원등급 : 9레벨
포인트 : 647 EP
총질문 : 36 개 (마감율 : 28%)
채택답변 : 0 개
전체 3

  • 2020-10-06 05:24

    시트의 Cells와 Range속성 사용시에는 항상 상위개체를 정확히 지정해주셔야 합니다.

    명령문을 아래와 같이 수정해보세요.

    Sub delete_past_data()
    Dim end_row
    With ThisWorkBook.Sheets(1)
    end_row = .Cells(.Rows.count, 1).End(xlUp).row '-------------------------지난 자료 지우기
    End With
    If end_row <= 2 Then end_row = 2
    If end_row > 2 Then
    With ThisWorkbook.Sheets("sheet1")
    .Range(.Cells(2, 1), .Cells(end_row, 5)).ClearContents
    End With
    End If
    End Sub


    • 2020-10-06 09:43

      @오빠두엑셀 님 오류가 발생 합니다

      희안하게 2번 시트에서 보고 있으면 문제가 발생하네요

      1번 시트에서 실행시키면 상관없는데...


      • 2020-10-06 12:02

        @밍장군 님 확인해보니 특정 모듈에서만 해당 동작을 하지 않습니다

        다른 모듈에서 실행해보니 실행 되네요

        답변 감사합니다


전체 4,652
번호 카테고리 제목 작성자 작성일 추천 조회
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (9)
오빠두엑셀 | 2021.10.28 | 추천 15 | 조회 708
트로피 오빠두엑셀 2021.10.28 15 708
24168 VBA
New (문의) 번호가 같을경우 옆에 있는 셀의 값을 병합
ryan_cruze | 16:30 | 추천 0 | 조회 13
ryan_cruze 16:30 0 13
24166 기능/도구
New 질문있습니다.
최강씨맨 | 16:14 | 추천 0 | 조회 13
최강씨맨 16:14 0 13
24163 함수/공식
New 엑셀 특정 내용 추출하는 수식 질문드립니다. (2)
PAKSAW | 15:34 | 추천 0 | 조회 13
PAKSAW 15:34 0 13
24161 함수/공식
New 특정 날짜 값 찾기 (2)
ㄱ박민극 | 15:23 | 추천 -1 | 조회 22
ㄱ박민극 15:23 -1 22
24154 피벗테이블
New 설문조사 피벗테이블 구성이 어렵네요 첨부파일 (2)
가리 | 12:22 | 추천 0 | 조회 23
가리 12:22 0 23
24153 VBA
New 엑셀 검색 창 첨부파일 (2)
이혜 | 11:59 | 추천 0 | 조회 21
이혜 11:59 0 21
24148 피벗테이블
New 피벗테이블 형태의 데이터베이스 변환 (1)
이길호 | 10:34 | 추천 0 | 조회 25
이길호 10:34 0 25
파워쿼리/피벗
New Re:피벗테이블 형태의 데이터베이스 변환
Yukon | 16:08 | 추천 0 | 조회 9
Yukon 16:08 0 9
24140 VBA
New 특정 시트에 추출되어있는 값을 각각의 시트로 분류하려고합니다. 첨부파일 (1)
이치영 | 01:37 | 추천 0 | 조회 37
이치영 01:37 0 37
24135 VBA
New vlookup #N/A 에러가 나오는 경우 IF문은 어떻게.... (2)
툴잇지 with 우정기기 | 2021.11.29 | 추천 0 | 조회 51
툴잇지 with 우정기기 2021.11.29 0 51
24132 함수/공식
New 동적범위, 셀값을 시트명으로 인식하여 합계를 구하는것 첨부파일 (6) 답변완료
키큰아저씨 | 2021.11.29 | 추천 0 | 조회 49
키큰아저씨 2021.11.29 0 49
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 | 조회 29
볼펜수리공 2021.11.29 0 29
24120 기능/도구
New 조건부서식으로 찾은 바탕색을 실제 엑셀 바탕색 컬러로 변경하고 싶습니다. 첨부파일 (3) 답변완료
glas**** | 2021.11.29 | 추천 0 | 조회 35
glas**** 2021.11.29 0 35
24117 함수/공식
New 맨 끝자리를 제외한 7자리 추출 첨부파일 (2) 답변완료
감사하모니카 | 2021.11.29 | 추천 0 | 조회 41
감사하모니카 2021.11.29 0 41
24116 VBA
New VBA 2007버전과 2021버전에서의 속도 차이가 많이 납니다. 해결방안이 있을까 해서요? 첨부파일 (2)
한정석 | 2021.11.29 | 추천 0 | 조회 46
한정석 2021.11.29 0 46
24113 함수/공식
New 조건 서식 질문입니다. 첨부파일 (1)
space | 2021.11.29 | 추천 0 | 조회 38
space 2021.11.29 0 38
24111 피벗테이블
New 피벗테이블 DAX함수 관련 문의
T첫 | 2021.11.29 | 추천 0 | 조회 24
T첫 2021.11.29 0 24
24106 함수/공식
New 엑셀에서 해당 날짜기간 동안을 찾아 날짜열에 각각 표기하는 방법 첨부파일 (5)
공수래 | 2021.11.29 | 추천 0 | 조회 40
공수래 2021.11.29 0 40
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 | 조회 42
축전 2021.11.28 0 42
24096 VBA
New 엑셀 재고관리툴 만들기 VBA영상 시청중 오류 발생관련 문의입니다. 첨부파일
가을전어 | 2021.11.28 | 추천 0 | 조회 24
가을전어 2021.11.28 0 24
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 | 조회 48
ㅈㄱㄹ 2021.11.28 0 48
24088 함수/공식
New 개인별 회비 납부 현황에 따라 월별 납부액 결정 관련 함수 또는 VBA (미납, 매월 16일 이후 납부할 경우 월회비 10% 가산) 첨부파일 (5) 답변완료
007 | 2021.11.28 | 추천 0 | 조회 59
007 2021.11.28 0 59
24081 함수/공식
New 영문주소를 한글주소로 변경 희망합니다. (1)
루s cos 개인대행 | 2021.11.28 | 추천 0 | 조회 38
루s cos 개인대행 2021.11.28 0 38
24072 VBA
New 수식이 있는 데이터에서 매크로를 사용하여 다른시트에 결과값만 붙여넣고 싶습니다. 첨부파일 (6) 답변완료
호랑이파워 | 2021.11.28 | 추천 0 | 조회 59
호랑이파워 2021.11.28 0 59
24068 파워쿼리/피벗
New 파워쿼리 간단한 '값 바꾸기' 에 대해서 질문드립니다. 첨부파일 (3)
월마리아 | 2021.11.28 | 추천 0 | 조회 31
월마리아 2021.11.28 0 31
24065 피벗테이블
New 열과 행 바꾸는 쉬운 방법있나요? 첨부파일 (5) 답변완료
jyj6**** | 2021.11.27 | 추천 0 | 조회 56
jyj6**** 2021.11.27 0 56