Forum Discussion

Pcesarrt26's avatar
Pcesarrt26
Copper Contributor
Jan 31, 2022
Solved

Show date of modification to one cell

I have a set list of items and need to have a column that shows when the last time the cell next to it was modified. In the attached example column A will always be the same, column B will be modifie...
excel
Macros and VBA
mychellVALEC's avatar
mychellVALEC
Copper Contributor
Aug 02, 2022
How did you do that?
  • OliverScheurich's avatar
    OliverScheurich
    Gold Contributor
    Aug 02, 2022

    mychellVALEC 

    Private Sub Worksheet_Change(ByVal Target As Range)

Dim rngBereich As Range

Set rngBereich = Range("B2:B2500")

If Not Application.Intersect(Target, rngBereich) Is Nothing Then

If Target.Value <> " " Then
Target.Offset(0, 1).Value = Date
Else

End If

End If

End Sub

    This is done with the Worksheet_Change event and these lines of code.

Resources