VBA Code to Track Status Changes to a Separate Sheet

[dlealb]

Hi All,

We are seeking assistance in creating a VBA Code to track Status Changes from Cell Range A3:A1000 - G3:G1000 this is coming from Sheet Name "Status Changes" and be tracked to a separate Sheet called "Status Update Tracker" and will display a value in Column H3 WB (Our week starts every Sunday) Or we could just use =$I3-WEEKDAY($I3,1)+7 There will be dates added in Column I3

 

[Logit]

.
I don't understand this portion of your request :

"will display a value in Column H3 WB (Our week starts every Sunday) Or we could just use =$I3-WEEKDAY($I3,1)+7 There will be dates added in Column I3"

 

[dlealb]

.
I don't understand this portion of your request :

"will display a value in Column H3 WB (Our week starts every Sunday) Or we could just use =$I3-WEEKDAY($I3,1)+7 There will be dates added in Column I3"

Never Mind that Sir ill just do that manually with the formula i previously mentioned =$I3-WEEKDAY($I3,1)+7
I just need the VBA Code to track the data entered in Cell Range A3:A1000 to G3:G1000 and be copied to a separate Sheet called "Status Update Tracker"

 

[Logit]

.

Option Explicit


Public Sub Worksheet_Change(ByVal target As Range)
    Dim intersection As Range
    Set intersection = Intersect(target, Range("A3:A1000", "G3:G1000"))


    If Not intersection Is Nothing Then
       With Application
        .EnableEvents = False
        .Undo
        Sheets("Status Update Tracker").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 4) = Array(Now(), Environ("UserName"), target.Address(0, 0), target.Value)
        .Undo
        Sheets("Status Update Tracker").Cells(Rows.Count, 1).End(xlUp).Offset(, 4) = target.Value
        .EnableEvents = True
    End With
    End If
End Sub

Download workbook : https://www.amazon.com/clouddrive/share/GvOg08HsGjLavdjTiyV2nmIR7Xgatt9WtE39Ayojxck