나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 VBA배움자 (silvership)

추천:  2
파일:     조회:  1554
제목:   엑셀 자료를 프린트 할때, DATA를 저장하는 VBA
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(95,97,2000,xp,2003,2007): 2000

* 아래줄에 질문을 작성하세요 >>
안녕하세요.
엑셀 자료를 프린트를 할때마다 DATA를 저장(백업?)하고 싶습니다.
고수님들의 도움 부탁드립니다. 

-세부조건
[1시트] 시시각각 단가와 수량이 추가되는 시트
A B C D
1 과일명 단가 수량 비고
2 사과 1000 2
3 배 5000 4
4 사과 2000 3

[시트2] 시트1의 행값을 불러와서 견적서가 작성되고, 프린트 하는 시트
A B C D
1 견적서 No.3
2 과일명 배
3 단가 5000
4 수량 4
5 가격 20000

[시트3] 질문드리는 시트 
시트 2가 출력될때마다, 시간과 프린트 내용이 자동으로 저장되는 방법을 찾고있습니다

예시:
A B C D
1 시간 과일명 단가 수량
2 5월 29일 1시 사과 1000 2
3 5월 31일 1시 배 5000 4
4 5월 31일 4시 사과 2000 3

감사합니다.
 
[불량 게시물 신고]  
VBA배움자Private Sub Workbook_BeforePrint(Cancel As Boolean)
  If ActiveSheet.Name = "시트2" Then
  With Sheets("시트3")
lr = .Cells(Rows.Count, "A").End(xlUp).Row
If Range("백업").Value <> .Cells(lr, "b") Then
.Cells(lr + 1, "b").Value = Range("백업").Value
.Cells(lr + 1, "a").Value = Now
End If
End With
End If
End Sub

백업이라는 이름관리자 지정하고 진행하는데.. 어디선가 꼬여있어요ㅠㅠ
06-01 (13:01)
삭제 ■신고
        
  

작성일 : 2020-05-31(08:47)
최종수정일 : 2020-05-31(08:47)