マクロが完了したら新しい列に行をコピーする

Question

列Hのセルが「完了」とマークされたときにマクロを書き込む方法を学んでいるので、行全体がコピーされ、「完了」という新しいページに貼り付けられます現在のページから行を削除します。

私は自分で録音しようとしましたが、それを壊し続けました。私はこの権利をしているのかどうかわからない。

これは、これまでの私のコードです：

Sub Completed_Move() 
    ' Completed_Move 
    Macro Dim srchrng As Range, row As Range 

    Set srchrng = Range("H1,H500") 
    'For each cel in srchrng 
    If InStr(1, cel.Value) = Complete Then 
     Activecell.Offset(0, -7).Range("A1:N1").Select 
     Selection.Cut 
     Sheets("Completed").Select 
     Activecell.Select 
     ActiveSheet.Paste Sheets("Current").Select 
     Activecell.Rows("2:1").EntireRow.Select 
     Selection.Delete Shift:=xlUp 
     Activecell.Offset(2, 7).Range("A1").Select 
    End if 
End Sub 

Answer 1

あなたはコメントで言ったように、あなたはこの1つのように明示的なとして、エラーメッセージが表示されている場合：

期待End Subの

を

これは、あなたのコードにサブを閉じるためにEnd Subが見つからないことを意味します！コードの最後に追加してください。ここで

---

あなたのコードは、（... End Subで）で、改善された：

Sub Completed_Move() 
    'Completed_Move Macro 
    Dim SrchRng As Range, RowRg As Range, CellRg As Range 
    Dim wS1 As Worksheet, wSC As Worksheet 
    Dim i as Long 

    With ThisWorkbook 
     Set wS1 = .Sheets("Sheet1") 
     Set wSC = .Sheets("Completed") 
    End With 'ThisWorkbook 

    Set SrchRng = wS1.Range("H1:H500") 
    For i = SrchRng.Cells(SrchRng.Rows.Count,1).Row To SrchRng.Cells(1,1).Row Step -1 
     'If "Complete" is part of value in H 
     If InStr(1, SrchRng.Cells(i,1).Value, "Complete") Then 
      With wSC 
       wS1.Range("A" & SrchRng.Cells(i,1).Row & ":N" & SrchRng.Cells(i,1).Row).Copy .Range("A" & .Range("A" & .Rows.Count).End(xlUp).Row + 1) 
      End With 'wSC 
      SrchRng.Cells(i,1).Rows("2:1").EntireRow.Delete Shift:=xlUp 
     End If 
    Next i 
End Sub