プライベートサブを使用してセルの変更を自動的にコピーして貼り付ける

Question

閉じたチケットが収集された私のワークブックにアーカイブシートを追加しようとしています。私は、「チケット」というラベルの付いたシートからカットされ、そのステータスがオープンからクローズドに変更されたシートに貼り付けられたシートに貼り付けてください。私はこれがプライベートサブを使って事実上の変更で起こるようにしてください。ステータスは列4にあります。

それが可能な場合はIMが他の方法でも可能になるでしょう。そのため、チケットが再開され、そのステータスが「アーカイブ」シートで変更された場合は、切断され、「チケット」シートに戻します。

これまでのコードです。私たちはそれを働かせるように思えることができます。あらゆる助けが大いに感謝されるでしょう。ありがとう

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

現在のコードを小さなものにするだけです。

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

.