출고데이타를 자동 입력하고 싶습니다~

VBA
작성자
수메리안
작성일
2022-11-02 15:15
조회
106
엑셀버전 : 엑셀2019

운영체제 : 윈도우10

질문 요약 : 발주데이타 수량을 재고현황에 출고데이타로 끌어오는 코딩입니다.

안녕하세요,

언제나 고수님들의 도움으로 회사업무를 자동화하고 있어 늘 감사드립니다~

이번에는 발주현황에서 출고수량을 재고현황에 자동으로 출고데이타로 가져오려고 합니다.

위의 출고데이타를

품목과 날짜에 맞춰 자동으로 입력되게 하는 코딩입니다.

Sub 출고데이타입력()

Dim ssSt As Worksheet
Dim Orderst As Worksheet
Dim trng As Range, prng As Range, shrng As Range, sorng As Range
Dim r As Range

Set ssSt = Worksheets("재고현황")
Set Orderst = Worksheets("품목별발주현황")

'// T-Shirts
Set trng = ssSt.Range("D6:D" & endrow)
For Each r In trng
If ssSt.Cells(4, 1) = "A0001" Then
r.Offset(0, 0) = Date
r.Offset(0, 1) = Orderst.Cells(3, 2)
Exit For
End If
Next

'// Pants
Set prng = ssSt.Range("J6:J27")
For Each r In prng
If ssSt.Cells(4, 7) = "A0002" Then
r.Offset(0, 0) = Date
r.Offset(0, 1) = Orderst.Cells(3, 3)
Exit For
End If
Next

'// Shoes
Set shrng = ssSt.Range("V6:V27")
For Each r In shrng
If ssSt.Cells(4, 13) = "A0003" Then
r.Offset(0, 0) = Date
r.Offset(0, 1) = Orderst.Cells(3, 4)
Exit For
End If
Next

'// Socks
Set sorng = ssSt.Range("AV6:AV27")
For Each r In sorng
If ssSt.Cells(4, 19) = "A0004" Then
r.Offset(0, 0) = Date
r.Offset(0, 1) = Orderst.Cells(3, 5)
Exit For
End If
Next

End Sub

 

이렇게 했지만 덮어쓰기만 할 뿐 다음행으로 입력이 되지 않습니다.
고수님들의 혜안을 요청드립니다.

감사합니다~^^

 

스크랩
공유
전체 2

  • 2022-11-26 21:53
    채택된 답변

    @수메리안 님 [품목별발주현황] 시트에서 "출고 입력" 버튼을 눌러보세요.

    품목별로 입력할 행이 부족하면 행삽입이 되며 전체 수식 자동 설정됩니다.

    첨부파일 : 출고-데이타-입력-v2.xlsm


  • 2022-11-28 09:46

    와우~ ^_^)/
    아주 멋지게 코딩해 주셔서 감사합니다^^
    정말 꼼꼼하게 해 주셨네요^^
    감사드리며, 즐거운 날들 되세요~~~


