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