Перемещение строк на другие листы

Question

Есть ли способ или формула, которая могла бы переместить определенную строку на другой лист, просто введя критерии и нажав клавишу ввода?

Как если бы у меня было 3 листа, и один из столбцов на каждом листе назывался статус, и в этом столбце я вводил COMP, мог ли он переместить всю информацию на лист, называемый листом COMP?

Answer 1

Вставьте этот код в свои листы

Private Sub Worksheet_Change(ByVal Target As Range)
    If (Range("A1").Value = "COMP") Then ' Replace "A1" for your cell that will contain COMP

    ActiveSheet.Range("1:1").Copy _       ' Replace  1:1 by your souce row
        Destination:=Worksheets("COMP").Range("2:2") 'replace 2:2 by your dest row


    End If
End Sub

Когда пользователь меняет любое значение на рабочем листе, если значение «A1» равно «COMP», выбранная вами строка (1 в примере)копируется в строку назначения (строка 2 в примере) на листе COMP.

Answer 2

Вы можете создать макрос VBA, который будет выполнять все перемещения за вас, но для этого потребуется, чтобы пользователь запускал его вручную, а не просто набирал COMP в ячейке. Вы также можете автоматически обновлять его, не нажимая кнопку COMP, и вводите его, используя формулу, которая ссылается на другие таблицы (но тогда она всегда будет там).

=Sheet1!A1

Приведенный выше код будет ссылаться на верхнюю левую ячейку на листе «Лист1».