エクセルのマクロで特定の行を別シートに移す方法について

db18gouさん

すでに、回答は出ていますが、老婆心ながら、抽出したあとは、元データに「転記済」などの値を入れておいた方が余計な混乱を回避できるように思います。

my_offiseさん

そうですか・・・ボランティアを

基本操作のフィルターで達成しますよ。

データ入力範囲を 範囲指定して → オートフィルタです

当然 キーは Ｉ列の「発想済み」

フィルタの結果範囲を 任意のシートにコピーしてください。

データ元は記録として残ったままですから。

簡単なマクロなら？ この操作は単純ですから・・・フィルタを使ってみます

Alt + F11 ( Alt キーを押しながら F11) → 挿入 標準モジュール

右空白ウィンドウに 以下前文コピー → ウィンドウを閉じる
................................. ↑全文 まちがっちった

Sub Filter_Copy()
Dim i As Long

Worksheets("コピー先のシート名").Cells.ClearContents
With Worksheets("入力データシート名").Range("a1")
.AutoFilter Field:=9, Criteria1:="発想済み"
.CurrentRegion.SpecialCells(xlVisible).Copy _
Worksheets("コピー先のシート名").Range("a1")
.AutoFilter
End With

For i = 1 To 9
Worksheets("コピー先のシート名").Columns(i).ColumnWidth = _
Worksheets("入力データシート名").Columns(i).ColumnWidth
Next i
End Sub

好みのタイミングで Alt + F8 (Filter_Copy)を実行してくださいな。

ja7awuさん

> セルに「発送済み」と入力したと同時にその～
「同時に」では、操作性がよくないと思います。
ここでは、操作性を考慮し「発送済み」と入力したらそのセルをＷクリックすると指定したシートに移動します。
ある程度 纏まってからＷクリックすると良いでしょう。
双方のシートの一行目は、「見出し」とします。
「発送済み」でも「発送済」でも「発送済」の文字列が何処かに入っていれば転送します。
元のデータがあるシートのモジュールに下記コードを記述します。
一応設定手順を書いておきます。ご存知の場合は、読み飛ばしてください。
・使用しているシートのシート名タブを右クリックして「コードの表示」を
指定し、開いたコードウィンドウに下記コードをコピーして貼り付けます。
・Alt+ Q (または、右上隅の×）でウィンドウを閉じ、シートに戻ります。
・メニューから[ツール]-->[マクロ]-->[セキュリティ]で「セキュリティレベル」を「中」にして[OK]します。 (Ver.Excel 2003)
Excel2007～のときは、メニューが違うと思いますが、セキュリティレベルを「警告を表示してすべてのマクロを無効」にします。
・以上で設定完了です。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Rw As Long
Dim Cnt As Long
Const ShName = "Sheet2" ' <-- 移動先シート名
If InStr(Target.Value, "発送済") > 0 Then
Cancel = True
For Rw = Cells(Rows.Count, 9).End(xlUp).Row To 2 Step -1
With Cells(Rw, 9)
If InStr(.Value, "発送済") > 0 Then
.EntireRow.Cut
Sheets(ShName).Rows(2).Insert Shift:=xlDown
.EntireRow.Delete
Cnt = Cnt + 1
End If
End With
Next
MsgBox Cnt & " 件のデータを移動しました。", vbInformation
End If
End Sub