Copia e incolla automaticamente sulla modifica della cella usando il sub privato

Question

Sto cercando di aggiungere un foglio di archivio alla mia cartella di lavoro in cui vengono raccolti i biglietti chiusi.Vorrei che la fila di un particolare biglietto da tagliare da un foglio etichettato "Biglietti" e incollato in un foglio etichettato "Archivio" una volta che il suo stato è cambiato da Aperto.Vorrei che questo accada usando un sub privato in modo che accada sul cambiamento cellulare.Lo stato si trova nella colonna 4.

Se ciò è possibile, supponendo che sarà possibile farlo anche l'altro modo.Quindi se un biglietto viene riaperto di nuovo e il suo stato viene modificato nel foglio "Archivio", verrà tagliato e incolla il foglio "Biglietti".

Questo è il codice che abbiamo finora.Possiamo sembrare il lavoro.Qualsiasi aiuto sarebbe molto apprezzato.Grazie

Private Sub Worksheet_Change (ByVal Target As Range) 

If Target.Column = 4 Then 
If Target.Value = "Closed" Then
   R = Target.Row 
   Rows(R).Cut 
   Worksheets("Archive").Select
     With ActiveSheet
      lastrow = .Cells(.Rows.Count,"B").End(xlUp).Row
     End With
   Cells(lastrow,1).Select
   Selection.Paste
End If
End If 
End sub 

.

Answer 1

Basta fare piccoli emendamenti al tuo codice corrente:

If Target.Column = 4 Then
If Target.Value = "Closed" Then
   R = Target.Row
   Rows(R).Cut
   Worksheets("sheet3").Select
     With ActiveSheet
      lastrow = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
      .Cells(lastrow, 1).Select
      .Paste
     End With
End If
End If

.