Change Date in Cell base on another cell

%3CLINGO-SUB%20id%3D%22%5C%26quot%3Blingo-sub-3172948%5C%26quot%3B%22%20slang%3D%22%5C%26quot%3Ben-US%5C%26quot%3B%22%3EChange%20Date%20in%20Cell%20base%20on%20another%20cell%26lt%3B%5C%2Flingo-sub%26gt%3B%3CLINGO-BODY%20id%3D%22%5C%26quot%3Blingo-body-3172948%5C%26quot%3B%22%20slang%3D%22%5C%26quot%3Ben-US%5C%26quot%3B%22%3E%3CP%3E%3CSPAN%3EI%20am%20trying%20to%20create%20a%20spreadsheet%20where%20when%20a%20specific%20cell%20is%20updated%20in%20anyway%2C%20the%20date%20stamp%20automatically%20updates%20in%20the%20cell%20to%20the%20right%20is%20updated.%20I%20need%20to%20do%20this%20to%20an%20entire%20row.%26nbsp%3B%26lt%3B%5C%2FSPAN%26gt%3B%26lt%3B%5C%2FP%26gt%3B%26lt%3B%5C%2Flingo-body%26gt%3B%3CLINGO-LABS%20id%3D%22%5C%26quot%3Blingo-labs-3172948%5C%26quot%3B%22%20slang%3D%22%5C%26quot%3Ben-US%5C%26quot%3B%22%3E%3CLINGO-LABEL%3EExcel%26lt%3B%5C%2Flingo-label%26gt%3B%26lt%3B%5C%2Flingo-labs%26gt%3B%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3C%2FSPAN%3E%3C%2FP%3E%3C%2FLINGO-BODY%3E%3C%2FLINGO-SUB%3E%3CLINGO-SUB%20id%3D%22lingo-sub-3172948%22%20slang%3D%22en-US%22%3EChange%20Date%20in%20Cell%20base%20on%20another%20cell%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-3172948%22%20slang%3D%22en-US%22%3E%3CP%3E%3CSPAN%3EI%20am%20trying%20to%20create%20a%20spreadsheet%20where%20when%20a%20specific%20cell%20is%20updated%20in%20anyway%2C%20the%20date%20stamp%20automatically%20updates%20in%20the%20cell%20to%20the%20right%20is%20updated.%20I%20need%20to%20do%20this%20to%20an%20entire%20row.%26nbsp%3B%3C%2FSPAN%3E%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-3172948%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E
Occasional Visitor

I am trying to create a spreadsheet where when a specific cell is updated in anyway, the date stamp automatically updates in the cell to the right is updated. I need to do this to an entire row. 

1 Reply

@SKight 

Here is a VBA approach

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub 'allow only one cell change
If Target.Column = 20 Then
Cells(Target.Row, 21) = IIf(Target = "", "", Date)
Cells(Target.Row, 22) = IIf(Target = "", "", Environ("username"))
End If

End Sub

Hope I could help you with these information.

 

NikolinoDE

I know I don't know anything (Socrates)