전체 8,579
번호 카테고리 제목 작성자 작성일 추천 조회
알림
🎉 오피스 분야 30주 연속 1위! - 「 진짜쓰는 실무엑셀 」 전자책이 출간되었습니다! (35)
오빠두엑셀 | 2022.09.28 | 추천 9 | 조회 2854
오빠두엑셀 2022.09.28 9 2854
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (109)
오빠두엑셀 | 2021.10.28 | 추천 136 | 조회 8594
오빠두엑셀 2021.10.28 136 8594
45149 함수/공식
New 셀비교 해서 유사 단어가 있으면 해당 단어 출력 엑셀파일 (1)
엑셀잘하고싶어요 | 16:46 | 추천 0 | 조회 21
엑셀잘하고싶어요 16:46 - 21
45143 VBA
New 드롭다운 목록설정한값이랑 실제 보여지는값이랑 달라지게 보이고싶어요 엑셀파일첨부파일
짱구는옷말려 | 13:41 | 추천 0 | 조회 27
짱구는옷말려 13:41 - 27
45139 함수/공식
New 엑셀 빨간색 글자만 삭제하는 방법있을까요? (4) 답변완료
오빵두 | 11:21 | 추천 0 | 조회 37
오빵두 11:21 - 37
45138 VBA
New 한셀에 기업이름, 전화번호, 이메일등이 기록되어 있는데요. 그중에 이메일만 추출해서 다른 셀에 넣을수 있을까요? (2)
Surf | 11:07 | 추천 0 | 조회 43
Surf 11:07 - 43
45137 함수/공식
New SUMIFS 함수 문의 드립니다. 첨부파일
논두렁 | 11:04 | 추천 0 | 조회 30
논두렁 11:04 - 30
45134 피벗테이블
New 피벗테이블의 날짜를 나타내는 첨부파일
조지아 칸타타 | 10:41 | 추천 0 | 조회 28
조지아 칸타타 10:41 - 28
45132 함수/공식
New 행과 열에 맞는 값을 불러오고 싶어요 엑셀파일첨부파일 (1)
? | 10:11 | 추천 0 | 조회 38
? 10:11 - 38
45129 기능/도구
New 엑셀 검토 변경내용표시 엑셀파일
포에버하윤둥이 | 09:43 | 추천 0 | 조회 19
포에버하윤둥이 09:43 - 19
45126 차트/그래프
New 콤보차트 보조축 숨기기? 가능한가요? 첨부파일
탕수육육 | 08:31 | 추천 0 | 조회 23
탕수육육 08:31 - 23
45118 구글시트
New FILTER, QUERY, LOOKUP 함수 질문 첨부파일 (1)
🌸 | 00:17 | 추천 0 | 조회 41
🌸 00:17 - 41
45106 함수/공식
New 다른시트 목록에 있는 이름을 병합셀에 일정하게 불러오는 방법이 알고싶습니다. 첨부파일 (2)
hoon | 2022.12.01 | 추천 0 | 조회 43
hoon 2022.12.01 - 43
45103 VBA
New [VBA] 여러 폴더 경로의 엑셀 내용 수정 첨부파일 (4) 답변완료
엑셀잘하고싶어요 | 2022.12.01 | 추천 0 | 조회 45
엑셀잘하고싶어요 2022.12.01 - 45
45101 VBA
New VBA로 특정 셀부터 해당 셀 가장 마지막 셀까지 합계 구하기.(범위설정?) 첨부파일 (4) 답변완료
탕수육육 | 2022.12.01 | 추천 0 | 조회 50
탕수육육 2022.12.01 - 50
45094 VBA
New VBA로 다중조건 합계 구하기 엑셀파일 (1)
고바마 | 2022.12.01 | 추천 0 | 조회 46
고바마 2022.12.01 - 46
45093 함수/공식
New 텍스트인식 날짜를 월만 추출 하고싶어요 첨부파일 (2)
짱구는옷말려 | 2022.12.01 | 추천 0 | 조회 39
짱구는옷말려 2022.12.01 - 39
45089 함수/공식
New 특정값과 일치할때 해당 항목 불러오기.... 엑셀파일 (3) 답변완료
김태성 | 2022.12.01 | 추천 0 | 조회 59
김태성 2022.12.01 - 59
45088 함수/공식
New xlookup 함수 질문이요 첨부파일 (1)
갈대님 | 2022.12.01 | 추천 0 | 조회 42
갈대님 2022.12.01 - 42
45084 VBA
New VBA 메크로 기록 Range 질문입니다. (3) 답변완료
탕수육육 | 2022.12.01 | 추천 0 | 조회 42
탕수육육 2022.12.01 - 42
45077 함수/공식
New 음수 일련코드 시간으로 변경 어떻게 할까요? 첨부파일 (2)
힙합매냐 | 2022.12.01 | 추천 0 | 조회 28
힙합매냐 2022.12.01 - 28
45074 VBA
New 엑셀 시트 복사 이름 변경 및 변수 추가 엑셀파일첨부파일 (2) 답변완료
선크 | 2022.12.01 | 추천 0 | 조회 46
선크 2022.12.01 - 46
45073 함수/공식
New 초단위 합계 첨부파일 (1) 답변완료
BBB | 2022.11.30 | 추천 0 | 조회 34
BBB 2022.11.30 - 34
45072 함수/공식
New 조건부 서식에서 >0 이 무엇인가요? (1)
return**** | 2022.11.30 | 추천 0 | 조회 40
return**** 2022.11.30 - 40
45070 함수/공식
New 시간대별 생산계획 자동화 함수 및 수식 엑셀파일첨부파일 (2)
Carnelian | 2022.11.30 | 추천 0 | 조회 37
Carnelian 2022.11.30 - 37
45069 함수/공식
New 범위내에서 문자열셀 날짜셀 카운트하는 함수 엑셀파일 (2) 답변완료
엑셀고수를향해 | 2022.11.30 | 추천 0 | 조회 26
엑셀고수를향해 2022.11.30 - 26
45064 VBA
New 일정시간 온도기록 반복 작업 VBA 엑셀파일첨부파일
워싱턴 | 2022.11.30 | 추천 0 | 조회 43
워싱턴 2022.11.30 - 43
45062 함수/공식
New 중복제외하면서 순서대로 값 가져오기 첨부파일 (1)
노갈 | 2022.11.30 | 추천 0 | 조회 37
노갈 2022.11.30 - 37
45056 VBA
New 서로 다른 시트에서 소속과 성명이 같은 사람 중 날짜가 동일한 셀을 찾아 색채우기 vba 엑셀파일첨부파일 (2) 답변완료
007 | 2022.11.30 | 추천 0 | 조회 45
007 2022.11.30 - 45
45055 차트/그래프
New 차트 데이터 레이블 서식을 변경해도 자꾸 바뀝니다 첨부파일 (3)
에그로봇 | 2022.11.30 | 추천 0 | 조회 22
에그로봇 2022.11.30 - 22
45053 파워쿼리/피벗
New 파워쿼리 데이터 연결오류 첨부파일 (2) 답변완료
푸딩씨 | 2022.11.30 | 추천 0 | 조회 28
푸딩씨 2022.11.30 - 28
45051 차트/그래프
New 피벗 차트에서 누적막대그래프 사용할 때 총합계 수량을 차트에 띄울 수 없나요? 첨부파일 (1) 답변완료
에그로봇 | 2022.11.30 | 추천 0 | 조회 26
에그로봇 2022.11.30 - 26