gönderdiğin ecxel sayfasını incelermisiniz

Katılım
6 Eylül 2004
Mesajlar
239
Excel Vers. ve Dili
Excel 2013 Türkçe
Altın Üyelik Bitiş Tarihi
20-05-2022
gönderdiğin ecxel sayfasını incelermisiniz
 
Katılım
17 Ağustos 2004
Mesajlar
222
Excel Vers. ve Dili
Ofiste Excel 2000 Türkçe
Evde Excel 2003 Türkçe
Merhaba
Konuyla ilgili başlık yazarsanız aynı konuyu arayan başka ziyaretcilerde faydalanabilir.İyiçalışmalar.
Kod:
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
 
Katılım
6 Eylül 2004
Mesajlar
239
Excel Vers. ve Dili
Excel 2013 Türkçe
Altın Üyelik Bitiş Tarihi
20-05-2022
uyarın için teşekürler
 
X

xxrt

Misafir
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..
Kod:
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..
Kod:
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.
 
Üst