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

VBA
작성자
밍장군
작성일
2020-10-05 17:33
조회
32
하기 구문 활용 시 오류가 발생 합니다

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

 
밍장군
회원등급 : 가지1단계
포인트 : 390 EP
전체 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

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

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

        답변 감사합니다


    전체 1,338
    번호 카테고리제목작성자작성일추천조회
    1333 대시보드
    New 대시보드 만들기 3강 (SUMPRODUCT 값 Name 오류) 첨부파일
    료마 | 15:59 | 추천 0 | 조회 5
    료마15:5905
    1332 함수/공식
    New 데이터유효성 검사 중 '공백무시'는 어떤 의미인가요?
    성현생각 | 14:53 | 추천 0 | 조회 8
    성현생각14:5308
    1331 VBA
    New 한글(HWP)로 된 문서를 엑셀에 붙여넣는 작업을 매크로를 이용해 자동화하기
    화가 | 14:20 | 추천 0 | 조회 8
    화가14:2008
    1330 VBA
    New 각각 다른 파일을 개별로 메일을 보내고 싶습니다.
    DAN | 13:57 | 추천 0 | 조회 7
    DAN13:5707
    1329 차트/그래프
    New 거품차트+원형차트 복합 (Compound bubble and pie chart) (2)
    아카시아 | 09:16 | 추천 0 | 조회 26
    아카시아09:16026
    1328 함수/공식
    New 2가지 조건을 만족하는 함수를 작성해야합니다. (4)
    THEEUGENE | 2020.10.22 | 추천 1 | 조회 25
    THEEUGENE2020.10.22125
    1327 차트/그래프
    New 간트 차트 내용 추가 관련 문의 드립니다. (1)
    나짱보이 | 2020.10.22 | 추천 0 | 조회 15
    나짱보이2020.10.22015
    1326 VBA
    New VBA로 특정 셀 잠그기 / 잠금 해제하기 (1)
    엑셀늅늅이 | 2020.10.22 | 추천 0 | 조회 24
    엑셀늅늅이2020.10.22024
    1325 피벗테이블
    New 피벗테이블에서 사용날짜에 있는 값들이 이전 달에 들어가서 합이 되어 버리는 오류가 발생합니다. 첨부파일 (2)
    김광수 | 2020.10.22 | 추천 0 | 조회 24
    김광수2020.10.22024
    1324 차트/그래프
    New [질문] 월 데이터를 그래프로 그릴 때 공휴일, 토, 일은 그래프에서 삭제하고 싶습니다. (4)
    그때의너 | 2020.10.22 | 추천 0 | 조회 26
    그때의너2020.10.22026
    1323 차트/그래프
    New 연결하여 붙여넣기(그림) 선택옵션에서 안보여서용 ㅠㅠ도와주세용 (2)
    윤사슴 | 2020.10.21 | 추천 0 | 조회 34
    윤사슴2020.10.21034
    1322 기능/도구
    New 조건부서식 아이콘표시 문의 첨부파일 (10)
    글래스 | 2020.10.21 | 추천 0 | 조회 41
    글래스2020.10.21041
    1321 차트/그래프
    New 선생님.. 첨부파일 (1)
    rpaq**** | 2020.10.21 | 추천 0 | 조회 34
    rpaq****2020.10.21034
    1320 함수/공식
    New 다운받은게 추가기능에서 설치가 된거 같은데 작동을 안하네요. 첨부파일 (1)
    Fund 꿈전사 | 2020.10.21 | 추천 0 | 조회 28
    Fund 꿈전사2020.10.21028
    1319 문서서식
    New 원하는 프르그렘 엑셀 유료 제작도 해주시나요? (1)
    Fund 꿈전사 | 2020.10.21 | 추천 0 | 조회 59
    Fund 꿈전사2020.10.21059
    1318 VBA
    New 엑셀에서 아웃룩일정 입력하는 방법에 관한 질문 (2)
    naver_5f8b682a12bb7 | 2020.10.21 | 추천 0 | 조회 27
    naver_5f8b682a12bb72020.10.21027
    1317 문서서식
    New 인쇄물 좌측하단 사용자정보 삭제방법 문의 첨부파일 (2)
    naver_5f8ee15a8602b | 2020.10.20 | 추천 0 | 조회 27
    naver_5f8ee15a8602b2020.10.20027
    1316 함수/공식
    New 재고 중복 차감 되는 문제... 첨부파일 (2)
    skya**** | 2020.10.20 | 추천 0 | 조회 43
    skya****2020.10.20043
    1315 VBA
    New 동일한 이름을 가진 통합 문서를 동시에 열 수 없습니다 첨부파일 (1)
    당신을축복하는올빼미 | 2020.10.20 | 추천 0 | 조회 30
    당신을축복하는올빼미2020.10.20030
    1314 VBA
    셀 범위 조건으로 메시지 팝업창 처음 한번만 뜨게 할 수 있나요? (2)
    와따나 | 2020.10.20 | 추천 0 | 조회 36
    와따나2020.10.20036
    1313 함수/공식
    공정별 날짜별 작업인원 수를 표시할려고하는데 도움이 필요합니다. 첨부파일 (4)
    casanova | 2020.10.20 | 추천 0 | 조회 38
    casanova2020.10.20038
    1312 기능/도구
    다중필터 엑셀 추가기능 (Excel 추가기능 Addin) 설치 파일 좀 보내주실 분;;.. (1)
    쨍하고해뜬오후 | 2020.10.20 | 추천 0 | 조회 29
    쨍하고해뜬오후2020.10.20029
    1311 차트/그래프
    선생님... - 엑셀 VBA 차트 계열 색 변경 자동화 매크로 첨부파일 (2)
    rpaq**** | 2020.10.20 | 추천 0 | 조회 37
    rpaq****2020.10.20037
    1310 함수/공식
    Xlookup 활용 문의 첨부파일 (1)
    K_Division | 2020.10.20 | 추천 0 | 조회 36
    K_Division2020.10.20036
    1309 VBA
    여러개의 참조 삽입 방법 (7)
    써머데이즈 | 2020.10.20 | 추천 0 | 조회 31
    써머데이즈2020.10.20031
    1308 함수/공식
    엑셀초보입니다. 다른시트 내용을 VLOOKUP을 이용해서 가져오기 ㅠ (3)
    el**** | 2020.10.20 | 추천 0 | 조회 53
    el****2020.10.20053
    1307 함수/공식
    서식들어간 일자 concat 조합 첨부파일 (2)
    내뀨바라기 | 2020.10.19 | 추천 0 | 조회 36
    내뀨바라기2020.10.19036
    1306 함수/공식
    엑셀초보자입니다. if함수 수식좀 알려주세요... (1)
    이재똥 | 2020.10.19 | 추천 0 | 조회 40
    이재똥2020.10.19040
    1305 함수/공식
    안녕하세요 if함수 질문있습니다. (2)
    glass | 2020.10.19 | 추천 0 | 조회 31
    glass2020.10.19031
    1304 VBA
    안녕하세요 vba 크롤링 질문드립니다. (1)
    jaebe**** | 2020.10.19 | 추천 0 | 조회 35
    jaebe****2020.10.19035