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

작성자:  

 멋진넘 (ilil6)

추천:  0
파일:     엑셀자동저장질문1.xlsx (21.1KB) 조회:  240
제목:   고수님들안녕하세요.엑셀 출력할때마다 특정 셀값을 자동으로 저장할 수 있을까요?
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

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

* 아래줄에 질문을 작성하세요 >>

고수님들 안녕하세요...꾸벅
다름이 아니고요. 첨부파일 보시면 이름과 날짜 제품명등을 적어서 매일 출력해서 고객에게 보내줘야 하는대요.
인쇄출력할때마다 빨간색칠한 셀의 값을 다른엑셀파일이나 메모장에 자동으로 저장이 되게 할 수 있을까요??
고수님들 도와주시면 정말 정말 감사드리겠습니다....꾸벅...ㅜㅜ

현재 넘버링때문에 아래 메크로가 사용되고 있습니다.

Sub 인쇄하기()
    ActiveWindow.SelectedSheets.PrintOut
    Range("B51").Value = Range("B51").Value + 1
End Sub
 
[불량 게시물 신고]  
dewSub 인쇄하기()
    Dim rTg As Range

    Set rTg = Worksheets("정보저장").Cells(Rows.Count, 1).End(xlUp).Offset(1)
    
    With ActiveSheet
        .PrintOut
        
        '날짜    이름    상품명  무게    사이즈
        rTg.Cells(1, 1) = Format(.[C4], "yyyy-mm-dd")
        rTg.Cells(1, 2) = .[E56]
        rTg.Cells(1, 3) = .[H28]
        rTg.Cells(1, 4) = .[K51]
        rTg.Cells(1, 5) = .[Q46]
     
        .Range("B51").Value = Range("B51").Value + 1
    End With
End Sub
09-05 (13:12)
삭제 ■신고
멋진넘dew님 정말 너무너무 감사드립니다.
오늘 하루도 너무너무 기쁘고 즐거운일만 가득하시길 바랄게요~~^^
09-05 (13:36)
삭제 ■신고
        
  

작성일 : 2019-09-05(01:48)
최종수정일 : 2019-09-05(01:48)