VBA script prompting user to type in a date

[vs127739]

I have F2 returning True and False depending whatever conditions are met, and I want a pop up to appear asking user to enter date that will appear in G2.

I want to make a VBA script that does the following:

If F2 is TRUE, then a Pop Up appears prompting user to input a date in format MM/DD/YYYY in G2. The date entered must be any date after TODAY. I would prefer the user to be able to change the date at a later time. If the user enters a date of TODAY or before TODAY, the Pop Up should redirect to enter any date after today as an error message.
If F2 is FALSE, then G2 should be left blank. However, the option to enter a date in format MM/DD/YYYY should be left open if user wants to change date.

I basically want to do this again for F3 and G3, all the way up to F37 and G37. If can make this in one script instead of many, that would be awesome.

I have no skills in making VBA scripts. Can anyone help?
No idea on what I'm doing.

 

[Roderick_E]

right click on the tab you want this to happen, VIEW code and paste this in:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$2" Then
If Range("F2") = True Then
dbox = InputBox("Input date MM/DD/YYYY (AFTER " & Format(Now(), "MM/DD/YYYY") & ")")
While dbox <= Format(Now(), "MM/DD/YYYY") And dbox <> ""
dbox = InputBox("Input date MM/DD/YYYY (AFTER " & Format(Now(), "MM/DD/YYYY") & ")")
Wend
Range("G2") = Format(dbox, "MM/DD/YYYY")
End If
End If
End Sub

When F2 changes to true, a popup will occur.

 

[vs127739]

Hi,

Thank you for writing the code, but nothing is happening.

 

[Roderick_E]

whenever F2 changes it will trigger this code

 

[vs127739]

It does work on another worksheet. I guess I don't know how to add a new script after I have another one. Do you have to do something special if another code is running in the background?