CREATE INPUTBOX

[verluc]

I want to create an inputbox for a date like 08.05.2002
After used the OK button then this date must automatickly insert in Cell C4
Who can help me to create such an inputbox?
Many thanks

[dk]

Hello,

How about this?

Sub GetDate()
Dim vDate As Variant
Do
    vDate = InputBox("Please enter a date dd/mm/yy", "Get date")
Loop Until IsDate(vDate) Or vDate = ""

If vDate = "" Then Exit Sub

ActiveSheet.Range("C4").Value = CDate(vDate)
End Sub

HTH,
Dan

[verluc]

On 2002-05-08 04:44, dk wrote:
Hello,

How about this?

Sub GetDate()
Dim vDate As Variant
Do
    vDate = InputBox("Please enter a date dd/mm/yy", "Get date")
Loop Until IsDate(vDate) Or vDate = ""

If vDate = "" Then Exit Sub

ActiveSheet.Range("C4").Value = CDate(vDate)
End Sub

Thanks Dan,it works fine.But how can I display this inputbox by opening of the workbook.
Thanks
HTH,
Dan

[dk]

OK,

right click the lower of the two Excel icons at the top left of the screen and choose View Code. Then paste this:-

Private Sub Workbook_Open()
Dim vDate As Variant
Do
vDate = InputBox("Please enter a date dd/mm/yy", "Get date")
Loop Until IsDate(vDate) Or vDate = ""

If vDate = "" Then Exit Sub

ActiveSheet.Range("C4").Value = CDate(vDate)
End Sub

HTH,
Dan