Soru Belirli hücrelere veri girilmemiş ise diğer hücrelere veri girilmesin

[sirkülasyon]

Fonksiyon ile excel sayfasında Örnek olarak
A1 hücresinde veri yok ise A2 hücresine veri girilmesi mümkün olmasın.
D1 hücresinde veri yok ise D2 hücresine veri girilmesi mümkün olmasın.
E1 hücresinde veri yok ise E2 hücresine veri girilmesi mümkün olmasın.
Bu koşulu sağlayabilmem için yardımcı olabilir misiniz?

 

[Muzaffer Ali]

Merhaba.
Sayfanın kod kısmına kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A, D:E")) Is Nothing And Target.Row > 1 Then
        If Target(0, 1) = "" And Target <> "" Then
            MsgBox Target(0, 1).Address & " hücresi boşken buraya veri girişi yapamazsınız."
            Target = ""
            Target.Select
        End If
    End If
End Sub

 

[sirkülasyon]

Muzaffer Hocam Teşekkür Ederim.