スキルアップ・問題解決なら、モーグにおまかせ！

入力用シートにデータを入力していき、関西シート、関東シートに
データが飛ぶようにしたいのですがＶＢＡを使用せずに
関数のみで対応可能でしょうか？
 
ちなみに入力用のシートには関西なら『１』、関東なら『2』を入力。
月、日にち、印刷があれば印刷に枚数を、ラベル台紙を使えば
ラベル台紙セルに入力を行います。
 
関西シート、関東シートには月別の表があり、
それぞれデータを飛ばしたいのです。
 
 
    入力用    関西→１    関東→2    
                
関西か関東    月    日    印刷    ラベル台紙
1    　　　　1    10    2700    
2    　　　　1    14    50    300
1    　　　　2    18    1200    
1    　　　　2    20    1600    2000
2    　　　　2    16        2000
 
 
 
関西シート
 
        関西                        
                                
        1月                2月        
        日    印刷    台紙        日    印刷    台紙
        10    2700            18    1200    
                        20    1600    2000
                
                                
                                
        合計    2700    0        合計    2800    2000
 
 
        関東シート                        
                                
        1月                2月        
        日    印刷    台紙        日    印刷    台紙
        10    50    300        16        2000
                                
 
                                
        合計    50    300        合計    0    2000
 
 
 
 

セルの配置がわからないので、適当に回答します。
 
●入力
 
　　　　　　A　 B　 C　　 D　　　　　 E
1　関西か関東　月　日　印刷　ラベル台紙
2　　　　　 1　 1　10　2700　　　　　　
3　　　　　 2　 1　14　　50　　　　 300
4　　　　　 1　 2　18　1200　　　　　　
5　　　　　 1　 2　20　1600　　　　2000
6　　　　　 2　 2　16　2000　　　　　　
 
●関西
 
　　　 A　　 B　　 C　　 D　　 E　　 F
 1　 1月　　　　　　　 2月　　　　　　
 2　　日　印刷　台紙　　日　印刷　台紙
 3　　10　2700　　 0　　18　1200　　 0
 4　　　　　　　　　　　20　1600　2000
 5　　　　　　　　　　　　　　　　　　
 6　　　　　　　　　　　　　　　　　　
 7　　　　　　　　　　　　　　　　　　
 8　　　　　　　　　　　　　　　　　　
 9　　　　　　　　　　　　　　　　　　
10　合計　2700　　 0　合計　2800　2000
 
A3
=FILTER(入力!$C$2:$E$200,(入力!$A$2:$A$200=IF(REPLACE(CELL("filename",A1),1,FIND("]",CELL("filename",A1)),)="関西",1,2))*(入力!$B$2:$B$200&"月"=A1),"")
→D3にコピー

●関西
 
A3
=FILTER(入力!$C$2:$E$200,(入力!$A$2:$A$200=1)*(入力!$B$2:$B$200&"月"=A1),"")
 
 
●関東
 
A3
=FILTER(入力!$C$2:$E$200,(入力!$A$2:$A$200=2)*(入力!$B$2:$B$200&"月"=A1),"")
 
これでもOK

んなっと様
 
2回もご教示ありがとうございます。
 
仰る通り、セル配置の記載を失念しておりました。
お手数おかけしました。
 
今手元にパソコンがなく、
まだトライしてませんが
中々難しい初めて見る数式です。
（また返信させて頂きます）
ネットでどう言う意味か見ております。
 
 
10年ほど前まではVBA使用していましたが
一旦年数置くと難しいですね。
今関数と共に勉強中です。
 
ダイアログボックスで入力するには
VBAを使わないと、と感じたのですが
いかがでしょうか？
[u]

なぜかエラーが出るので
再度トライしてみます。
ありがとうございます。

可能あらば、入力用シート側に１列追加して、関西、関東を（識別コードでも文字列でも）入力すると、
オートフィルタを使ってコピペできます。
データ1件毎に入力するのが面倒だとしたら、入力後、一括入力する方法もあります。
 
これだけの「要件でＶＢＡにする必要はないかも・・・
 

んなっと様
 
お返事が大変遅くなり申し訳ありません。
 
ご教示頂きました
関西、関東にそれぞれ数式を入力しましたら
思うように作動しました。
ありがとうございました。
 
数式についても自分で意味を理解出来るよう
（覚えれるよう）
引き続き勉強していきます。
 
ありがとうございました。
 
 
さらまこ

WinArrow様
 
お返事が大変遅くなり申し訳ありません。
 
数式以外に色々なやり方があるのが判り
勉強になります。
 
確かにVBAは、、ですね笑
10年前ほどやっていたので思わずどの様になるのかな？
と思いました。
 
 

WinArrow さんの引用:
可能あらば、入力用シート側に１列追加して、関西、関東を（識別コードでも文字列でも）入力すると、
オートフィルタを使ってコピペできます。
データ1件毎に入力するのが面倒だとしたら、入力後、一括入力する方法もあります。
 
これだけの「要件でＶＢＡにする必要はないかも・・・