Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA question - Inputing data to txtbox in userform using short date formart
Hi,
I intend to get data (in short date format "13-Apr-2004") using txtbo in a userform. I tried this code: Private Sub txtSheet_Change() ' Guarda el numero de Sheet a Importar Dim Sh As Variant Sh = Format(txtSheet.Value, dd - mmm - yyyy) MsgBox "Sheet value=" & Sh End Sub but MsgBox apperars inmediatly after each digit. How can I make nothing appens until I get all the 11 digits, and ho making sure that data will be only in short date format (dd-mmm-yyyy ? Thanks -- Message posted from http://www.ExcelForum.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA question - Inputing data to txtbox in userform using short date formart
You cannot gave the macro in the textbox.change as it will do exactly what you say. i.e. Each digit
is a change to the text box. One solution would be to add a command button to the form and move your macro to work when the comman button is pressed DavidP On Tue, 13 Apr 2004 02:31:01 -0500, ajliaks wrote: Hi, I intend to get data (in short date format "13-Apr-2004") using txtbox in a userform. I tried this code: Private Sub txtSheet_Change() ' Guarda el numero de Sheet a Importar Dim Sh As Variant Sh = Format(txtSheet.Value, dd - mmm - yyyy) MsgBox "Sheet value=" & Sh End Sub but MsgBox apperars inmediatly after each digit. How can I make nothing appens until I get all the 11 digits, and how making sure that data will be only in short date format (dd-mmm-yyyy) ? Thanks. --- Message posted from http://www.ExcelForum.com/ |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA question - Inputing data to txtbox in userform using short date formart
You could try the Exit or AfterUpdate events.
-- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "ajliaks " wrote in message ... Hi, I intend to get data (in short date format "13-Apr-2004") using txtbox in a userform. I tried this code: Private Sub txtSheet_Change() ' Guarda el numero de Sheet a Importar Dim Sh As Variant Sh = Format(txtSheet.Value, dd - mmm - yyyy) MsgBox "Sheet value=" & Sh End Sub but MsgBox apperars inmediatly after each digit. How can I make nothing appens until I get all the 11 digits, and how making sure that data will be only in short date format (dd-mmm-yyyy) ? Thanks. --- Message posted from http://www.ExcelForum.com/ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Storing data in Short Date format | New Users to Excel | |||
help to show formart in reference cell | Excel Worksheet Functions | |||
VBA: Update worksheet when txtBox data changes. | Excel Worksheet Functions | |||
VBA: Update worksheet when txtBox data changes. | Excel Worksheet Functions | |||
VBA: Update worksheet when txtBox data changes. | Excel Worksheet Functions |