Cell option when selecting cell

[BrendanDixon]

Hi All,

I am creating a sheet with 2 columns and if I select the column it will fill it with an X and clear the other column please can someone help me with the part where is will clear only the other cell in that row. I could use allot of code to do each row individually. but I am sure there is a better way of doing this so I can learn from this. basically it will be from rows 18 to 34 and columns B and C

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Cell As Range
If Not Intersect(Target, Range("B18:C34")) Is Nothing Then
    Cancel = True
    For Each Cell In Range("B18:C34")
      If Not Intersect(Cell, Target) Is Nothing Then
        Cell.Value = "X"
      Else
      'This is where to clear other cell in the row
        Cell.MergeArea.ClearContents ' This will need to change
      End If
      
Next

  End If
 
 
End Sub

 

[kevin9999]

Does this do what you're looking for?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.CountLarge = 1 And Not Intersect(Range("B18:C34"), Target) Is Nothing Then
        Application.EnableEvents = False
        Target = "X"
        With Target
            If .Column = 2 Then .Offset(0, 1).ClearContents
            If .Column = 3 Then .Offset(0, -1).ClearContents
        End With
        Application.EnableEvents = True
    End If
End Sub