Wrox Programmer Forums

Need to download code?

View our list of code downloads.

Go Back   Wrox Programmer Forums > Microsoft Office > Excel VBA > Excel VBA
Password Reminder
Register
| FAQ | Members List | Search | Today's Posts | Mark Forums Read
Excel VBA Discuss using VBA for Excel programming.
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Excel VBA section of the Wrox Programmer to Programmer discussions. This is a community of software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
DRM-free e-books 300x50
Reply
 
Thread Tools Search this Thread Display Modes
  #1 (permalink)  
Old August 4th, 2007, 10:46 PM
Authorized User
 
Join Date: Jul 2007
Location: , , .
Posts: 26
Thanks: 0
Thanked 0 Times in 0 Posts
Default Data Validation and format

1) How could I force user to enter data (Date) in this column (Cell-) ACC-DATE) like exact same format.
2) If user keep blank in first column they will be prompt to put data in ACC-DATE cell in dd/MON/YY format.

ACC_DATE BATCH_NAME Amount1 total1 total2
-------- --------- ------- ------ -----
02-MAY-07 Batch 1 10.00 10.00 10.00
03-JUN-07 Batch 2 20.00 20.00 20.00
10-JUL-07
20-AUG-07

3) Users are not allowed to enter data into next cell/row until they enter date.
Kind of message box type will be a great to do I guess.

(Date can not be null and can not be other then dd/MON/YY format.)

Feedback’s are greatly appreciated.


**How can I lock the total1 and total2 column using macro/VBA?
Thanks


Reply With Quote
  #2 (permalink)  
Old August 5th, 2007, 07:02 PM
Registered User
 
Join Date: Jul 2007
Location: , , .
Posts: 9
Thanks: 0
Thanked 0 Times in 0 Posts
Default

In the worksheet‘s column to be used for the dates highlight the rows to be used for the dates. Create a range name for the area. Then create the custom date format dd-mmm-yy for the range.
In the worksheet’s SelectionChange event use the following code:

    Dim rcell As Range
    Dim dateRange As Range
    Dim msg As String
    Set dateRange = Range("TheDates")
    Set rcell = ActiveCell

    msg = "Row contents not a date" & vbCrLf & "or the row is empty"

    If Union(dateRange, rcell).Address = dateRange.Address And _
    Union(Range("A6"), rcell).Address <> Range("A6").Address Then

        If Not IsDate(rcell.Offset(-1, 0)) Or IsEmpty(rcell.Offset(-1, 0)) Then
            MsgBox msg, vbCritical, "Enter a Date"
            rcell.Offset(-1, 0).Select
        End If

  End If


A6 is the first cell of the date range.
If the person does not enter a date or the cell is empty, when the person moves to the next row a message dialog box will appear. It’s not perfect but it should work in most cases.




Reply With Quote
  #3 (permalink)  
Old August 7th, 2007, 02:53 PM
Authorized User
 
Join Date: Jul 2007
Location: , , .
Posts: 26
Thanks: 0
Thanked 0 Times in 0 Posts
Default

Tanks for your reply.
Now it works only for date column, which is great.

If I skip a cell in a date column and point into another cell below then get error message.
1) I like to see error message when user attempt to type (not just click) something when date cell is empty and not date format.

2) I am not getting error message when skip date and type into next columns (Batch- Name. amount1 etc). (Reason behind, because my range only ACC-Date column?)
Do I have to write similar function for other 4 columns too?

Thanks for your valuable time and support….


Reply With Quote
Reply


Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Trackbacks are Off
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
multiple email validation (different format) kumiko Javascript 2 July 22nd, 2008 08:06 AM
Validation in Data Classes TNSmith Visual Basic 2005 Basics 1 July 9th, 2007 04:18 PM
Data Validation in textbox rhd110 .NET Framework 1.x 1 March 26th, 2007 06:51 AM
Data Validation RollingWoodFarm Excel VBA 1 November 20th, 2006 01:12 PM
Format validation madhukp SQL Server 2000 2 March 31st, 2006 06:18 AM



All times are GMT -4. The time now is 03:24 PM.


Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
© 2013 John Wiley & Sons, Inc.