Excelのマクロの質問

質問

現在、Excelのマクロで業務のチェックリストを作っています。

形式は
・A～N列までチェック項目、O列に済みのチェックボックス（P列にチェックボックスをリンクさせてTrue or Falseを表示）。
・5～30行目までにデータを入力します。

この状態でやりたい事は、
・「進行中業務」シートにデータを入力し、終了したら「済み」チェックボックスにチェックを入れます。
・マクロと連動させたボタンを押すと、済みにチェックが入っている進行中業務シートのデータを終了業務シートにコピーし、終わったら進行中業務シートのデータを消去します。

とりあえず上の趣旨でざっとマクロを作ってみたのですが、マクロド素人のため基本的な命令文の理解が無く、やりたい事をうまくVBに反映させられません・・・。

とりあえず、やりたい事がわかるように作成したマクロ（のようなもの・・・）を貼り付けますので、ご意見を頂きたいと思います。
コピーのプロセスと消去のプロセスを分けてあります。
ご教授のほど宜しくお願いします。

Sub Copyプロセス()
'

Dim x '行番号変数

For x = 5 To 30
'If Px列がTrueならば
Sheets("進行中業務").Select
Range("A5:N5").Select '済みチェックTrue行のA~N列を選択(A5:N5をAx:Nxにしたい)
Selection.Copy
Sheets("終了業務").Select '頭につけて全データを一つ下ろすイメージだけど、
Selection.Insert Shift:=xlDown '全データの最後にくっつける形でもよい。

Sheets("進行中業務").Select '本日の日付（終了処理日時）の入力
Range("K1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("終了業務").Select
Range("M5").Select 'M5をMxにしたい。
Selection.Insert Shift:=xlDown

'else Undo NxがFalseならなにもしない。

'If Ax = blank 'A列に何も無くなった場合、処理を終了する。
' x = 30
'else undo 'そうでなかったら処理継続。

Next x

End Sub

Sub 消去プロセスの消して1行上にずらすパターン()

Dim y '消去してずれた分の補正用変数
y = 0 '補正分はとりあえずなし。

For x = 5 To 30
'If P(x-y)=True
Range("A8:P8").Select '消して1行上にずらす。A8:P8をA(x-y):P(x-y)にしたい。
Selection.Delete Shift:=xlUp
'P(x-y) = False 'チェックボックスのチェックを切るのはこれでOKぽい。
y = y + 1 '1個ずれ分の補正
'else Undo Falseなら何もしない。

Next x

End Sub

回答No.1

keithin · ベストアンサー

sub macro1()
　dim i as long
　worksheets("進行中業務").select
’メインプロセス
　for i = 30 to 5 step -1
　if .cells(i, "P") = true then
　’チェック済みならコピーして
　　cells(i, "A").resize(1, 14).copy
　　worksheets("終了業務").range("M5").insert
　’抹消
　　cells(i, "A").resize(1, 14).delete shift:=xlshiftup
　end if
　next i
’チェックの修正
　range("P5:P30") = false
end sub

お礼

有難うございます。
回答頂いたマクロがとてもスッキリしているのでびっくりしました！
とても勉強になりました。