エクセルのマクロについて教えてください。

下記のマクロは先日教えて頂いたマクロです。
実行すると
作業ブック（コピー先）にコピー元のブックの指定範囲をコピペできます。
Dim Wb1 As Workbook
Dim Wb2 As Workbook
Sub 提出シートコピー削除()
Call 提出シートを開く
Call 提出シートコピー範囲
Call 貼り付け
Call 電子提出削除
End Sub
このマクロに「Call 住所コピー」を追加すると
画像のエラーが表示されて、作業ブックの別シート（シート名：青紙表）のVBAコードの
「With Worksheets("審査")」が黄色く表示されてマクロを連続して実行できませんでした。
この問題の解決方法を教えてください。
設定マクロ
Dim Wb1 As Workbook
Dim Wb2 As Workbook
Sub 提出シートコピー削除()
Call 提出シートを開く
Call 住所コピー
Call 提出シートコピー範囲
Call 貼り付け
Call 電子提出削除
End Sub

住所コピーマクロ
Sub 住所コピー()
On Error Resume Next
Dim Wb1, Wb2
Set Wb1 = Workbooks(1) 'このブック
Set Wb2 = Workbooks(2) '別ブック
'セルの値を取得する
Workbooks(1).Worksheets("受付").Range("L2") = Workbooks(2).Worksheets("FDデータ").Range("J49")
End Sub

シート「青紙表」のVBAコード
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$R$18" And IsNumeric(Cells(18, "R").Value) And Len(Cells(18, "R")) = 8 Then
Application.EnableEvents = False
Worksheets("青紙表").Range("$AX$3").Value = Worksheets("受付").Range("$J$2").Value
Application.EnableEvents = True
ActiveWorkbook.Save
End If
Sheets("青紙表").Select
Range("$C$20").Select
Sheets("Access").Visible = [AN46] = "●"
On Error Resume Next
If Range("$J$53").Value = "■" Then
Call 構造
End If
If Target.Address = "$C$23" Then
Call 電子完了
End If
If Range("$AB$35") <> "" Xor Range("AH35") <> "" Then
Call 決済図形
End If
If Range("$CO$7").Value = "有" Then
Call 浄化槽表示
End If
If Target.Address = "$O$28" Then
Call 再修正表示
End If
If Target.Address = "$O$28" Then
Call 修正表示
End If
If Target.Address = "$C$20" Then
Call 審査担当コメント非表示
End If
If Range("$EX$4").Value = "■" Then
Call 消防通知図表示
End If
If Range("$ER$3").Value = "■" Then
Call 行政メール図表示
End If
If Target.Address <> "$C$20" And Target.Address <> "$F$20" Then Exit Sub
If Target.Address = "$C$20" And Range("$F$20").Value <> "" Then Exit Sub
If Target.Address = "$F$20" And Range("$C$20").Value <> "" Then Exit Sub
If Target.Value <> "" Then
If True Then
Call 新行政報告ファイルコピー
Call 審査資料
Call 行政条例総合
Call いろはシステム
Call シート300を非表示
On Error Resume Next
Worksheets("受付").Visible = False
Worksheets("管理表").Visible = False
Worksheets("Access").Visible = False
Worksheets("地方照会").Visible = False
Worksheets("札幌道路").Visible = False
Worksheets("札幌宅地").Visible = False
Worksheets("札幌開発").Visible = False
On Error Resume Next
Application.DisplayAlerts = False
Sheets("F審査").Delete
Sheets("F設計INDX").Delete
Application.DisplayAlerts = True
End If
Else
On Error Resume Next
Worksheets("受付").Visible = True
Worksheets("管理表").Visible = True
End If
On Error Resume Next
If Range("CI20").Value = "■" Then
Call 日付
End If
If Range("EY3").Value = "■" Then
Call 消防通知図表示
End If
End Sub
以上となります。よろしくお願いいたします。

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2024/07/02 12:09

>「With Worksheets("審査")」が黄色く表示されてマクロを連続して実行できませんでした。

そのブックに審査シートは存在する？
にしても
With Worksheets("審査")　　って何処？

Worksheet_Changeイベントの処理分岐やオブジェクト設定に問題があるかもしれませんが

Call 住所コピーを加えて動かなくなった・・・
住所コピー　に問題があると推測して・・・

あなたの使っているブックのVBA処理、関係するファイル、なさりたい事は
私にはわかりません
ですので、ご質問部分のみに対する回答になります
コードや諸々を推測して（出来るだけ使いまわしを想定して）

Sub 住所コピー()
On Error Resume Next
'セルの値を取得するApplication.EnableEvents = False
Workbooks(1).Worksheets("受付").Range("L2") = Workbooks(2).Worksheets("FDデータ").Range("J49")
On Error GoTo 0
Application.EnableEvents = True
End Sub

とすれば？

この回答へのお礼

何時も助けて頂きまして、ありがとうございます。
早速試してみます。

お礼日時：2024/07/02 12:16