Private Sub - range for every sencond column

[Eskild]

Hej guys.
I have this little problem.
I would like to make it the same for every second row, but i cant figure out how to set the range correctly.
I want to type "x" in a random cell i column D or F, and the timesample will emerge one the cell to the right.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim B As Range: Set B = Range("B:B")
Dim v As String
If Intersect(Target, B) Is Nothing Then Exit Sub
Application.EnableEvents = False
v = Target.Value
If v = "x" Then Target.Offset(0, 1) = Now()
If v = "1" Then Target.Offset(0, 1) = Now()
Application.EnableEvents = True
End Sub

Hope you can helpo!

 

[Tetra201]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim B As Range: Set B = Range("[COLOR=#ff0000]D:D,F:F[/COLOR]")
    Dim v As String
    If Intersect(Target, B) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    v = Target.Value
    If v = "x" Then Target.Offset(0, 1) = Now()
    If v = "1" Then Target.Offset(0, 1) = Now()
    Application.EnableEvents = True
End Sub

 

[Eric W]

Welcome to the MrExcel Board.

Change this line:

[COLOR=#333333]If Intersect(Target, B) Is Nothing Then Exit Sub[/COLOR]

to

If Target.Column Mod 2 = 1 Then Exit Sub