Date capture in Entry Form to Data Table

I have a Data Entry Form that captures data entered to a table in a different sheet in the same workbook.
I want to include the Date the data is entered in a new column in the data table. I want the date been enter with out the user entering or typing the date. After the user makes a data entry with the OK button, I want the code to capture the date and input it with the rest of the info enter in the same row.How can I format a label that will display the date (today’s date) in the Input form and make the "OK" buttom code capture this value (data entry date/today’s date) to the data table? Lets name the sheet were the macro initializing the entry form ” Entry Form Sheet” and where the data table is name “Raw Data Sheet”. I’m following the format use in this example form;

http://www.exceltip.com/st/Create_Us...Excel/629.html

Hello JIBG,

Using the example you cited, I made changes to include the date. Replace your OK button code with the code here. It will place the date in column "E" of the row the data was entered in. The date format is Sep-01-2007. The code is highlighted in blue. This code could be improved, but I didn't want to confuse you with too many changes that may make it hard to follow.

Private Sub cmdOK_Click()
    ActiveWorkbook.Sheets("Course Bookings").Activate
    Range("A1").Select
    Do
      If IsEmpty(ActiveCell) = False Then
         ActiveCell.Offset(1, 0).Select
      End If
    Loop Until IsEmpty(ActiveCell) = True

    ActiveCell.Value = txtName.Value
    ActiveCell.Offset(0, 1) = txtPhone.Value
    ActiveCell.Offset(0, 2) = cboDepartment.Value
    ActiveCell.Offset(0, 3) = cboCourse.Value
    ActiveCell.Offset(0, 4) = Format(Now(), "mmm-dd-yyyy")

    If optIntroduction = True Then
        ActiveCell.Offset(0, 4).Value = "Intro"
    ElseIf optIntermediate = True Then
        ActiveCell.Offset(0, 4).Value = "Intermed"
    Else
        ActiveCell.Offset(0, 4).Value = "Adv"
    End If

    If chkLunch = True Then
        ActiveCell.Offset(0, 5).Value = "Yes"
    Else
        ActiveCell.Offset(0, 5).Value = "No"
    End If

    If chkVegetarian = True Then
        ActiveCell.Offset(0, 6).Value = "Yes"
    Else
        If chkLunch = False Then
           ActiveCell.Offset(0, 6).Value = ""
        Else
           ActiveCell.Offset(0, 6).Value = "No"
        End If
    End If

    Range("A1").Select

End Sub

Sincerely,
Leith Ross

Ross, thanks for you replay. I understand you code to a certain point. But it won’t work the way I wanted
Let’s make it more simple; If I will have a simple from with just a label how can I programmed it to show today’s date, how can I capture that date and with a OK command button save it to a particular cell in the same workbook but in a different sheet?

Thanks again for the replay.

JIBG

Hello JIBG,

Here is a code example of an "OK" button to place today's date in cell A1 of Sheet2. If this isn't what you want, post the code you do have. Don't redirect people to a URL whose code example doesn't match the code the you using.

Private Sub cmdOK_Click()
  
  Worksheets("Sheet2").Range("A1").Value = Format(Now(), "mmm-dd-yyyy")
  'Place any other code you want after this line

End Sub

Sincerely,
Leith Ross