|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(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 |
|