통합 문서의 변경으로 인해 날짜 스탬프의 "로그 파일"

Question

통합 문서 (DATA)의 변경 사항을 추적하고 싶습니다. DATA-workbook은 여러 사람이 정보를 공유하는 데 사용됩니다. 최종적으로 자동으로 저장된 관련 정보로 다른 사람이 통합 문서를 작성합니다. 각 단계에 소요되는 시간을 알고 그 날짜 스탬프를 다른 통합 문서 (LOG)로 복사하는 방법을 알고 싶습니다. 누군가가 통합 문서를 작성하는 것을 잊어 버렸는지 확인할 수 있습니다.

Info   Requestor  Me   Support 
b1001  Kevin   Anders  Support 
       04-03-2011 05-03-2011 09-03-2011     
dd1001  Carl   Anders  Support 
       05-03-2011 05-03-2011 07-03-2011 
hahv500 Steve   Anders  Support 
      07-03-2011  

위의 데이터는 DATA-workbook의 일부에 지나지 않습니다.

로그 - 통합 문서를 열고 누군가가 자신의 정보를 입력했을 때 데이터와 날짜 스탬프에 복사해야합니다 위해 내가 찾고 있어요 코드 ..

요청자 전자 우편 나에게 파일을 다음 I 전자 지원에 이메일로 보내주십시오. 요청자가 전자 메일을 보내면 2 행과 B3 셀이 LOG-wookbook에 복사됩니다. 전자 메일로 전자 메일을 보내면 C3 셀이 복사되어 LOG에 붙여 넣기되며 지원이 저장되면 셀 D3이 복사/붙여 넣기됩니다.

나는 Excel wizzard가 아니기 때문에 간단한 대답을 기다리고 있습니다.

감사합니다, 귀하의 답변에 대한

앤더스가

---

감사합니다. 멀리 볼 수있는 한 코드는 메시지 상자를 팝업으로 표시합니다. 대상이 변경되면 필요하지 않습니다.

첫 번째 단계는이 부분이 있습니다. 나는 다음 단계로 무엇을해야할지 모른다. 내가 좀 조회해야 ... 도와 주시면 감사하겠습니다!

Dim FirstBlankCell As Range 

ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False 
Range("B7") = Now 


Workbooks.Open Filename:=Range("Log_destination") 
ThisWorkbook.Activate 
Workbooks(Range("Log_file_name").Value).Sheets(Range("2011").Value).Activate 

Set FirstBlankCell = Range("A" & Rows.Count).End(xlUp).Offset(1, 0) 
FirstBlankCell.Activate 

ThisWorkbook.Activate 
ActiveSheet.Range("A6:D6", "A7:B7").Copy 
Workbooks(Range("Log_file_name").Value).Sheets(Range("2011").Value).Activate 
Selection.PasteSpecial Paste:=xlPasteValues 
ActiveWorkbook.Close True 

Answer 1

나는 exatct 솔루션이 없지만 WorkBook Events를 사용해 볼 수 있습니다. 예를 들어

Option Explicit 
Private Sub WorkSheet_Change(ByVal Target As Range) 
    MsgBox "the value was changed" 
End Sub 

을 사용하고 메시지를 표시하는 동작을 로그 워크 시트를 업데이트하는 루틴으로 변경하십시오. 물론 구체화 셀에 대한 변경에만 적용되도록 제한 할 수 있습니다.

는 도움이되기를 바랍니다.