Disable a cell if another is filled

[ncaravela]

Hi guys,

I need a simple help. i'm creating a spreadsheet but i can't get past an issue.
I need to disable a certain cell if another cell is filled, meaning:

If cell A1 is filled then cell B1 is blocked, so no data can be filled.
If cell B1 is filled then cell A1 is blocked, so no data can be filled.

If i delete the data in any cell (A1 or B1) then both cells become enabled.

Thanks in advance.

[OmegaWes2012]

Try the below code, I believe it is what you're looking for, or at least it will get you started. Play around with it before actually applying it.

Private Sub Worksheet_Change(ByVal Target As Range)

    'set your criteria here
    If Target = Me.Range("A1") Then
        If (Trim(Me.Range("B1")) <> "") Then
            UndoEvent
        End If
    ElseIf Target = Me.Range("B1") Then
        If (Trim(Me.Range("A1")) <> "") Then
            UndoEvent
        End If
    End If
End Sub

Private Sub UndoEvent()
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
        MsgBox "YOU CAN'T DO THAT!!!"
End Sub

Hope this helps.

Wes