Hücre boş geçerse mesaj ver

[ozkovlu]

Merhabalar,
Excell de hücre boş geçmek istemediğimiz hücre içeriğini nasıl mesaj verdirebiliriz.
Mesela;
A2 hücresini boş geçmek istemiyoruz. Boş geçince ekrana bi mesaj versin "Lütfen ilgili kısmı boş geçemezsiniz"

Saygılarımla...

 

[Korhan Ayhan]

Sayfanızın kod bölümüne aşağıdaki kodu uygulayıp deneyiniz.

Veri girişi aralığı olarak "A-K" sütun aralığını baz aldım. Sizin dosyanızda farklı ise kod içindeki kırmızı bölümleri revize etmek gerekecektir.

Dim Kontrol As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    Application.EnableEvents = False
    If Target.Column < [COLOR="Red"]11[/COLOR] Then
        If Target.Value <> Empty Then
            Kontrol = True
            Target.Next.Select
        Else
            Kontrol = False
        End If
    Else
        Kontrol = True
        Cells(Target.Row + 1, 1).Select
        GoTo 10
    End If
Son:
    Kontrol = False
10  Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo Son
    If Kontrol = True Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Row = 1 Then Exit Sub
    If ActiveCell.Row + 1 = Target.Row Then Exit Sub
    Application.EnableEvents = False
    Set Alan = Range("[COLOR="red"]A2:K[/COLOR]" & Target.Row)
    For Each Veri In Alan
        If Veri.Value = Empty Then
            MsgBox Veri.Address & " hücresini boş bırakamazsınız! Lütfen veri girişi yapınız!", vbExclamation
            Veri.Select
            GoTo Son
            Exit Sub
        End If
    Next
Son: Application.EnableEvents = True
End Sub

 

[sakman26]

selam,
örnek dosya olmadan istenileni tam anlamak zor... mesajı okuyunca ben de sanki ;
"A kolonuna veriler girilecek (örneğin Tarih ya da sıra no gibi) ve A kolonuna girilen bu ifadeye karşılık gelen bilgiler de diğer kolonlara girilecek. O nedenle A kolonunda Veri girişlerinde Boşluk olmasın isteniyor" şeklinde anlıyorum...

Eğer anladığım şekilde ise Veri doğrulama ile yapılabilir.
Örneği inceleyin..

link : http://s6.dosya.tc/server7/e4xoas/ozkovlu.xlsx.html

 

[ozkovlu]

Teşekkür ederim...