eğer herhangi bir satıra hiç veri girilmez ise uyarı vermek

[feraset045]

arkadaşlar dünde gönderdim aynı soruyu yanıtlayan olmayınca tekrar göndereyim dedim şimdi örnek dosya ya bakınca anlarsınız zaten benim hazırladığım bir excel sayfası var A sütununda verilerin ismi yani ad adresi B Sütununda ise veriler var şimdi ben bir üst satırdan alt satıra hiçbirşey yazmadan geçersem bana msgbox tan bu bölüme veri girmelisiniz gibi bir uyarı vermesini istiyorum

 

[Necdet]

Merhaba,

Bu konu üzerinde çalıştım ama tam başarılı olamayınca, yanıt vermekten çekindim.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [B2:B20]) Is Nothing Then Exit Sub
If Target.Row <> [j1] Then
Target.Value = ""
Range("B" & [j1]).Select
[COLOR=red][B]' MsgBox [j1] & ". Satırı Yazmadan Satır Atlıyorsunuz"[/B][/COLOR]
GoTo Son
End If
[j1] = [j1] + 1
Son:
End Sub

Kodda kırmızı ile belirtilen satırda mesaj verdirdiğim zaman döngüye giriyor, bundan kurtulmanın yolunu bulamadım. Bende merak ettim nasıl yapılır diye. Benim bilgim ancak bu kadarına yetti

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [A1:B100]) Is Nothing Then Exit Sub
If Len(ActiveCell.Value) <= 0 Then MsgBox "Boş geçemezsiniz", vbCritical
End Sub