ikboy

¦^´_ 1# toromru


    Private Sub Worksheet_Change(ByVal Target As Range)
    zr = Target.Row: zc = Target.Column
    If zc = 1 And Cells(zr, 2) = "" Then
      Dim lad, sfd As Date
      sfd = Application.EoMonth(Date, -2) 'sfd means StartFromDate
      lad = Application.Max(Columns(2), sfd)  'lad means LastActionDate
      Cells(zr, 2) = lad + 1
  End If
  End Sub