Input Boxes and Dates

[snoosnoo]

Hi, I want the default value of my input box to reference a cell. This cell is also the destination for the data inputted in the input box. I'm running into some issues with the value posted back to the cell.. let me explain exactly

In C2 I have the date 01/04/2016. When I run Sub EnterDate() the default value that appears in the input box is 01/04/2016, which is what I would expect. However when I click OK, essentially writing the date 01/04/2016 back to cell C2, the value in C2 now reads 04/01/2016. I suspect it has something to do with US date writing versus EU date writing (inverting the day and the month) , but really don't know how to solve this issue! Would be grateful for any help

Sub EnterDate()

Dim DataMonth As Variant
Sheets("Instructions").Select
DataMonth = InputBox("Please enter the month for which the data corresponds in MMM YYYY form", "Enter Month", Range("C2"))
Range("C2").Value = DataMonth

End Sub

 

[dmt32]

Hi,
see if this update to your code does what you want:

Sub EnterDate()
    Dim DataMonth As Variant
    Dim wsInstructions As Worksheet
    Dim Prompt As String, Default As String
    
    Set wsInstructions = ThisWorkbook.Sheets("Instructions")
    
    Prompt = "Please enter the month for which the data corresponds in MMM YYYY form"
    Default = wsInstructions.Range("C2").Text
    
    Do
        DataMonth = InputBox(Prompt, "Enter Month", Default)
'cancel pressed
        If StrPtr(DataMonth) = 0 Then Exit Sub
    Loop Until IsDate(DataMonth)
    
    wsInstructions.Range("C2").Value = DateValue(DataMonth)
    
End Sub

Dave

 

[snoosnoo]

Works a charm thank you!!