=A1="" formülünü kopyalayıp tamamı tıklatın.Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Cikis
If Intersect(Target, Me.Range("B1")) Is Nothing Then Exit Sub
If Me.Range("A1").Value = "" Then Exit Sub
Application.EnableEvents = False
Application.Undo
MsgBox "A1 hücresi doluyken B1 hücresine veri giremezsiniz.", _
vbExclamation, "Veri Girişi Engellendi"
Cikis:
Application.EnableEvents = True
End Sub