Steps to Speed Up Windows 10: Solution to Error: Data Validation Not Working for Calendar-Entered Dates

Monday, September 26, 2016

Solution to Error: Data Validation Not Working for Calendar-Entered Dates

Data Validation Not Working for Calendar-Entered Dates

Cell AF29 has a start date and cell AK29 has an end date. Both cells are populated with "Calendar1" and are formated date. Data validation is set up like this but does not work:

Settings:
     Allow: Date
     Data: Greater than
     Start Date: =AF29
     Ingor Blank: Unchecked
     Apply these changes: Unchecked
Error Alert:
     Show error alert...: Checked
     Style: Stop
     Title: Text is entered
      Error message: Text is entered
------------------------------
Calendar1 Macros:

Option Explicit

Private Sub Calendar1_Click()
    ActiveCell.Value = CDbl(Calendar1.Value)
    ActiveCell.NumberFormat = "mm/dd/yyyy"
    ActiveCell.Select
    Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Populate calendar date in cells
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Application.Intersect(Range("AF29,AK29,AF31"), Target) Is Nothing Then
        Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
        Calendar1.Top = Target.Top + Target.Height
        Calendar1.Visible = True
        Calendar1.Value = Date 'Set today's date in the Calendar when it comes up
    ElseIf Calendar1.Visible Then Calendar1.Visible = False
    End If
End Sub

Solutions to the Problem Data Validation Not Working for Calendar-Entered Dates

Download SmartPCFixer for Free Now

That is correct - Data Validation applies to values entered by the user, not to values entered using VBA.
You'd have to build your own validation into Calendar1_Click, e.g.
Private Sub Calendar1_Click()
    If Calendar1.Value <= Range("AF29") Then
        MsgBox "Boo!"
        Exit Sub
    End If
    ActiveCell.Value = CDbl(Calendar1.Value)
    ActiveCell.NumberFormat = "mm/dd/yyyy"
    ActiveCell.Select
    Calendar1.Visible = False
End Sub

How to Avoid Downloading Malware

Where are you getting the download?

There are malicious people who download valid copies of a popular download, modify the file with malicious software, and then upload the file with the same name. Make sure you are downloading from the developer's web page or a reputable company.

Don't install download manager

Many sites suggest or require you to install an installer or a download manager before allowing you to download a program you may be interested in downloading. These tools almost always cause your computer more problems and may even have malware or other spyware. Avoid any site claiming anything must be installed first before you can continue with your download.

Avoid advertisements on download pages

To help make money and pay for the bandwidth costs of supplying free the software, the final download page may have ads. Watch out for anything that looks like advertisements on the download page. Many advertisers try to trick viewers into clicking an ad with phrases like "Download Now", "Start Download", or "Continue" and that ad may open a separate download.

Cancel or deny any automatic download

Some sites may automatically try start a download or give the appearance that something needs to be installed or updated before the site or video can be seen. Never accept or install anything from any site unless you know what is downloading.

Another Safe way to Repair the Problem: Data Validation Not Working for Calendar-Entered Dates:

How to Fix Data Validation Not Working for Calendar-Entered Dates with SmartPCFixer?

1. You can Download SmartPCFixer here. Install it on your system. When you open it, it will perform a scan.

2. After the scan is done, you can see the errors and problems which need to be repaired.

3. The Repair part is finished, the speed of your computer will be much higher than before and the errors have been fixed. You can also use other functions in SmartPCFixer. Like dll downloading, junk file cleaning and print spooler error repair.

Steps to Speed Up Windows 10