Select Range instead of a whole column

[Artfight]

I am interested in using this great VBA that I borrowed from MrExcel but instead of selecting all of column "d" to trigger a time stamp I would like to use a selected range of cells...say range c3:f100.

Can someone help me adjust this VBA...THANKS

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 4 Then
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
If Len(Range("D" & Target.Row)) = 0 Then
Range("B" & Target.Row).ClearContents
Else
Range("B" & Target.Row).Value = Now()
End If
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End If

End Sub

 

[MrTeeny]

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C3:F100")) Is Nothing Then


etc etc

 

[Artfight]

This was so close to what I need. I appreciate the help. I used your suggestions and here are my results:

Time stamp is only triggered when I do an entry in the D column but I wish it to be triggered when an entry is done in any row or column in the range c3:f100. It does however work to not trigger the timestamp until I reach D3 or lower (d1 not timestamp, d2 no timestamp).

here is what I have now,

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("C3:F100")) Is Nothing Then
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
If Len(Range("D" & Target.Row)) = 0 Then
Range("B" & Target.Row).ClearContents
Else
Range("B" & Target.Row).Value = Now()
End If
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End If

End Sub



Thank you,
Scott

 

[Caleeco]

Hello Scott,

You have set the range to start at row 3 (C3:F100)... so typing anything in D1 or D2 would not trigger the macro. Try this update:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("C3:F100")) Is Nothing Then
        With Application
            .ScreenUpdating = False
            .EnableEvents = False
        End With
    If Len(Cells(Target.Row, Target.Column)) = 0 Then
        Range("B" & Target.Row).ClearContents
    Else
        Range("B" & Target.Row).Value = Now()
    End If
        With Application
            .ScreenUpdating = True
            .EnableEvents = True
        End With
    End If
End Sub

Caleeco

 

[Artfight]

PERFECT!!!!!!

Thank you

 

[Caleeco]

PERFECT!!!!!!

Thank you

No Problem, Glad I could help