VBA에서 특정셀값 가져오기

[Victor]

안녕하세요? 고수님들~~

제가 VBA를 이용해서 재고관리 프로그램을 만들어 보고자 하는데요...

좀 막히는 부분이 있어 도움을 요청하고자 합니다.

아래와 같이 결과표시창을 VBA로 만들고 각 입고결과(1)~(3),(5)에 해당하는 값을

코드와 입고일자를 검색하여 해당하는 데이타를 가지고 오고자 합니다.

그런데, 입고결과(1)~(3)은 잘 되는데... 입고결과(5)는 잘 되지가 않습니다. -초보의 한계 ^^; -

현재까지 사용된 코드는 아래와 같습니다.

Sub RecordSearch_in()
    Dim intNum As Integer
    Dim intDateNum As Integer
    For intNum = 1 To 4
        Range("입고결과").Item(intNum) = Range("입고검색결과").Item(intNum)
    Next
        Range("입고결과").Item(5) = Range("입고검색결과").Item(intDateNum) <=여기
        Range("입고작업모드") = 1

노란색으로 표시된 부분을 특정 숫자(정수)로 입력하면 값을 불러오는데 문제가 없지만,

날짜를 변경할 경우 원하는 값을 불러올 수가 없습니다.

예를들어 노란부분을" item(9)"로 입력하면 데이타시트에서 해당하는 값 즉 "1"을 불러옵니다.

그런데... 날짜를 변경하면... 안되요~ ㅠ.ㅠ

도와주세요~~~

<결과 표시창>

코드	입고결과(1)
품명	입고결과(2)
규격/SPEC	입고결과(3)
입고일자	입고결과(4)
입고수량	입고결과(5)

<데이타>

코드	품명	규격/SPEC	합계	1	2	3	4	5	6
a123	agjk	gjlkj1874						1	9
a124	gjlfd	jbojd98						2	8
a125	gjkfj	mm,oif						3	7