###前提・実現したいこと
発注書ファイルのデータから、発注書の履歴ファイルを作成したいと思っています。
同じブック内で作成はできましたが、別ブックに転記する方法をご教授いただけましたら幸いです。
◆作成したマクロ
1.発注書(ワークシートA)をプレビュー
2.プレビュー後データが発注書履歴シート(ワークシートB)に転記
3.発注書(ワークシートA)のデータの削除。
◆希望
1.発注書(ワークシートA)をプレビュー
2.プレビュー後データが別ブックの発注書履歴シートに転記
3.発注書(ワークシートA)のデータの削除。
###該当のソースコード
Sub データの転記()
Dim 数 As Integer
Dim ボタン As Integer
Dim セル As Range
Application.ScreenUpdating = False On Error GoTo エラー処理 数 = Range("セル範囲").SpecialCells(xlCellTypeConstants).Count With Worksheets("ワークシートA") .PrintPreview ボタン = MsgBox("転記後、データ削除します。", vbYesNo, "転記/削除確認") If ボタン = vbNo Then Exit Sub Set セル = Worksheets("ワークシートB").Range("A1048576").End(xlUp).Offset(1) .Range("セル名").Copy セル.Resize(数).PasteSpecial xlPasteValuesAndNumberFormats .Range("セル名").Copy セル.Offset(0, 1).Resize(数).PasteSpecial xlPasteValues .Range("セル名").Copy セル.Offset(0, 2).Resize(数).PasteSpecial xlPasteValues .Range("セル名").Copy セル.Offset(0, 3).Resize(数).PasteSpecial xlPasteValues .Range("セル名").Resize(数, 9).Copy セル.Offset(0, 4).PasteSpecial xlPasteValuesAndNumberFormats .Range("セル範囲").ClearContents End With Set セル = Nothing Application.ScreenUpdating = True Exit Sub
エラー処理:
MsgBox Err.Description
End Sub
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/11/08 04:18