Copier et coller automatiquement sur le changement de cellule à l'aide de Sub Private

Question

J'essaie d'ajouter une feuille d'archive à mon classeur où les billets fermés sont collectés.J'aimerais que la rangée d'un billet particulier soit coupée à partir d'une feuille étiquetée «billets» et collé dans une feuille étiquetée «archive» une fois que son statut a changé d'ouverture à la fermeture.J'aimerais que cela se produise avec un substitut privé afin qu'il arrive sur le changement de cellule.Le statut est trouvé dans la colonne 4.

Si cela est possible, je suppose que cela sera possible de le faire à l'inverse.Donc, si un ticket est à nouveau ouvert et que son statut est modifié dans la feuille "Archives", il sera coupé et coller dans la feuille "Billets".

C'est le code que nous avons jusqu'à présent.Nous pouvons sembler le faire fonctionner.Toute aide serait grandement appréciée.Merci

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

Il suffit de faire de petits amendements à votre code actuel:

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