【マクロ】シート追加時に同じ名前のシートがあり、エラーの場合、メッセージを出し、次のコードへ進むには

標題の件、シート追加時に、既に同じ名前のシートがあると
エラーが表示されます

【やりたい事は】

条件分岐
1 既に、同じ名前のシートが無い場合⇒通常処理
2 既に、同じ名前のシートがある場合
⇒メッセージ「既に同じシートがあります」を表示の上エラーを無視し、次のコードへ進みたい

ご存じの方、やり方、アドバイスをお願いします

【コード内容】
コントロールブックにある、Sheet1をコピーして
あいうえおブックに、貼付。Sheet1の名前を　依頼データに　変更する


【エラー表示】
1004
この名前は既に使用されています。他の名前を使用して下さい。

【コード】
Sub シートを別のブックにコピーする()


Dim filepath2 As String
Dim wb2 As Workbook
Dim ws2 As Worksheet


filepath2 = ThisWorkbook.Worksheets("転記元シート").Cells(7, 1) 'あいうえおブック
Set wb2 = Workbooks.Open(filepath2)

Dim copysheet As Worksheet
Set copysheet = ThisWorkbook.Worksheets("Sheet1")

' ブックの末尾にコピー
copysheet.Copy After:=wb2.Worksheets(wb2.Worksheets.Count)
ActiveSheet.Name = "依頼データ"


End Sub

No.3 ベストアンサー 回答者： tatsumaru77 回答日時： 2025/02/08 20:44

>以下のコードはどのような　動きをする為の

ものなのでしょうか？
>On Error GoTo 0

On Error GoTo 0を行うと
On Error Resume Nextでエラーを無視するようにしたものを
もとに戻します。
従って、On Error GoTo 0　の後は
エラー発生時、エラーメッセージが表示されるようになります。


On Error Resume Nextを実行後は、
エラー発生時、そのエラーを無視して、次に進むようになります。
以降、永久に、ほかのエラーが発生しても、エラーを無視するなら、
そのままで良いです。
しかしながら、望んでいるのは、
ActiveSheet.Name = "依頼データ"
でエラーが発生した時だけなので、
そのあとは、元に戻すようにします。

下記URLが参考になるかと。
https://www.cellnets.co.jp/dev_column/8908

この回答へのお礼

分かりやすい解説ありがとうございました

On Error Resume Nextを実行後は、
エラー発生時、そのエラーを無視して、次に進むようになります。
以降、永久に、ほかのエラーが発生しても、エラーを無視するなら、
そのままで良いです。
しかしながら、望んでいるのは、
ActiveSheet.Name = "依頼データ"
でエラーが発生した時だけなので、
そのあとは、元に戻すようにします。

お礼日時：2025/02/09 10:19

No.2 回答者： tatsumaru77 回答日時： 2025/02/08 11:45

以下のようにしてください。

Sub シートを別のブックにコピーする()


Dim filepath2 As String
Dim wb2 As Workbook
Dim ws2 As Worksheet


filepath2 = ThisWorkbook.Worksheets("転記元シート").Cells(7, 1) 'あいうえおブック
Set wb2 = Workbooks.Open(filepath2)

Dim copysheet As Worksheet
Set copysheet = ThisWorkbook.Worksheets("Sheet1")

' ブックの末尾にコピー
copysheet.Copy After:=wb2.Worksheets(wb2.Worksheets.Count)
On Error Resume Next
ActiveSheet.Name = "依頼データ"
On Error GoTo 0
End Sub

この回答へのお礼

ご指導ありがとうございました。
うまく動きました

以下のコードはどのような　動きをする為の
ものなのでしょうか？

ご指摘痛ければと思います
On Error GoTo 0

お礼日時：2025/02/08 20:30

No.1 回答者： 河内のおやじ 回答日時： 2025/02/08 09:22

Sub CheckAndProcessSheet()

Dim sheetName As String
Dim ws As Worksheet
Dim sheetExists As Boolean

' 確認したいシート名を設定
sheetName = "確認したいシート名"
sheetExists = False

' シートの存在確認
For Each ws In Worksheets
If ws.Name = sheetName Then
sheetExists = True
Exit For
End If
Next ws

If sheetExists Then
' シートが存在する場合の処理
MsgBox "既に同じシートがあります", vbExclamation
' エラーを無視して次のコードへ進む
On Error Resume Next
' 次の処理を記述
' ...
On Error GoTo 0 ' エラーハンドリングを元に戻す
Else
' シートが存在しない場合の通常処理
' ...
End If
End Sub

この回答へのお礼

大変、参考になりました。ありがとうございます

お礼日時：2025/02/08 20:30