Скопируйте и вставьте автоматически на изменение ячейки с помощью частных саб

Question

Я пытаюсь добавить лист архива в свою рабочую книгу, где собраны закрытые билеты.Я хотел бы, чтобы ряд определенного билета обрезал из листа меченых «билетов» и вставлен в лист меченый «архив» после того, как его статус изменился с Open для закрытия.Я хотел бы, чтобы это произошло, используя частную саб, так что это происходит при изменении клеток.Статус находится в столбце 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

.