boş geçmeme - sınırlı hücreler ile

[ROUTER]

Merhabalar,

KOD BANKASI V2.4 (Emeği geçenlere çok teşekkürler.) faydalanarak ekteki dosyaya kodları yerleştirdim. Bu kodlar üzerinde değişiklik yapmamız mümkün olabilir mi? Açıklamayı sayfada yazdım.
Yardımlarınız için teşekkür ederim.
Saygılarımla.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("D4") = "" Then
    MsgBox "Boş geçemezsiniz !", vbCritical, "Dikkat !"
    Application.EnableEvents = False
    Range("D4").Select
    Application.EnableEvents = True
    Exit Sub: End If
    If Range("D5") = "" Then
    MsgBox "Boş geçemezsiniz !", vbCritical, "Dikkat !"
    Application.EnableEvents = False
    Range("D5").Select
    Application.EnableEvents = True
    Exit Sub: End If
End Sub

 

[ROUTER]

Korhan Bey,

Harika oldu. :hihoho: Ne söylenir başka.
Elinize sağlık. Çok sağolun.
Saygılarımla.