상태 변경 후 같은 통합 문서에서 한 wksheet에서 다른 wksheet로 행을 이동하는 매크로

Question

동일한 열 머리글 및 열 수식을 사용하는 두 개의 워크 시트 (최종 1 시트, 보류 중 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 

행운을 빕니다!