title: Picking list in Excel VBA
body: <p>I would like to create a picking list template for a logistic process in a warehouse. Following is the planned structure:</p>
  <ul>
  <li>row1: header</li>
  <li>scanned data: part number (column A), quantity (column B), location (column C)</li>
  <li>timestamp of scanning automatically entered in column D when quantity scanned</li>
  <li>all the cells are protected except of scanned data</li>
  <li>one picking list contains max. 10 rows, then
  save the file with timestamp (in xls, txt, csv etc. format): picking_list_ddmmyy_hhmm.ext,
  print 3 copies on default printer,
  and re-open the blank sheet for another scanning.</li>
  <li>if picking list is shorter than 10 rows, option need to print it manually. when Print button pressed, then
  save the file with timestamp (in xls, txt, csv etc. format): picking_list_ddmmyy_hhmm.ext,
  print 3 copies on default printer,
  and re-open the blank sheet for scanning.</li>
  </ul>
  <p>I am here with the project (being a enthusiastic beginner I used different google findings, but I am stuck):</p>
  <pre><code>Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Column = 3 And Target.Count = 1 And Target(1).Value &lt;&gt; &quot;&quot; Then 
        Range(&quot;A&quot; &amp; Target.Row + 1).Select
        Dim x As Integer
        For x = 2 To 1000
           If Cells(x, 3).Value &lt;&gt; &quot;&quot; And Cells(x, 4).Value = &quot;&quot; Then
              Cells(x, 4).Value = Date &amp; &quot; &quot; &amp; Time
              Cells(x, 4).NumberFormat = &quot;mm/dd/yyyy hh:mm:ss&quot;
           End If
        Next
     End If
  End Sub
  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     With ActiveSheet.Shapes(&quot;Gomb 3&quot;)
        .Top = Target.Offset(1).Top
        .Left = Target.Offset(, 1).Left
     End With
  End Sub
  
  Sub PrintScreen()
     ActiveSheet.PrintOut Copies:=2, Collate:=True
  End Sub
  </code></pre>
  <p>Can you please help me to complete the task as described above?</p>