How to add date to cell, and if already present avoid inserting new date over the existing

Hello everyone thanks so much for this great site! This is like my 3rd post so far and I have gotten quick replies to the previous query in General category. Anyway this is the situation.

I am in the quality department. The company uses excel spreadsheets for many things. On the company intranet there is a hyperlink to our QA web page which then links to another page with a html table listing created forms with a hyperlink to click to open the corresponding document. I have created a spreadsheet to allow other inspectors to add parts that need to be sent outside for coating processes. In the spreadsheet. To the right of a text label cell with the title "Date:" is of course an empty field. I would like to have the form update and insert the current date when opened from the hyperlink. However as part of this process I want to have it check to see if there is an existing date already there, and if so prompt the user to insert the current date. The idea here is to make sure the inspectors are actually getting the form off of the intratnet and not just opening an existing spreadsheet, clearing the contents and moving on. The forms have date and version control so as you can imagine we don't want to keep using a Rev. A document when changes were made and now it sits at Rev. B. A real problem if we are audited externally.

I am not sure if a macro should be triggered when the file opens from the intranet, or if VB code should be used to achieve the goal of having a current date inserted, or prompting for date to be added in case of the date cell already containing a valid date.

I hope my explanation has been concise.

Thank you,

Mel

You will have to add some code to the Workbook_Open event.

For example, suppose the blank cell for entering data is A1 on Sheet1

Public sub Workbook_Open()

dim ws as Excel.Worksheet

set ws = thisworkbook.worksheets("Sheet1")

if ws.range("a1").value = "" then
ws.range("a1").value = date
else
msgbox "Please enter current date in A1"
ws.range("a1").select
end if

end sub

You will have to add some code to the Workbook_Open event.

For example, suppose the blank cell for entering data is A1 on Sheet1

Public sub Workbook_Open()

dim ws as Excel.Worksheet

set ws = thisworkbook.worksheets("Sheet1")

if ws.range("a1").value = "" then
ws.range("a1").value = date
else
msgbox "Please enter current date in A1"
ws.range("a1").select
end if

end sub

Nathansav thanks so much! I will mark this question solved.