VBA ある条件を満たしてからの実行

質問

Sub 登録()

ActiveSheet.Range("F650:T650").Copy
r = Range("M1").Value + 4
Worksheets("データ管理").Range("F" & r).PasteSpecial Paste:=xlPasteValues

End Sub

上記を実行する前に条件を入れたいのですが、
セルA1に名前(もしくはなんからの文字)が入っていなかったら、MsgBox ("名前を入力してください")、
セルA2に住所(もしくはなんからの文字)が入っていなかったら、MsgBox ("住所を入力してください")、
この条件をみたしてから上記をマクロを実行したいんですが・・・
アドバイスお願いします

回答No.2

web2525 · ベストアンサー

VBAは得意ではないですが、
Sub 登録()

If Range("a1").Value = "" Then
MsgBox "氏名を入力してください"
Range("a1").Activate
Else

If Range("a2").Value = "" Then
MsgBox "住所を入力してください"
Range("a2").Activate
Else

ActiveSheet.Range("F650:T650").Copy
r = Range("M1").Value + 4
Worksheets("データ管理").Range("F" & r).PasteSpecial Paste:=xlPasteValues
End If
End If
End Sub

お礼

出来ました　ありがとうございます

回答No.1

某HN クロメート(Chromate)（@CoalTar）

こんな感じかなあ
Sub 登録()
Dim ABC As String
Dim BBC As String
If Range("A1").Value = "" Then ABC = "名前を入力してください" & Chr(13)
If Range("A2").Value = "" Then BBC = "住所を入力してください"
If ABC & BBC <> "" Then
MsgBox ABC & BBC
Exit Sub
End If
MsgBox "OK"
End Sub
参考まで

お礼

参考にしてみます　ありがとうございます