Date entry when a cell changes to a specific value (EXCEL 2016)

%3CLINGO-SUB%20id%3D%22lingo-sub-2807865%22%20slang%3D%22en-US%22%3EDate%20entry%20when%20a%20cell%20changes%20to%20a%20specific%20value%20(EXCEL%202016)%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2807865%22%20slang%3D%22en-US%22%3E%3CP%3Ei%20have%20a%20table%20with%2023%20columns%20(status%20column%20is%20M%2C%20start%20date%20is%20O%20and%20end%20date%20is%20P)%20and%20i'm%20trying%20to%20add%20the%20start%20and%20end%20date%20whenever%20the%20status%20column%20changes%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EI%20have%20the%20status%20column%20have%20only%20these%20values%20(scheduled%2C%20inprogress%2C%20completed%2C%20waiting%20material)%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3Eall%20rows%20starts%20with%20scheduled%20as%20default.%20(but%20now%20it%20is%20a%20mix%20of%20all%20depending%20on%20there%20status)%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3Ei%20want%20to%20make%20it%20that%20if%20the%20status%20changes%20to%20inprogress%20the%20start%20date%20column%20adds%20today's%20date%3C%2FP%3E%3CP%3Eand%20when%20the%20status%20changes%20to%20completed%20the%20end%20date%20column%20adds%20the%20date.%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3Ei%20hope%20that%20makes%20sense.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3Ethanks%20for%20your%20help%20%3CLI-EMOJI%20id%3D%22lia_slightly-smiling-face%22%20title%3D%22%3Aslightly_smiling_face%3A%22%3E%3C%2FLI-EMOJI%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-2807865%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EFormulas%20and%20Functions%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EMacros%20and%20VBA%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-2807995%22%20slang%3D%22en-US%22%3ERe%3A%20Date%20entry%20when%20a%20cell%20changes%20to%20a%20specific%20value%20(EXCEL%202016)%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2807995%22%20slang%3D%22en-US%22%3E%3CP%3E%3CSTRONG%3EHi%26nbsp%3B%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F1173974%22%20target%3D%22_blank%22%3E%40qabandii%3C%2FA%3E%3C%2FSTRONG%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3ECheck%20the%20below%20code%2C%20you%20need%20to%20paste%20it%20in%20your%20VBA%20editor%20in%20the%20worksheet%20you%20like%20this%20code%20to%20execute.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CPRE%20class%3D%22lia-code-sample%20language-applescript%22%3E%3CCODE%3EPrivate%20Sub%20Worksheet_Change(ByVal%20Target%20As%20Range)%0A'Coded%20By%20Faraz%20Shaikh%0A%0A%20%20%20%20Dim%20ColRng%20As%20Range%0A%20%20%20%20Dim%20myStatus%20As%20String%0A%20%20%20%20Dim%20myDate%20As%20Date%0A%20%20%20%20%0A%20%20%20%20Set%20ColRng%20%3D%20Intersect(Application.ActiveSheet.Range(%22M%3AM%22)%2C%20Target)%0A%0A%0A%20%20%20%20If%20Not%20ColRng%20Is%20Nothing%20Then%0A%20%20%20%20%20%20%20%20myStatus%20%3D%20ActiveCell.Value%0A%20%20%20%20%20%20%20%20myDate%20%3D%20Now%0A%20%20%20%20%20%20%20%20%0A%20%20%20%20%20%20%20%20Application.EnableEvents%20%3D%20False%0A%20%20%20%20%20%20%20%20%0A%20%20%20%20%20%20%20%20%20%20%20%20If%20myStatus%20%3D%20%22inprogress%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ActiveCell.Offset(0%2C%202).Select%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ActiveCell.Value%20%3D%20myDate%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ActiveCell.Offset(0%2C%20-2).Select%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%0A%20%20%20%20%20%20%20%20%20%20%20%20ElseIf%20myStatus%20%3D%20%22completed%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ActiveCell.Offset(0%2C%203).Select%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ActiveCell.Value%20%3D%20myDate%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ActiveCell.Offset(0%2C%20-3).Select%0A%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%0A%20%20%20%20%20%20%20%20Application.EnableEvents%20%3D%20True%0A%20%20%20%20%20%20%20%20%0A%20%20%20%20End%20If%0A%20%20%20%20%0AEnd%20Sub%3C%2FCODE%3E%3C%2FPRE%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CSPAN%3ERegards%2C%20Faraz%20Shaikh%20%7C%20MCT%2C%20MIE%2C%20MOS%20Master%2C%20Excel%20Expert%3C%2FSPAN%3E%3C%2FP%3E%3CP%3E%3CEM%3E%3CFONT%20color%3D%22%23808080%22%3EIf%20you%20find%20the%20above%20solution%20resolved%20your%20query%20don't%20forget%20mark%20as%26nbsp%3B%3CSPAN%3EOfficial%2FBest%20Answer%20%26amp%3B%20like%20it%20to%20help%20the%20other%20members%20find%20it%20more.%3C%2FSPAN%3E%3C%2FFONT%3E%3C%2FEM%3E%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-2811512%22%20slang%3D%22en-US%22%3ERe%3A%20Date%20entry%20when%20a%20cell%20changes%20to%20a%20specific%20value%20(EXCEL%202016)%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2811512%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F1173974%22%20target%3D%22_blank%22%3E%40qabandii%3C%2FA%3E%3C%2FP%3E%3CP%3EHi.%20try%20this%20out%20and%20give%20me%20your%20feedback%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E
New Contributor

i have a table with 23 columns (status column is M, start date is O and end date is P) and i'm trying to add the start and end date whenever the status column changes 

 

I have the status column have only these values (scheduled, inprogress, completed, waiting material) 

 

all rows starts with scheduled as default. (but now it is a mix of all depending on there status) 

 

i want to make it that if the status changes to inprogress the start date column adds today's date

and when the status changes to completed the end date column adds the date. 

 

i hope that makes sense.

 

thanks for your help  

2 Replies

Hi @qabandii

 

Check the below code, you need to paste it in your VBA editor in the worksheet you like this code to execute.

 

Private Sub Worksheet_Change(ByVal Target As Range)
'Coded By Faraz Shaikh

    Dim ColRng As Range
    Dim myStatus As String
    Dim myDate As Date
    
    Set ColRng = Intersect(Application.ActiveSheet.Range("M:M"), Target)


    If Not ColRng Is Nothing Then
        myStatus = ActiveCell.Value
        myDate = Now
        
        Application.EnableEvents = False
        
            If myStatus = "inprogress" Then
            
               ActiveCell.Offset(0, 2).Select
               ActiveCell.Value = myDate
               ActiveCell.Offset(0, -2).Select
                
            ElseIf myStatus = "completed" Then
            
               ActiveCell.Offset(0, 3).Select
               ActiveCell.Value = myDate
               ActiveCell.Offset(0, -3).Select
            End If
            
        Application.EnableEvents = True
        
    End If
    
End Sub

 

Regards, Faraz Shaikh | MCT, MIE, MOS Master, Excel Expert

If you find the above solution resolved your query don't forget mark as Official/Best Answer & like it to help the other members find it more.

@qabandii

Hi. try this out and give me your feedback