|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
세금계산서 매출이 아닌 매입프로그램을 만들고 싶어서
만들어 보았는데 잘 안되네요.
막히는 부분을 도와 주시면 편집을 해서
잘 활용해 보겠습니다.
즐거운 주말 되시길~~
==============[우진이아빠님 글에 대한 답변입니다]==============
코드를 아래와 같이 변경해 주세요....
Application.ScreenUpdating = False
Dim erow As Double
erow = Sheets("매입현황").Range("b65536").End(xlUp).Row + 1
With Sheets("매입현황")
.Range("b" & erow) = erow - 3
.Range("c" & erow) = Range("ai16")
.Range("d" & erow) = Range("f7")
.Range("e" & erow) = Range("d16")
.Range("f" & erow) = Range("ai20")
.Range("g" & erow) = Range("ai21")
.Range("h" & erow) = Range("ai22")
.Range("i" & erow) = Range("ab13")
.Range("j" & erow) = Range("ae20")
.Range("k" & erow) = Range("x2")
End With
Application.ScreenUpdating = True
End Sub
그리고 일련번호를 적용할려면 계산서발행시트 AC5에 아래의 수식을 넣어보세요.
=COUNTA(매입현황!B:B)-2
==============[정해원님 글에 대한 답변입니다]==============
해원님 감사드립니다.
그런데 저장단계에서 코드수정을 하였습니다.
하지만 저장단계에서 일련번호만 저장이 되고
나머지 내용들은 저장이 안되거든요.
뭐가 문제인지 잘 모르겠습니다.
첨부파일 올려드립니다.
보람된 하루 되시길..
|
|