ＥＸＣＥＬ ＶＢＡ シートのコピー後処理？

質問

ＥＸＣＥＬ2013使用にてフォーム内ボタンより
下記、受注一覧表シートをコピー→一番左に配置して
処理シートに名前を変更して
Ｊ列基準の昇順に並び変えようとしていますが
ActiveSheet.Name = "処理シート"で
コードの実行が中断されましたメッセージが出ます。

ActiveSheet.Name = "処理シート"にブレークポイントを置いて
Ｆ８で進めていきますと処理実行します。

ユーザーフォームは
UserForm1.Show 0で開いております。

どの箇所の修正を行えばいいのか
ご教示時お願いいたします。
Private Sub CommandButton1_Click()
Worksheets("受注一覧表").Copy Before:=Worksheets(1)
ActiveSheet.Name = "処理シート"
Worksheets("処理シート").Select
Rows("8:2328").Select
Range("B8").Activate
ActiveWorkbook.Worksheets("処理シート").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("処理シート").Sort.SortFields.Add Key:=Range("J9:J2328") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("処理シート").Sort
.SetRange Range("B8:L2328")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B8").Select
End Sub

回答No.2

chayamati · ベストアンサー

お早うございます。
色々勉強になりました。

＞ユーザーフォームはUserForm1.Show 0で開いております。
★開く必要はありません
＞Private Sub CommandButton1_Click()
★マクロの記録で作成するとモジュール名はSUBから始まります
★「CommandButton1」はActivXコントロールのコマンドボタンですね
　フォームコントロールのボタンは「ボタン１」です
--------------------------------------------------
コーディングの順序は正しいと思いますが
　何故かCommandButtonからでは
　Range("B8").Selectと Rows("8:2328").Selectでエラーになりますね　
★分類は1行目は見出し行、左列からKeyの順が下がります。
　1～6行を削除
　J列を切り取ってA列に切り取たセルを挿入
　並び替え
　A列を切取ってK列に切り取ったセルを挿入
　受注一覧表の１～６行をコピー、処理シートの1行目に挿入
添付画像のようにコマンドボタンを受注一覧表に配置しましたが印刷非対象です。
--------------------
Sub 報告書()
Application.DisplayAlerts = False
Sheets("受注一覧表").Copy After:=Sheets(2)
Sheets("処理シート").Delete
Sheets("受注一覧表 (2)").Select
Sheets("受注一覧表 (2)").Name = "処理シート"
Worksheets("処理シート").Select
並替
Range("B8").Select
End Sub
'--------------
Sub 並替()
Rows("1:6").Select
Selection.Delete Shift:=xlUp
Columns("J:J").Select
Selection.Cut
Range("A1").Select
Selection.Insert Shift:=xlToRight
Columns("A:M").Select
ActiveWorkbook.Worksheets("処理シート").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("処理シート").Sort.SortFields.Add Key:=Range("A1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("処理シート").Sort
.SetRange Range("A1:M1231")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'-------------「処理シート」の「配置を受注一覧表」に合わる。
Columns("A:A").Select
Selection.Cut
Range("K1").Select
Selection.Insert Shift:=xlToRight
Sheets("受注一覧表").Select
Rows("1:6").Select
Selection.Copy
Sheets("処理シート").Select
Range("A1").Select
Selection.Insert Shift:=xlDown
End Sub

お礼

回答が遅くなりすみません。
申し訳ありません。結果から言いますと
修正せずに動きました。
内容としては今まで問題なく稼働していた
VBAプログラムが組み込まれたファイルでも
色々な所でエラーが出て困っていたところ
他のPCでは稼働しましたため原因は不明ですが
今回使用したPC事態に問題があり今回、回答頂きました
皆様のPCでもエラーが出たということはコードに
少々、脆弱な部分があった？かと思います。
１週間後にエラーが出たＰＣでも通常通り稼働しましたので
ひとまずはそのまま使用しております。
お手数をかけてすみません。上記内容を含め
勉強になりました。ありがとうございました。

回答No.1

watabe007

>ActiveSheet.Name = "処理シート"で
>コードの実行が中断されましたメッセージが出ます。
前回処理した"処理シート"が残っているのでは？
Private Sub CommandButton1_Click()
　　Dim s As Worksheet
　　On Error Resume Next
　　Set s = Worksheets("処理シート")
　　On Error GoTo 0
　　If Not s Is Nothing Then
　　　　MsgBox "既に「処理シート」は存在しています。" & vbCrLf & _
　　　　　　"名前を変えるか、削除してください。", 48
　　　　Exit Sub
　　End If
　　Worksheets("受注一覧表").Copy Before:=Worksheets(1)
　　ActiveSheet.Name = "処理シート"
　　With ActiveSheet.Sort
　　　　With .SortFields
　　　　　　.Clear
　　　　　　.Add Key:=Range("J9"), _
　　　　　　SortOn:=xlSortOnValues, _
　　　　　　Order:=xlAscending, _
　　　　　　DataOption:=xlSortNormal
　　　　End With
　　　　'B8セル～L列の最終行まで検出
　　　　.SetRange Range("B8:L" & Cells(Rows.Count, "L").End(xlUp).Row)
　　　　.Header = xlYes
　　　　.MatchCase = False
　　　　.Orientation = xlTopToBottom
　　　　.SortMethod = xlPinYin
　　　　.Apply
　　End With
　　Range("B8").Select
End Sub

お礼

確認いたしましたが　処理シートは残っていないと思われます。
回答が遅くなりすみません。
申し訳ありません。結果から言いますと
修正せずに動きました。
内容としては今まで問題なく稼働していた
VBAプログラムが組み込まれたファイルでも
色々な所でエラーが出て困っていたところ
他のPCでは稼働しましたため原因は不明ですが
今回使用したPC事態に問題があり今回、回答頂きました
皆様のPCでもエラーが出たということはコードに
少々、脆弱な部分があった？かと思います。
１週間後にエラーが出たＰＣでも通常通り稼働しましたので
ひとまずはそのまま使用しております。
お手数をかけてすみませんでした。