?
Solved

vba date validation

Posted on 2010-09-16
9
Medium Priority
?
559 Views
Last Modified: 2012-05-10
I want to validate in vba that an inputbox entry is between two dates: two yrs ago and 10 yrs hence..  If true, continue; if false msg box and try again.
0
Comment
Question by:1r3o2n8
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 2
  • 2
  • +1
9 Comments
 
LVL 2

Expert Comment

by:ymiossec
ID: 33696857
you don't need vba for that :

you just have to use data-validation on that cell, with a personalized formula as :
(for checking value in I9 between
=ET(I9>J9;I9<J10)

with J9 = 2 years ago
and J10= 10 years hence

you can personalize the message that will be displayed to the user.
He cannot validate a wrong value in the field.
0
 
LVL 2

Expert Comment

by:ymiossec
ID: 33696873
Sorry, French version of Excel ...

in english :
=AND(I9>J9;I9<J10)
0
 
LVL 81

Expert Comment

by:byundt
ID: 33697184
ymiossec uses semicolons as a list separator. In American Excel, you would use a comma.
=AND(I9>=J9,I9<=J10)                                Formula changed so allowable dates would also include the end points
0
Migrating Your Company's PCs

To keep pace with competitors, businesses must keep employees productive, and that means providing them with the latest technology. This document provides the tips and tricks you need to help you migrate an outdated PC fleet to new desktops, laptops, and tablets.

 

Author Comment

by:1r3o2n8
ID: 33697385
I need vba because: 1) my entries are made on a userform, not spreadsheet; 2) the date extremes are based on today's date (dynamic), not a hard date..  I also like the msgbox to indicate out of range date.
0
 
LVL 81

Expert Comment

by:byundt
ID: 33697629
The code in the snippet assumes you enter the date as a string in a textbox named TextBox1 on a userform. The date is tested when the user hits the OK button.
Private Sub cbCancel_Click()
Me.Hide
Unload Me
End Sub

Private Sub cbOK_Click()
Dim dat As Date
If IsDate(TextBox1.Value) Then
    dat = CDate(TextBox1.Value)
    Select Case dat
    Case Is < DateSerial(Year(Date) - 2, Month(Date), Day(Date))
        MsgBox "Date is too soon. Try again."
    Case Is > DateSerial(Year(Date) + 10, Month(Date), Day(Date))
        MsgBox "Date is too far in future. Try again."
    Case Else
        'Good date. Do stuff
        MsgBox "A good date was entered: " & Format(dat, "mmmm d, yyyy")
    End Select
End If
End Sub

Open in new window

ValidateDateQ26479360.xlsm
0
 
LVL 2

Expert Comment

by:insaneCFC
ID: 33699368
Try this:
Sub InputBoxCode()
Dim d  As Date


d = InputBox("Enter Date")
If d < DateSerial(Year(Date) - 2, Month(Date), Day(Date)) Or d > DateSerial(Year(Date) + 10, Month(Date), Day(Date)) Then
MsgBox "Date is out of specified time frame!"
Exit Sub
Else
    'Rest of Code
End If

End Sub

Open in new window

0
 

Author Comment

by:1r3o2n8
ID: 33703484
Attched is "wire" workbook.  I believe your code should be in Calendar1 so when date is selected your code will run.  I've tried both of your code ideas, but neither work.  Thanks for your patience.
WIRE-2010.xlsm
0
 
LVL 81

Expert Comment

by:byundt
ID: 33703693
You don't have a CommandButton3 in your userform. When I added one, the macro tested the date as expected.

I tested the code as shown below. Note that I deleted some extra End Sub statements and commented out the original code for CommandButton3.

Brad
Private Sub CommandButton3_Click()
'Range("H1").Select
    'Range(Selection, Selection.End(xlDown)).Select
    'Range(Selection, Selection.End(xlToLeft)).Select
    'ActiveSheet.PageSetup.PrintArea = Selection.Address
    'ActiveWindow.SelectedSheets.PrintPreview


'Private Sub TextBox1_Change()
'Private Sub cbCancel_Click()
'Me.Hide
'Unload Me
'End Sub

'Private Sub cbOK_Click()
Dim dat As Date
If IsDate(TextBox1.Value) Then
    dat = CDate(TextBox1.Value)
    Select Case dat
    Case Is < DateSerial(Year(Date) - 2, Month(Date), Day(Date))
        MsgBox "Date is too soon. Try again."
    Case Is > DateSerial(Year(Date) + 10, Month(Date), Day(Date))
        MsgBox "Date is too far in future. Try again."
    Case Else
        'Good date. Do stuff
        MsgBox "A good date was entered: " & Format(dat, "mm, dd, yy")
    End Select
End If
End Sub

Open in new window

0
 
LVL 81

Accepted Solution

by:
byundt earned 500 total points
ID: 33703800
If you want to test the value in Calendar1, then note that its Value property doesn't update until you pick a day of the month. In other words, I changed the year, and the macro still tested the old value of the date. The same thing applies if you change the month--you need to pick a day on the calendar to get it to update the value.
Private Sub CommandButton3_Click()
Dim dat As Date
dat = Calendar1.Value
Select Case dat
Case Is < DateSerial(Year(Date) - 2, Month(Date), Day(Date))
    MsgBox "Date is too soon. Try again."
Case Is > DateSerial(Year(Date) + 10, Month(Date), Day(Date))
    MsgBox "Date is too far in future. Try again."
Case Else
    'Good date. Do stuff
    MsgBox "A good date was entered: " & Format(dat, "mm, dd, yy")
End Select
End Sub

Open in new window

0

Featured Post

Hire Technology Freelancers with Gigs

Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Ever visit a website where you spotted a really cool looking Font, yet couldn't figure out which font family it belonged to, or how to get a copy of it for your own use? This article explains the process of doing exactly that, as well as showing how…
If you need to forecast numbers -- typically for finance -- the Windows and Mac versions of Excel 2016 have a basket of tools to get the job done.
The viewer will learn how to create a normally distributed random variable in Excel, use a normal distribution to simulate the return on an investment over a period of years, Create a Monte Carlo simulation using a normal random variable, and calcul…
This Micro Tutorial will demonstrate in Google Sheets how to use the HYPERLINK function to create live links inside your spreadsheet.

765 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question