출고 데이터 추가하기-코드제공, 파일제공(복붙용)

재고관리프로그램-Ver.1.xlsm

0.04MB / 0.04MB

안녕하세요 반갑습니다.

 

저번 업로드는 입고견적서의 데이터를 입고데이터로 옮기는 코드를 제공해드렸는데요.

 

그럼 출고 견적서의 데이터도 출고 데이터로 옮길 수 있는 프로그램이 되어야겠죠?

 

코드는 아래와 같습니다.

Sub 출고견적서입력()
    Dim input_data As String
    Dim data As Integer
    data = 3
    Do While (Cells(data, "B").Value <> "")
        data = data + 1
    Loop
    input_data = "B" & Trim(Str(data)) & ":" & "E" & Trim(Str(data + 100))
    Range(input_data).Value = Worksheets("출고견적서").Range("B3:E100").Value
End Sub

 

입고견적서의 데이터와 딱히 달라진게 없는데요.

 

입고견적서입력 코드도 한번 볼까요?

Sub 입고견적서입력()
    Dim input_data As String
    Dim data As Integer
    data = 3
    Do While (Cells(data, "B").Value <> "")
        data = data + 1
    Loop
    input_data = "B" & Trim(Str(data)) & ":" & "E" & Trim(Str(data + 100))
    Range(input_data).Value = Worksheets("입고견적서").Range("B3:E100").Value
End Sub

 

두 코드의 달라진점은 "입고견적서"를 "출고견적서로 바꾼거 밖에 없네요 ㅎㅎ

 

이렇게 코드하나만 잘짜놔도 여러 방면으로 응용이 가능하답니다.

 

그래서 따로 코드분석 블로그는 쓰지않고 입고데이터 코드 이해 게시물로 연결시켜드릴게요.

 

코드에 대해 궁금하시거나 입맛대로 바꾸고 싶으신 분들은 한번 보시는걸 추천드립니다.

 

1. 매크로 지정 방법 링크

https://ksm30546.tistory.com/11

매크로 사용 방법

 

2. 코드 이해 링크

https://ksm30546.tistory.com/12

입고 데이터 추가하기 코드 분석

 

도움이 되셨다면 댓글과 좋아요 부탁드립니다.

 

모든 질문과 피드백도 환영입니다.