나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 dew (dewdrop)

추천:  2
파일:     런타임오류_Ans.xlsm (1417.2KB) 조회:  1311
제목:   [RE]런타임오류
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(2010,2016,2019):

* 아래줄에 질문을 작성하세요 >>

턴타임오류가 생김니다.  여기서 올해초 답변을 받았는데 그래도 저는 런타임오류가 생기네요! 2010버전에서는 안생기는데 2016부터 생겨요...관리자님은 안생긴다는데 저는 하며누 왜 생기는거죠! 자재입력시트에 들어가면 최종입력날자가 3월31일인데 그 이전날자 예를들자면 3월25일에 아무자자에 반입량아이나 다른 자료를 입력하고 기록하기하면 엑셀2010에서는 이상없는거 같은데 2013이상버전이나 2016,2019버전에서는 런타임오류가 생김니다    
 

==============[박훈이님 글에 대한 답변입니다]==============

==============[박훈이님 글에 대한 답변입니다]==============

'///  최종날짜 이전의 날짜 데이터 추가입력
Sub Data_Add()
    Dim rngX As Range
    Dim dCnt As Integer, rowMark As Long
    dCnt = UBound(aResult, 2) + 1
    With W(2)
        For Each rngX In .Range("a3:a" & iR)
            If rngX > myDate Then rowMark = rngX.Row: Exit For
        Next
        '.Cells(iR, 1).Resize(dCnt, 9).Copy
        .Cells(rowMark, 1).EntireRow.Insert
        ' Application.CutCopyMode = False
        iR = rowMark
    End With
End Sub
 
[불량 게시물 신고]  
        
  

작성일 : 2019-08-02(09:23)
최종수정일 : 2019-08-02(09:23)
 


 ◎ 관련글

  제 목   작성자   날짜
런타임오류 박훈이 2019-08-01
[RE]런타임오류 박훈이 2019-08-01
[RE]런타임오류 dew 2019-08-02