[[20210914095330]]　『条件に合うものだけ別シートへの転記』（マーチン）　ページの最後に飛ぶ

『条件に合うものだけ別シートへの転記』（マーチン）

日付・作業項目・品番・数量・備考・氏名が書かれた表があります。
そこから品番が一致するものを指定するシート・セルへ移動させたいです。
例)検品　あ-1⇒ シート1のB2へ
　　梱包　あ-1 ⇒ シート1のG2へ
　　検品　い-2 ⇒ シート2のB6へ

・移動させたい項目は日付・数量・備考・氏名です。
・表は日々更新されます。
・備考の欄は空白の場合もあります。
・同じ日付・作業項目・品番の場合もあり、下方向へ追加されていくようにしたいです。

宜しくお願いします

＜使用 Excel：Excel2016、使用 OS：unknown ＞

 イメージがわかないため、転記元と転記先のレイアウトを提示可能でしょうか？
 恐らくvlookupで可能だと思うのですが…
（*） 2021/09/14(火) 11:46

VIooupは Excel2016でも使用可能ですか？

「シート1」

　［A］［B］　［C］　　［D］［E］［F］［G］　
(1) 日付　作業項目　品番　数量　備考作業者名

(2) 9/13 検品　　あ-1 10 山田

(3) 9/14 検品　　あ-1 20 林

(4) 9/14 梱包　　あ-1 30 山田

(5) 9/14 検品　　い-1 10 田中

⇩ 転記
「シート2」(シート名“あ“)
　　
　　　［A］　　［B］　［C］［D［E］［F］［G］　
(1) 品番あ-1 【検品】　　　　　　　　【梱包】

(2) 日付　数量備考作業者名日付数量　備考作業者名

(3)　　　　　　　9/13 10 山田　　 9/14 30 山田

(4) 9/14 20 林

(5)

(6) 品番あ-2 【検品】　　　・・・
　　　　　・
　　　　　・
　　　　　・
「シート3」(シート名”い“)

　　　［A］　　［B］　［C］　［D］　　［E］　　［F］　［G］　
(1) 品番い-1 【検品】　　　　　　　　【梱包】

(2) 日付　数量　備考　作業者名日付　数量　備考　作業者名

(3) 　9/14 10 田中　 9/14 30 山田

(4) 9/14 20 林

(5)

(6) 品番い-2 【検品】　　　・・・
　　　　　・
　　　　　・
　　　　　・
こんな感じです。
わかりますでしょうか？

（マーチン） 2021/09/14(火) 12:32

 小文字で書いたのが悪かったですね。VLOOKUPです。
 そのフォーマットだと、可能ではあるのですが数式を書き換える回数が増えて面倒です。
 転記先のフォーマットはそれでなくてはならないですか？
（*） 2021/09/14(火) 13:19

分かりやすく、見やすければ、このフォーマットでなくて大丈夫です。
（マーチン） 2021/09/14(火) 15:01

なかなか面倒くさそうなので、違うことも考えているのですが、それもうまくいきません。

先程の表から作業項目別に別シートに転記しようと思ってます。
日付・品番関係なくです。
〈作業項目〉検品⇒シート2(シート名”検品”)
〈作業項目〉梱包⇒シート3(シート名“梱包”)
　
現在のコードです⇩ ※シート1名前を“入力“としています
Sub 転記()

　　　Dim i As long
　　　　With Worksheets(“入力”).Range(“B10:H500“)
　　　　　.Auto Filter Field:＝2 , Cr iteria1:＝”検品“
　　　　
　　　　　.CurrentRegion.SpecialCells(xlVisible).Copy Worksheet(”検品“).Range(”B2“)
　　　　　.AutoFilter
　　　　End With
　　　For i ＝　2 to 7
　　　　　Worksheets(”検品”).ColumnWidth ＝　_
　　　　　Worksheets(”入力“) .ColumnWidth

　　　　Next i

　　　End Sub

このまま実行すると、”検品“のシートに梱包の欄がコピーされたりします

（マーチン） 2021/09/14(火) 15:31

 わかりやすい・見やすいは個人の感覚なのでこちらからの提示はできませんが一例です。

 転記元
    |[A]    |[B]     |[C] |[D] |[E] |[F]     
 [1]|日付   |作業項目|品番|数量|備考|作業者名
 [2]|9月13日|検品    |あ-1|  10|    |山田    
 [3]|9月14日|検品    |あ-1|  20|    |林      
 [4]|9月14日|梱包    |あ-1|  30|    |山田    
 [5]|9月14日|検品    |い-1|  10|    |田中    
 [6]|9月10日|検品    |あ-2|1000|    |山田    
 [7]|9月11日|検品    |あ-2|2000|    |林      
 [8]|9月14日|梱包    |あ-2|3000|    |山田

 転記先
    |[A]    |[B]     |[C] |[D] |[E] |[F]     
 [1]|品番： |あ-1    |    |    |    |        
 [2]|       |        |    |    |    |        
 [3]|日付   |作業項目|品番|数量|備考|作業者名
 [4]|9月14日|梱包    |あ-1|  30|   0|山田    
 [5]|9月14日|検品    |あ-1|  20|   0|林      
 [6]|9月13日|検品    |あ-1|  10|   0|山田

 A4 
 =IFERROR(INDEX(Sheet1!A$1:A$40,AGGREGATE(14,7,ROW($A$2:$A$40)/(Sheet1!$C$2:$C$40=$B$1),ROW(A1))),"")
 縦横にフィル

 何個データが増えるのかもわからないのですし、品番ごとにシートを管理するほうが都合がいいと思いますよ。
 作業項目など、後でフィルターかけるなどで閲覧するほうが早いのではないでしょうか。

 上記フォーマットならB1セルを書き換えるだけで
    |[A]    |[B]     |[C] |[D] |[E] |[F]     
 [1]|品番： |あ-2    |    |    |    |        
 [2]|       |        |    |    |    |        
 [3]|日付   |作業項目|品番|数量|備考|作業者名
 [4]|9月14日|梱包    |あ-2|3000|   0|山田    
 [5]|9月11日|検品    |あ-2|2000|   0|林      
 [6]|9月10日|検品    |あ-2|1000|   0|山田    
 このように抽出できます。
（*） 2021/09/14(火) 15:41

それもそうなのですが、転記先からまた伝票や進捗表に転記していきたいのです。
ですから、初めは簡単に且つ分かりやすい状態で転記させたいのです。
わざわざ提案していただいたのに申し訳ございません。

先程、作業項目別に転記するコードを載せたのですが、それは見ていただけましたか？
（マーチン） 2021/09/14(火) 16:08

 すみません、作業項目別でもいいとか品番でもいいとか、
 その基準が分からないので私には荷が重いようです。
 最終的に転記したい形も分からないですし。
 他の回答者の方をお待ちください。
（*） 2021/09/14(火) 17:14

コメント返信：

[ 一覧(最新更新順) ]

[[20210914095330]] 『条件に合うものだけ別シートへの転記』（マーチン） ページの最後に飛ぶ

[[20210914095330]]　『条件に合うものだけ別シートへの転記』（マーチン）　ページの最後に飛ぶ