Help with Time Stamp Macro

[Hjemmet]

Hey I Need some Help with This Code
the code works fine for colum "L" but i need it work on severel Colom's

the Colom's i need is "L" and "U" and "AD" and "AM" and "AW"

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Columns("L"), Target.Parent.UsedRange) Is Nothing Then
        On Error GoTo Safe_Exit
        Application.EnableEvents = False
        Dim rng As Range
        For Each rng In Intersect(Target, Columns("L"), Target.Parent.UsedRange)
            If CBool(Len(rng.Value2)) And Not CBool(Len(rng.Offset(0, 1).Value2)) Then
                rng.Offset(0, 1) = Now
            ElseIf Not CBool(Len(rng.Value2)) And CBool(Len(rng.Offset(0, 1).Value2)) Then
                rng.Offset(0, 1) = vbNullString
            End If
        Next rng
    End If
Safe_Exit:
    Application.EnableEvents = True
End Sub

hope that are enough Info

 

[My Aswer Is This]

Would you please explain in words what your wanting this code to do.
I always have a hard time reading other peoples code and then trying to modify it to do all they want.
Thanks.

 

[DanteAmor]

Try this:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [B][COLOR=#0000cd]Range("L:L,U:U,AD:AD,AM:AM,AW:AW")[/COLOR][/B], Target.Parent.UsedRange) Is Nothing Then
        On Error GoTo Safe_Exit
        Application.EnableEvents = False
        Dim rng As Range
        For Each rng In Intersect(Target, [B][COLOR=#0000cd]Range("L:L,U:U,AD:AD,AM:AM,AW:AW")[/COLOR][/B], Target.Parent.UsedRange)
            If CBool(Len(rng.Value2)) And Not CBool(Len(rng.Offset(0, 1).Value2)) Then
                rng.Offset(0, 1) = Now
            ElseIf Not CBool(Len(rng.Value2)) And CBool(Len(rng.Offset(0, 1).Value2)) Then
                rng.Offset(0, 1) = vbNullString
            End If
        Next rng
    End If
Safe_Exit:
    Application.EnableEvents = True
End Sub

 

[sadboy309]

Code Intersect used find Target have into Columns("L"). So now, Target only on Columns("L"). IF you want Columns: L, U, AD, AM, AW, so you need use other conditions.

Your conditions:

[COLOR=#333333]Private Sub Worksheet_Change(ByVal Target As Range)
[/COLOR][COLOR=#333333]    If Not Intersect(Target, Columns("L"), Target.Parent.UsedRange) Is Nothing Then

[/COLOR]..
End If
End Sub

The corresponding column {L, U, AD, AM, AW} is {12, 21, 30, 39, 49}:

[COLOR=#333333]Private Sub Worksheet_Change(ByVal Target As Range)
IF Target.Column = 12 or Target.Column = 21 or Target.Column = 30 or Target.Column = 39 or Target.Column = 49 Then
'...
End IF
End Sub

[/COLOR]

OR:

[COLOR=#333333]Private Sub Worksheet_Change(ByVal Target As Range)
IF [/COLOR]Instr(1, ",12,21,30,39,49,", "," & [COLOR=#333333]Target.Column & ","[/COLOR])[COLOR=#333333] Then
'...
End IF
End Sub

[/COLOR]

 

[Hjemmet]

Thanks It works DanteAmor

 

[DanteAmor]

Thanks It works DanteAmor

Pity, but the life goes on