개인 서브를 사용하여 셀 변경시 복사 및 붙여 넣기

Question

닫힌 티켓이 수집되는 내 통합 문서에 아카이브 시트를 추가하려고합니다.나는 특정 티켓의 행을 '티켓'으로 표시하고 '아카이브'라는 시트로 붙여 넣어 상태가 열려있는 것으로 바뀌면 '아카이브'로 붙여 넣습니다.셀 변경에서 발생하기 위해 개인 하위를 사용하여이를 원합니다.상태는 4 열에 있습니다.

수면이 가능하다고 가정하면 다른 방향으로도 다른 방향으로 수행 할 수 있습니다.따라서 티켓을 다시 열리고 '아카이브'시트에서 상태가 변경되면 '티켓'시트로 다시 붙여 넣습니다.

지금까지 우리가 가진 코드입니다.우리는 그것을 일하게하는 것처럼 보일 수 있습니다.도움이 크게 감사 할 것입니다.고맙습니다

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

.