|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007): 2016
* 아래줄에 질문을 작성하세요 >>
어떤 분께 도움을 받아 현재 파일의 vba 코드를 입력하였으나 계속 문제가 생겨서 도움 요청 드립니다.
구현되어야 하는 액션은
Production plan에 생산 일정이 있을 경우
BOM에서 생산 예정인 아이템 코드의 원자재 코드와 비율을 찾아
Requirements에 '생산 예정 수량X해당 원자재 사용 비율'을 출력
해서 최종 자재 소요량을 구하고자 합니다.
계속 디버깅이 발생하는데 솔직히 말씀드리면 아무리 들여다보아도 잘 모르겠어서 도움 요청 드립니다.
부디 도움 부탁 드릴게요.
==============[테아님 글에 대한 답변입니다]==============
약간의 오류가 있습니다... 아래와 같이 수정하세요... 열공하십시오.
For Each rng In Range(Cells(FindR + 3, 4), Cells(cntR, cntC)).SpecialCells(2) -> 해당되는 셀이 없을 경우 오류가 발생함
If IsDate(Cells(FindR + 2, rng.Column)) = True Then
rng.ClearContents
End If
Next
---> 위 구문은 초기화 하는 부분이므로 아래와 같이 수정하는 것이 효율적임
Range(Cells(FindR + 3, 4), Cells(cntR, cntC)).ClearContents
그리고
Set rng = Range(Cells(4, 2), Cells(cntR, 2))
For Each rng In rng -> 오류 발생함
---> 위 구문을 아래과 같이 수정
Set rngData = Range(Cells(4, 2), Cells(cntR, 2))
For Each rng In rngData
|
|