0

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

これだと、毎回同じ行の数値を更新されてしまうので、毎回された行の下に新しく記入されるように設定したいです。

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("E3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("受注表☆").Select
Range("F13:M22").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!知恵袋 4288日前