Макрос для перемещения строки из одного wksheet в другой в той же книге после изменения состояния

Question

У меня есть книга с двумя листами (1 лист называется final, 1 лист называется ожидающим), которые используют одни и те же заголовки столбцов и формулы столбцов.

Мне сложно определить макрос/VBA, который поможет мне автоматически переносить строки данных из «ожидающего» листа на «окончательный» лист после изменения статуса четвертого столбца от ожидающего до окончательного. Это значит, что все данные для ожидающих и конечных клиентов хранятся на отдельных листах.

Пожалуйста, помогите.

Answer 1

Попробуйте что-нибудь подобное на вашем коде woorkbook:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 
If Sh.Name = "pending" And Target.Column = 4 Then 
    If Sh.Cells(Target.Row, Target.Column) = "final" Then 
     Sh.Select 
     Sh.Rows(LTrim(Str(Target.Row)) & ":" & LTrim(Str(Target.Row))).Select 
     Selection.Copy ' or cut 
     Sheets("final").Select 
     Rows("20:20").Select ' here is your destination row... you must set a global to control it... 
     Selection.Insert Shift:=xlDown 
    End if 
End Sub 

Удачи!