MsgBox hakkında

[ahmetozbey]

Sub aktar()

Set s2 = Sheets("Sayfa2")

If [a4] <> "" Then
son = s2.[b65536].End(3).Row + 1
s2.Range(s2.Cells(son, "A"), s2.Cells(son, "F")).Value = [a4:F4].Value
s2.Range(s2.Cells(son, "J"), s2.Cells(son, "K")).Value = [j4:K4].Value
s2.Range(s2.Cells(son, "M"), s2.Cells(son, "M")).Value = [m4:M4].Value
s2.Range(s2.Cells(son, "H"), s2.Cells(son, "H")).Value = [h4:H4].Value
[a4:F4].Value = ""
[h4:H4].Value = ""
[j4:K4].Value = ""
[m4:M4].Value = ""
If MsgBox("KAYIT İŞLEMİ TAMAMLANDI.Başka Müşteri Kaydedebilirsiniz.", vbYes) = vbYes Then Exit Sub
End If
End Sub


bu makroda a4 hücresinde kayıt varsa aktarma işlemi yapıyor mesaj görüntüleniyor. a4 hücresinde kayıt yoksa yani boşsa butona basıldığında "müşteri yok" mesajı gelmesini istiyorum

 

[Levent Menteşoğlu]

Aşağıdaki mavi renkli ilaveyi yapın.

[vb:1:ed0ed5c693].
.
.
If MsgBox("KAYIT İŞLEMİ TAMAMLANDI.Başka Müşteri Kaydedebilirsiniz.", vbYes) = vbYes Then Exit Sub
else
msgbox "Müşteri Yok"
End If
End Sub
[/vb:1:ed0ed5c693]

 

[xxrt]

En başa

If Range("A4") = "" Then
MsgBox "Hücre Boş Olamaz"
End If
'kodlarınız
...
..
..

 

[ahmetozbey]

yardımlarınız için teşekkür ederim