[[20171210070137]]　『セルの塗りつぶしされている行を別シートに移動さ』（マメシバ）　ページの最後に飛ぶ

『セルの塗りつぶしされている行を別シートに移動させたい』（マメシバ）

 先日20171204192556で質問をさせて頂きましたが、作業内容が違っていまし たので							
 再度質問をさせて頂きました。(*ﾉωﾉ)
 ※パソコンのバージョンも違っていました。すみません。

 作業シートのA6セルからAL行に工事の進捗状況を表示させるコードが入力されています。							
 工事が完了するとセルにグレーの塗りつぶしがされていきます。(セルの色は1色です)

 ここまではマクロ化されております。(前任者が作ってくれました。(◞‸◟))

 今回A6セルからAL行に入力された作業コードが入ったすべてのセルが塗りつぶしを							
 されたものを作業シート(作業中のシート)から完了シートに移動させるマクロを							
 教えていただけないでしょうか?

 完了シートにはすでに今まで完了した工事のデータが入っていますので最終行に追記を							
 していく形でお願いします。

 マクロに関しましては初心者で知識が乏しい為すみませんがお力添え願います。							
(◞‸◟)

 【作業シート】							
	M	N	O	P	Q	・・・	AL
6	888			■	1111		
7	888						
8	888				■		
9	■						
10	■			■			
	↓						
6	888			■	1111		
7	888						
8	888				■

 ※９行目と１０行目か完了した為作業シートから切り取り							
 【完了シート】の既存のデータの最終行に追加							
 9	■						
 10	■			■

＜使用 Excel：Excel2013、使用 OS：Windows8 ＞

＞ここまではマクロ化されております。

参考になるかわかりませんが、コードを提示していただくことは可能ですか。

（マナ） 2017/12/10(日) 10:13

マナ様ご連絡いただきありがとうございます。

本日会社がお休みのため後日コードを入力させて頂きます。
（マメシバ） 2017/12/10(日) 11:22

コメント返信：