gönderdiğin ecxel sayfasını incelermisiniz

[imdatsaral]

gönderdiğin ecxel sayfasını incelermisiniz

 

[class37]

Merhaba
Konuyla ilgili başlık yazarsanız aynı konuyu arayan başka ziyaretcilerde faydalanabilir.İyiçalışmalar.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("c2") = "" Then
MsgBox "c2 boş geçilmez", 64, "uyarı"
Range("c2").Select
End If

End Sub

 

[imdatsaral]

uyarın için teşekürler

 

[class37]

:hey:

 

[xxrt]

class37 verdiği cevap doğrudur.Fakat olay hangi anlamda düşünülüyor..
1.)Bu Sorguyu sormak için bir olayın gerçekleşmesi gerek.Yani C2 Hücresi boş geçtiğini anlıyacak bir olayın gerçekleşmesi gerek..Buton gibi..Başka hücreye yazılmaya çalışılması gibi..
O Nedenle Excelde VB mantığı ile işlem yapmak isyiyorsak ona bir özellik vermemiz gerek..
Form'dan bir buton ekliyelim.Bu butona şu makroları yazalım..Bu Butonun özelliği kayıt veya sayfa geçiş olabilir..

Sub xxrt()
If Range("C2") = "" Then
MsgBox "Hücre Boş Olamaz."
ElseIf Range("C5") = "" Then
MsgBox "Hücre C5 Boş Olamaz"
End If
End Sub

Butona tıkladığınızda C2 ve C5 hücrelerinden birisi boş ise hata mesajı verecektir..Lakin...Kodunuzun devamı varsa kayıt edecekseniz veya sayfaya geçiş yapacaksanız şöyle değiştirmemiz gerekecek..

Sub xxrt()
If Range("C2") = "" Then
soru = MsgBox("C2 Hücresini Boş Geçemezsiniz.Devam Edeyimmi?", vbYesNo, "Boş Kalan Hücre Hatası")
If soru = vbYes Then GoTo devam
If soru = vbNo Then Exit Sub
End If
If Range("C5") = "" Then
soru = MsgBox("C5 Hücresini Boş Geçemezsiniz.Devam Edeyimmi?", vbYesNo, "Boş Kalan Hücre Hatası")
If soru = vbYes Then GoTo devam
If soru = vbNo Then Exit Sub
End If
devam:
Sheets("Sayfa2").Select 'Bu sayfa2 ye geçmek için.
End Sub

Ã?rnek dosyam ektedir.


Not:herne olursa olsun örnekler birisinin işine mutlak yarar.