ここから本文です

一覧表シート 3行目に通番、製品番号、製作者…説明文等の項目がある。

mk_butasanさん

2018/1/1511:57:02

一覧表シート
3行目に通番、製品番号、製作者…説明文等の項目がある。

B4からB304までに製品番号が入力されている
T4からT304までに製品番号に一致する説明文が入力されている

廃番シート
3行目に一覧表シートを同じ項目がある。

廃番シートのA1のセルに製品番号を入力し
マクロボタンを押すと
製品番号から説明文までを切り取られ(通番はそのまま)
廃番シートの空き行に貼り付けされる。

また廃番シートADの列にマクロボタンを押した時の
日付が自動的に入力される。

一覧表シートは通番はそのままに
製品番号等上に詰めることとする。

マクロで作成する場合どうしたらよろしいですか?

補足返信に投稿できなかったのでこちらに書きます。
ご指導ありがとうございます。入力窓に方向転換中です。
切り貼りはできたのですが、空白行にならず試行錯誤中です。

Sub 廃番()
Dim myKeyWord As String
Dim FirstAdd As String
Dim c As Range
Dim ur As Range
myKeyWord = Application.InputBox("廃番番号を入れてください", "廃番処理", Type:=2)
If myKeyWord = "" Or myKeyWord = "False" Then Exit Sub

With Worksheets("製品一覧").Columns(2)
.Cells(1).Select
Set c = .Find( _
What:=myKeyWord, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
MatchCase:=False, _
MatchByte:=True)

If Not c Is Nothing Then
Set ur = c.EntireRow
FirstAdd = c.Address
Do
Set ur = Union(c.EntireRow, ur)
Set c = .FindNext(c)
Loop Until (c Is Nothing) Or (FirstAdd = c.Address)
End If
ur.Copy Worksheets("廃番").Range("A4" & Rows.Count).End(xlUp).Offset(, 1))
ur.Delete Shift:=xlShiftUp
End With
Set ur = Nothing
End Sub

閲覧数:
55
回答数:
1
お礼:
50枚

違反報告

ベストアンサーに選ばれた回答

yokomaya3さん

2018/1/1512:46:19

どうしたらよいか?
まず流れがちょっと疑問です。

>廃番シートのA1のセルに製品番号を入力し

なんでわざわざ入力させるのでしょう?
手間も増えるし、入力ミス誘発の可能性もある。
一覧シートの選択中の行を処理させるとするのが
現実的ではないでしょうか?
その開始にあたって製造番号を表示してそれを
廃番にします等のメッセージをだすのは如何でしょうか?


>一覧表シートは通番はそのままに
>製品番号等上に詰めることとする。

製造番号等上に積めるのに通番はそのままというのが
ちょっと理解出来ません。
切取った行を削除するのかしないのかでは
どうなんでしょうか?
通番は製品番号と関連付けないということでしょうか?

  • 質問者

    mk_butasanさん

    2018/1/1513:40:28

    ご質問いただきありがとうございます。

    実際は製品番号ではないため
    仮称で質問させていただきました。

    なお番号を入力すると
    別のセルに一つしか存在しない
    製品名が表示されます。
    (というイメージです)

    また手入力する意味は別途あるため
    ここはスルーいただけるとありがたいです。


    そして通番と製品番号は関連付けされておりません。
    行を切り取りとりでもよいのですが
    通番は上から順番に振り直しが必要です。
    (300番まであれば足りるので300番まで固定にしてあります)

    一覧表は一部関数が入力されており
    通番で300番まで関数を消えないようにしつつ
    いらない製品を廃番シートに移して
    行を上に詰めたい…という感じです。

    わかりにくい説明で申し訳ありませんが
    よろしくお願いします。


  • その他の返信を表示

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

この質問は投票によってベストアンサーに選ばれました!

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。