Auto update cells - VBA

[ChrisFoster]

Hi all,

I doubt this is even possible, but is there any code I can use on a shared workbook, where any time something is inputted into a cell in column F it automatically adds the current date into the cell next to it in column G?

Cheers

Chris

 

[DanteAmor]

Try this

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("F:F")) Is Nothing Then
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Offset(, 1) = "" Then Target.Offset(, 1) = Date
  End If
End Sub

SHEET EVENT
Right click the tab of the sheet you want this to work, select view code and paste the code into the window that opens up.

 

[ChrisFoster]

Try this

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("F:F")) Is Nothing Then
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Offset(, 1) = "" Then Target.Offset(, 1) = Date
  End If
End Sub

SHEET EVENT
Right click the tab of the sheet you want this to work, select view code and paste the code into the window that opens up.

Thank you, much appreciated

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.