Simplification - changing 2 cells at once

Question

I am trying to figure out how to simplify the code with no luck.

I managed to build a working code, which does the following: 1. If 'ja' is filled into cell 34 - in cell 35 the date appears - in cell 36 the username appears 2. If the cell is empty, the content is cleared

Do you have any tips / can help me out?

Thank you very much.

This is the code I have so far:

'show date
   If Target.Column = 34 Then
      Select Case Target
         Case "ja", "Ja":    Target.Offset(0, 1) = Date
      End Select
'show username
   If Target.Column = 34 Then
      Select Case Target
         Case "ja", "Ja":    Target.Offset(0, 2) = Application.UserName
      End Select
End If
End If

' clear contents
    Dim n As Long

    If Target.Column = 34 Then
        If IsEmpty(Cells(Target.Row, 34)) Then
               Range("AI" & Target.Row & ":AJ" & Target.Row).ClearContents
        End If
    End If
End Sub

Answer 1

I think this would do it:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Column = 34 Then
        Select Case Target
            Case "ja", "Ja"
                Target.Offset(0, 1) = Date 'show date
                Target.Offset(0, 2) = Application.UserName 'show username
            Case vbNullString 'Clear contents
                Range("AI" & Target.Row & ":AJ" & Target.Row).ClearContents

        End Select
    End If

End Sub