みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

印刷後のVBAの実行 (3)

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sheet1" Then
If Range("D6").Value = "" Then
Cancel = True
MsgBox ("名前を入力してください")
Range("D6").Select
Exit Sub
End If
Else
If ActiveSheet.Name = "Sheet2" Then
If Range("C11").Value = "" Then
Cancel = True
MsgBox ("受付時間を入力してください")
Range("C11").Select
Exit Sub
End If
Else

Exit Sub
End If
End If

If Worksheets("Sheet1").Range("D5") = "不要" Then GoTo P1
ActiveSheet.Range("A70:Y70").Copy


If Worksheets("Sheet3").Range("A1").Value = "" Then
Worksheets("Sheet3").Range("A1").PasteSpecial Paste:=xlPasteValues
Else
Worksheets("Sheet3").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlPasteValues
End If
Application.CutCopyMode = False
P1:
ActiveSheet.Range("A1").Select

End Sub

sheet1のD5に「不要」と入っていたら
24~33行目の作業がキャンセルになりますが
sheet2のD5にも「不要」と入っていたら、同じ様にキャンセルできる様に出来ますでしょうか?
ご回答お願いします

投稿日時 - 2008-09-23 12:01:38

QNo.4350307

困ってます

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

  'If Worksheets("Sheet1").Range("D5") = "不要" Then GoTo P1
    ↓
  If Worksheets("Sheet1").Range("D5") = "不要" Or _
    Worksheets("Sheet2").Range("D5") = "不要" Then GoTo P1   '←追加・変更してください。

投稿日時 - 2008-09-23 13:12:17

お礼

出来ました 助かりました!

投稿日時 - 2008-09-23 14:50:07