Hücre Değeri Boşsa Makra çalışmasın uyarı versin

[ozgurpeh]

Merhaba Arkadaşlar,

Aşağıdaki makro bir butona basıldığında çalışıyor. Şöyle bir güncellemeye ihtiyacımız var; Sheet1 de B22 hücresi boşsa eğer buton çalışmasın ve lütfen Bilgi giriniz diye bir uyarı versin istiyoruz. Desteğiniz için peşinen teşekkür ederim

Sub Mail()
Dim Makro As Object
Dim Mail As Object
Dim Yol As String, Dosya As String

Set Makro = CreateObject("Outlook.Application")
Set Mail = Makro.CreateItem(0)

Yol = Application.ActiveWorkbook.Path & "\"
Dosya = Yol & "Test.xls"

Sheets("Form").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Dosya, 56
Windows("Sefer_Emri.xls").Close
Application.DisplayAlerts = True

On Error Resume Next

With Mail
.To = Sheets("ana sayfa").Range("AL45")
.CC = Sheets("ana sayfa").Range("AL46")
.Subject = "."
.Body = "."
.Attachments.Add Dosya
.Display
'.Send
MsgBox "Gönderilmistir."
End With

On Error GoTo 0

Set Mail = Nothing
Set Makro = Nothing
End Sub

 

[metehan8001]

Aşağıdaki kodu Sub Mail() yazan kodun alt satırına ekleyin.

if then isempty(Sheets("Sheet1").Range("B22")) Then Msgbox "Lütfen Bilgi Giriniz" :Exit Sub

 

[ozgurpeh]

if then isempty(Sheets("Sheet1").Range("B22")) Then Msgbox "Lütfen Bilgi Giriniz" :Exit Sub

hata veriyor kod üzerinde göstermeniz mümkün müdür ?

 

[EmrExcel16]

Merhaba , sayın @metehan8001 ın vermiş olduğu kodda if den sonraki then gözden kaçmış sanırım aşağıdaki şekilde düzelterek deneyiniz.

If IsEmpty(Sheets("Sheet1").Range("B22")) Then MsgBox "Lütfen Bilgi Giriniz": Exit Sub

 

[ozgurpeh]

If IsEmpty(Sheets("Sheet1").Range("B22")) Then MsgBox "Lütfen Bilgi Giriniz": Exit Sub

Evet oldu teşekkürler