マクロ 別シートへ移動

質問

マクロ超初心者です。

＜受付待ち＞シートに
　Ａ　　　　　　Ｂ　　　　　　　Ｃ　　　　　　Ｄ　　　　　Ｅ
　担当者　お客様名　同行者名　予定日　　備考
　○○　　　鈴木　　　　　　　　　　　4/10
　■■　　　田中　　　　　田中子　　4/10
　○○　　　佐藤　　　　　　　　　　　4/10
　○○　　　高橋　　　　　　　　　　　4/8

とデータが入っています。

受付を確認したお客様の横一列のデータ
「担当・お客様名・同行者・予定日・備考」を全て
「受付」ボタンを押すと
＜受付済み＞シートへ移したいと思っています。

例：佐藤さんの受付をしたら佐藤さんの所を指定して
ボタンを押すと横一列のデータを＜受付済み＞シートへ移動させる。

というマクロを作りたいです。
全くの初心者で全くわかりません。

よろしくお願いします。

回答No.1

keithin · ベストアンサー

こんな感じですかね。

Sub サンプルマクロ()
　If ActiveSheet.Name <> "受付待ち" Then Exit Sub
　Selection.EntireRow.Copy _
　Destination:=Worksheets("受付済み").Cells.SpecialCells(xlCellTypeLastCell).Offset(1).End(xlToLeft)
　Selection.EntireRow.Delete shift:=xlShiftUp
End Sub

＃「移動させる」の意図とか，「今現在の受付待ちシートに記入されている正確な内容，特に数式の有無」とかが不明確なので，もう少し直しがあるかもしれません。応用して頑張って修正してみてください。

＃受付済みシートの，いったい「どこの行が空いている」とどうやったら「確実に調べがつく」ようなシートの作りになっているのか具体的な情報がありませんので，実際のシートの状況に従ってもうちょっと上手いマクロに修正してみるような事もできます。
判らなければ，このままでも使えますからこのまま使ってください。

お礼

ありがとうございます。
コピペで使わせていただきました。
感動しました！マクロってすごいですね！

指定した横一列を消す事は出来たのですが、
受付済みシートへその内容が移動されません。
受付シートへは単純に受付待ちシートの内容が
受け付けた順番になればいいだけです。
よろしければ、その方法も教えてください。

回答No.2

keithin

＞指定した横一列を消す事は出来た
＞受付済みシートへその内容が移動されません

ふむ。。そういう症状ですか。
回答したマクロは，もちろんあなたがヤリタイ事を実現できるように書いてあります。

受付済みシートを開き，コントロールキーを押しながらキーボードのEndと書かれたキーを押します。
単純にマウスのくるくるを回して，シートを下にずっとスクロールするのでも良いかも知れません。
そこにありませんか。

対応：
１．今ある「受付済み」シートの名前を「受付済(旧)」とでも変えます
２．新しいシートを一枚用意します。シート名タブを右クリックして挿入で。
３．用意した新しい空シートの名前を「受付済み」にします
４．１行目に，タイトル行を記入します。
５．マクロを動かします。

必要なら，退避した旧シートのデータを「セルをコピーして」新たに作成した受付済みシートにコピーして引っ越しておきます。
上手く動作するようになったら，旧シートは破棄して構いません。

＃ウンチク
先の回答でも触れましたが，「どこに貼り付けたらいいのか」空き行を調べる方法は色々あります。
もっと簡単で一般的なやり方もありますが，それだと実際のあなたのお手許のデータがどんな「埋まり具合」になっているのか不明なのでデータを重ね書きして壊してしまう危険もあり，最大限安全な方法で回答しています。いつかスキルアップして，教わったマクロをコピーして動かすだけじゃなく自分でマクロを書けるようになったら，また違う方法も勉強してみてください。

お礼

ありがとうございます。
しっかり出来ました。
今まで逃げていたマクロですが、勉強してみたい！と思いました。
ありがとうございます。