他のシートに行を移動する

Question

条件を入力してEnterキーを押すだけで、特定の行を別のシートに移動する方法や数式はありますか？

3枚のシートがあり、各シートの列の1つがステータスと呼ばれ、この列にCOMPと入力すると、すべての情報をCOMPシートというシートに移動できますか？

Answer 1

「A1」の値が「COMP」、選択した行（例では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 

にこのコードを挿入ワークシートCOMPの宛先行（この例では2行目）にコピーされます。

Answer 2

すべての移動を行うVBAマクロを構築できますが、セルにCOMPを入力するだけでなく、手動で実行する必要があります。また、ユーザーがCOMPを押さずに自動的に更新され、他のワークシートを参照する式を使用して入力することもできます（ただし、常にそこに存在します）。

上記のコードは、ワークシート 'Sheet1'の左上のセルを参照します。