White S to cell by press cell

[KlausW]

Hi every one

I have this VBA code that runs perfect. In column A there are dates, when I press in a cell in column J the date will be showen in cell j1.

Example I press in j2 and the date 01-05-2024 comes from A2 (Danish date) in cell J1, I press cells j3 then 02-05-2024 appears in cell j1 etc. Can you make it so that an S appears in column J in the cells you press.

Any help will be appreciated

Best Regards

Klaus W

Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Selection.Count = 1 Then
    If Not Intersect(Target, Range("$j$2:$j$41")) Is Nothing Then
        
        Range("$J$1").Value = Target.Offset(0, -9).Value
        'MsgBox "Mail"
            'Call
        End If
    End If

End Sub

 

[Georgiboy]

You mean like this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("J2:J41")) Is Nothing Then
            Range("J1").Value = Target.Offset(0, -9).Value
            Target.Value = "S"
        End If
    End If
End Sub

 

[KlausW]

You mean like this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("J2:J41")) Is Nothing Then
            Range("J1").Value = Target.Offset(0, -9).Value
            Target.Value = "S"
        End If
    End If
End Sub

Thanks it just as it shout be. Have a nice day. KW