가입하고 많이 공부하고 많이 배우고 있지만 아직은 초보 단계라

늘 부족한가 보네요.

이번에는

매트로를 따라해 본다고 해 보았는데

계속 디버그가 나네요

오류 9번도 나고요

시트 번호 이름이 잘못 설정 되어 있는건가요??

원하는건

거래처 는 그냥 이름을 편하게 하고자 한것인데

그렇게 시트별로 구분하고 싶습니다.

입력은 거래내역에서 한번에 다하고

시트별로 구분 하기를 원합니다.

어떤게 잘못 된건가요? ㅠㅠ

제대로 되게 봐주세요

조금 설명도 같이 해주시면 감사 합니다.

여기에 사용한 매크로 입니다.

너무 기초죠~~~

Sub 자동추가()

Dim 선택범위 As Range

If Selection.Columns.Count >= 2 Or Selection.Column <> 1 Then
MsgBox ("품번을 선택하고 실행하세요"): Exit Sub
End If

Set 선택범위 = Selection

For Each 항목 In 선택범위

품번 = 항목
거래처 = 항목.Offset(0, 1)
인보이스No = 항목.Offset(0, 2)
DeliveryNote = 항목.Offset(0, 3)
수량 = 항목.Offset(0, 4)
단가 = 항목.Offset(0, 5)
총금액 = 항목.Offset(0, 6)
수량 = 항목.Offset(0, 7)
수금액 = 항목.Offset(0, 8)
일자 = 항목.Offset(0, 9)
수량 = 항목.Offset(0, 10)
수금액 = 항목.Offset(0, 11)
일자 = 항목.Offset(0, 12)
수량 = 항목.Offset(0, 13)
수금액 = 항목.Offset(0, 14)
일자 = 항목.Offset(0, 15)
수량 = 항목.Offset(0, 16)
수금액 = 항목.Offset(0, 17)
일자 = 항목.Offset(0, 18)
잔수량 = 항목.Offset(0, 19)
잔액 = 항목.Offset(0, 20)
여부 = 항목.Offset(0, 21)
인보이스 = 항목.Offset(0, 22)
품번번 = 항목.Offset(0, 23)

Worksheets(거래처).Select

빈행 = WorksheetFunction.CountA(Range("A:A")) + 1  '비어있는 첫행을 찾기

Cells(빈행, 1) = 품번
Cells(빈행, 2) = 거래처
Cells(빈행, 3) = 인보이스No
Cells(빈행, 4) = DeliveryNote
Cells(빈행, 5) = 수량
Cells(빈행, 6) = 단가
Cells(빈행, 7) = 총금액
Cells(빈행, 8) = 수량
Cells(빈행, 9) = 수금액
Cells(빈행, 10) = 일자
Cells(빈행, 11) = 수량
Cells(빈행, 12) = 수금액
Cells(빈행, 13) = 일자
Cells(빈행, 14) = 수량
Cells(빈행, 15) = 수금액
Cells(빈행, 16) = 일자
Cells(빈행, 17) = 수량
Cells(빈행, 18) = 수금액
Cells(빈행, 19) = 일자
Cells(빈행, 20) = 잔수량
Cells(빈행, 21) = 잔액
Cells(빈행, 22) = 여부
Cells(빈행, 23) = 인보이스
Cells(빈행, 24) = 품번번

Next 항목

End Sub