a1e force to enter date with vba Free Excel Macros (VBA) | Excel Programs

Warning: session_start() [function.session-start]: Cannot send session cookie - headers already sent by (output started at /home/dbswav/public_html/excelwithkenan.com/goster_hazir_makrolar.php:61) in /home/dbswav/public_html/excelwithkenan.com/header.php on line 2

Warning: session_start() [function.session-start]: Cannot send session cache limiter - headers already sent (output started at /home/dbswav/public_html/excelwithkenan.com/goster_hazir_makrolar.php:61) in /home/dbswav/public_html/excelwithkenan.com/header.php on line 2

Excel Free Macros (VBA)

A1e Force To Enter Date With Vba

Online Excel and Excel Macro (VBA) Courses

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target = Range("A1") Then Date_Validation
End Sub

' Input the following code in standard module
Sub Date_Validation()
    Dim dteDate As Date
    Dim strDate As String

With Range("A1")
    '   Memo original date
        dteDate = CDate(.Text)
    '   Create date string
        strDate = Format(dteDate, "m/d/yy")
        With .Validation
        '   Delete old settings
            .Delete
        '   Set new data validation
            .Add _
                Type:=xlValidateDate, _
                AlertStyle:=xlValidAlertStop, _
                Operator:=xlGreaterEqual, _
                Formula1:=strDate

.IgnoreBlank = False
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = "Invalid Date Entry"
            .InputMessage = ""
            .ErrorMessage = _
                "Date is older than the previous date (" & _
                dteDate & ")."
            .ShowInput = True
            .ShowError = True
        End With
    End With
End Sub

Report problem with this macro

Report error

ALL MACROS

Youtube Channel
The following macros may be useful for you.

Similar Results
No	Macro Name
1	a1e force to enter date with vba
2	excel operators hk
3	Hide or show pivot table fields according to a specific criterion
4	Add comment to selected cell
5	Use Target Seek: Target Seek can be super to solve complex problems. Learn more about destination search here before using this code.
6	specifies in detail how many formulas are in the book (on new sheet / page)
7	list formulas on new sheet / page
8	specifies in detail how many references the book contains (on new sheet / page)
9	Reverse Text: All you have to do is enterrvrse" in a cell and look at the cell that contains the text you want to reverse.
10	textbox1e date textbox2 month when you enter the value of the intersection of the label on the sheet / page
11	send alert e-mail from microsoft outlook
12	Remove Date Time: You can use this code if you are spending time with the date and want to remove it.
13	Shut down computer with macro
14	put the calendar on the sheet / page (change year)
15	write the days of this month to the right write the day to the child cell and color the weekends
16	f2 enter function in excel
17	excel fonts 2
18	If you start vba, open the vba library and use the sheet / page to skip 7 columns
19	fonts in word
20	Send all pivot tables to printer

Excel Free Macros (VBA)

A1e Force To Enter Date With Vba

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords