EXCEL SHEET auto enter Dates

[bobby786]

Hi All ,

I am came to this forum after a long time , this is the great platform and with awesome people , where stranger of no where will help each other.
I am father of 3 , and my JOB requires me to data entry on daily basis. Let me explain the situation .

I have a daily work sheet on excel , which have formulas and all to maintain the bank ledger and payments inn and out. There is a situation when i have to make the request of payment and i have enter the date on which i request the payment , and it will get approved like 2-3 days later , and when its approved ( notify via a TEXT message on whats-app) i have to enter the " Approved " and Date on which day it was approved. I just want to make this automatic. So that i don't have to enter the date every time , secondly to avoid mistake , because sometimes on day it would be hundreds of entries and multiple times in a day.

My sheet right now have more than 3000 entries , but i have saved as sample and cut down the few only to make it easy to understand. And i uploaded HERE since the forum does not allow me to attach the excel file.However i have attached the screenshot along with post which was allowed ,
Inside the sheet i have mentioned exactly the scenario which will further explain and clarify it , in case if i still lack in explaining please do let me know , as English is not my native language , i am sorry for that.

i am very hopeful that i will get help from here and i can save time to get work off early and spent with my kids.

Thank you very much in advance.

Regards
Bobby

 

[bobby786]

@Paul Ked

just tried that , but now request column does not getting auto date fills in as soon as i enter any date in amount out , neither it display any message if i change any existing ones.

 

[Paul Ked]

Sorry, think I gave you an earlier version of the code! Try:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim yn As String
    On Error GoTo Xit
    Application.EnableEvents = False
    If Not Intersect(Target, Range("J:J")) Is Nothing And Target = "approved" Or Target = "Approved" Then
        Cells(Target.Row, 12) = Format(Now(), "yyyy.mm.dd")
    End If
    If Not Intersect(Target, Range("J:J")) Is Nothing And Target = "" Then
        Cells(Target.Row, 12) = ""
    End If
    If Not Intersect(Target, Range("E:E")) Is Nothing Then
        If Cells(Target.Row, 11) <> "" Then
            yn = MsgBox("Do you want to keep the date as " & Cells(Target.Row, 11) & "?", vbYesNo, "Date exists...")
        Else
            yn = vbNo
        End If
        If Cells(Target.Row, 3) <> "" Then
            If yn = vbNo Then
                Cells(Target.Row, 11) = Format(Now(), "yyyy.mm.dd")
            End If
        End If
    End If
Xit:
    Application.EnableEvents = True
End Sub

 

[bobby786]

@Paul Ked

its working mate ... Thank you very much.

 

[Paul Ked]