109

view

このページと最新のページの図が違うことや、質問内容に対する説明が少し複雑になりすぎていて、こんな簡単な回答でいいのかと少し不安ではありますが、質問を読んだ限りではこれだけでいいのではと思っています。-------------------【回答】①確定ボタンへ【このページの場合】D1:D13,F1:G13.Copy IIf(A18 = "", A18, Cells(18, Columns.Count).End(1).Offset(, 1))【最新のページの場合】D1:D7,F1:G7.Copy IIf(A11 = "", A11, Cells(11, Columns.Count).End(1).Offset(, 1))②リセットボタンへ【このページの場合】If A18 <> "" Then Cells(18, Columns.Count).End(1).Offset(, -1).Resize(13).Copy C1【最新のページの場合】If A11 <> "" Then Cells(11, Columns.Count).End(1).Offset(, -1).Resize(7).Copy C1-------------------を登録するだけです。※書式(色など)も全てコピーするようにしています。少しまだよく理解できてないかもしれませんので、もし不具合があれば再質問にてお知らせください。---------------↓最新ページへの投稿内容---------------まず１点肝心な部分の質問です。(リセットボタンの件)「D1:D7」の条件により「C1:C7」が変化するのですから、元に戻すのは「B11:B17→C1:C7」ではなく、「A11:A17→D1:D7」ではないのですか？あと２点質問です。①G列(今回はG1:G7)には空白はありますか？(G1:G7には毎回必ず何かしらデータが入っていますか？)②リセットを押したときに元に戻すのは、B11:B17→C1:C7(本当はA11:A17→D1:D7？)だけでいいですか？(「C11:C17→G1:G7」はしなくてもいいのですか？)※ずいぶんと質問がかさんでいますが、処理内容自体は何一つ難しいことはありません。