0

【500枚】 excelで、例えば注文票のシートと注文履歴のシートがあって、注文票の各項目（客先名、価格）等を入力後に所定のボタンを押すと、別シートに各項目が、 別シートに注文履歴として転記されるマクロを作りました。

しかし別シートの注文履歴は、毎回同じ行の数値を更新されてしいます。、毎回記入済みの行の下に新しく記入されるように設定したいです。

例えば、１行目に転記されたら、次にボタンを押したときに２行目、次は３行目と、順々に別シートに表記されるいった設定にしたいのです。

こちらで質問したところ、

Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1).Select

という式を挿入すれば良いというところまでわかったのですが、既存の式のどの部分に挿入すれば良いのでしょうか？

既存の式は以下となります。

Sub Macro1()
'
' Macro1 Macro
'
Sheets("受注表☆").Select
ActiveWindow.SmallScroll Down:=12
Range("A54:B55").Select
Selection.Copy
Sheets("受注履歴").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("受注表☆").Select
ActiveWindow.SmallScroll Down:=-18
Range("A13:D14").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("受注履歴").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("受注表☆").Select
Range("D4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("受注履歴").Select
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("受注表☆").Select
Range("B7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("受注履歴").Select
Range("D3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("受注表☆").Select
Range("K4:M5").Select
Application.CutCopyMode = False
Selection.Copy


・・・・・中略・・・・・・・

Sheets("受注履歴").Select
Range("F3").Select
Sheets("受注表☆").Select
Range("F13:M22").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Sheets("受注履歴").Select
Range("F3").Select
ActiveCell.FormulaR1C1 = ""
Sheets("受注表☆").Select
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub

質問者が選んだベストソリューション

Yahoo!知恵袋 4476日前