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

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

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

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 값은 가져오는데

 

회원등급 : 가지2단계
포인트 : 616 EP
총질문 : 33 개 (마감율 : 24%)
채택답변 : 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,205
번호 카테고리 제목 작성자 작성일 추천 조회
4189 VBA
New vba listbox 에 head 추가하는 방법
서민철 | 2021.10.17 | 추천 0 | 조회 8
서민철 2021.10.17 0 8
4188 함수/공식
New 다품목 안전 재고 관리시 사용할 수 있는 함수 문의
엑셀왕왕초보 | 2021.10.17 | 추천 0 | 조회 13
엑셀왕왕초보 2021.10.17 0 13
4187 함수/공식
New importrange로 불러온 그림이 인쇄가 안됩니다..ㅠㅠ
민 쌤 | 2021.10.17 | 추천 0 | 조회 16
민 쌤 2021.10.17 0 16
4186 함수/공식
New 꼭 도와 주세요. 첨부파일 (2)
그린의달인 | 2021.10.16 | 추천 0 | 조회 34
그린의달인 2021.10.16 0 34
4185 함수/공식
New 공백 유지하는 중복 제거 문의 첨부파일 (4) 답변완료
clairebear8 | 2021.10.16 | 추천 0 | 조회 33
clairebear8 2021.10.16 0 33
4184 함수/공식
New 엑셀 공식 도와주세요~ 첨부파일 (1)
ma**** | 2021.10.16 | 추천 0 | 조회 45
ma**** 2021.10.16 0 45
4183
New 제가 만든 엑셀VBA가 오류들이 있어 도움을 청합니다. 첨부파일 (1)
유림아빠 | 2021.10.16 | 추천 0 | 조회 26
유림아빠 2021.10.16 0 26
4182 차트/그래프
New 이런 챠트도 가능한지요 (1)
| 2021.10.16 | 추천 0 | 조회 44
2021.10.16 0 44
4181 함수/공식
New 중복값 제거 및 특정조건을 만족하는 값만 표시 첨부파일 (4)
리부트짱가 | 2021.10.16 | 추천 0 | 조회 42
리부트짱가 2021.10.16 0 42
4180 VBA
New pdf파일저장 + 드롭다운 매크로 VBA 문의드립니다. 첨부파일 (1)
호두마루 | 2021.10.16 | 추천 1 | 조회 25
호두마루 2021.10.16 1 25
4179 기능/도구
New 다중조건을 다수의 셀에 입력하는 방법 (1)
seeking | 2021.10.15 | 추천 0 | 조회 34
seeking 2021.10.15 0 34
4178 함수/공식
New 같은 값끼리 같은 색을 적용하고 싶습니다 첨부파일 (6)
유령회원 | 2021.10.15 | 추천 0 | 조회 33
유령회원 2021.10.15 0 33
4177 VBA
New VBA로 날짜 입력하는데 형식이 날짜형실으로 바꿀수있을까요? (1)
박종만 | 2021.10.15 | 추천 0 | 조회 29
박종만 2021.10.15 0 29
4176 VBA
New VBA에서 엑셀파일 여는 버튼을 만들었습니다. 첨부파일 (2) 답변완료
늘푸른2 | 2021.10.15 | 추천 0 | 조회 37
늘푸른2 2021.10.15 0 37
4175 VBA
New 살려주세욤.. 다중조건+중복제거 데이터유효성검사.. 첨부파일
지져스 | 2021.10.15 | 추천 0 | 조회 42
지져스 2021.10.15 0 42
4174 차트/그래프
New 차트 시간축 간격을 조정하는 방법 첨부파일 (1)
kimki**** | 2021.10.15 | 추천 0 | 조회 23
kimki**** 2021.10.15 0 23
4173 VBA
웹 크롤링 관련 문의 (2) 답변완료
숯검뎅이 | 2021.10.15 | 추천 0 | 조회 35
숯검뎅이 2021.10.15 0 35
4172 VBA
유저폼 리스트박스 검색 첨부파일 (2) 답변완료
007 | 2021.10.14 | 추천 0 | 조회 40
007 2021.10.14 0 40
4171 VBA
셀선택 관련 문의 드려요. (3) 답변완료
033cola | 2021.10.14 | 추천 0 | 조회 36
033cola 2021.10.14 0 36
4170 차트/그래프
특정 가로축을 강조하는 방법 및 세로축 단위 입력 방법이 궁금합니다. (3) 답변완료
sorryfo**** | 2021.10.14 | 추천 0 | 조회 29
sorryfo**** 2021.10.14 0 29
4169 VBA
파일의 경로 이동 VBA구문질문 (3) 답변완료
H.B | 2021.10.14 | 추천 0 | 조회 30
H.B 2021.10.14 0 30
4168 함수/공식
SUMIFS 함수 오류가 뜹니다! 첨부파일 (1)
AndOrEnd | 2021.10.14 | 추천 0 | 조회 33
AndOrEnd 2021.10.14 0 33
4167 함수/공식
각 시트 값 조건별로 취합하기 첨부파일 (2)
롤로랄라 | 2021.10.14 | 추천 0 | 조회 42
롤로랄라 2021.10.14 0 42
4166 VBA
변수에 worksheetfunction값 넣기 (9) 답변완료
kimki**** | 2021.10.14 | 추천 0 | 조회 40
kimki**** 2021.10.14 0 40
4165 VBA
행바꿈 관련 재질문. (3) 답변완료
H.B | 2021.10.14 | 추천 0 | 조회 31
H.B 2021.10.14 0 31
4164 함수/공식
INDEX함수 2번째,3번째 인수없이 사용이 가능한가요? (3)
월마리아 | 2021.10.13 | 추천 0 | 조회 37
월마리아 2021.10.13 0 37
4163 함수/공식
고수님들의 도움을 부탁드려요 첨부파일 (3)
왕코 | 2021.10.13 | 추천 0 | 조회 49
왕코 2021.10.13 0 49
4162 문서서식
설비 Layout 도면에서 장비번호 검색시 도형이 있는 위치로 이동하는 방법 첨부파일 (5)
아빠의꿈 | 2021.10.13 | 추천 1 | 조회 62
아빠의꿈 2021.10.13 1 62
4161 함수/공식
조건부서식 관련해서 문의 드려요 (2)
AgariFighter | 2021.10.13 | 추천 0 | 조회 33
AgariFighter 2021.10.13 0 33
4160 기능/도구
고수분들 도와주세요!! 도서관 책의 일렬번호를 매크로? 크롤링? 시킬 수는 없을까요? 첨부파일 (3)
Gemma | 2021.10.13 | 추천 0 | 조회 56
Gemma 2021.10.13 0 56