Date is driving me nuts

[built4thekill]

Hi All. I'm having an issue which is driving me crazy!! I'm sure the solution is easy but I cant find it. Basically I have a cell in which I'm supposed to type in a date then a corresponding cell will give me a DoB. Now whenever I type in the date in UK format it keeps changing it to US! I've tried changing the format to Date - English UK and also Custom - dd/mm/yyyy but it still changes it to US each time. E.g. 03/04/1980 (3rd April) would auto change to 04/03/1980 (4th March). Any help would be really appreciated!!

 

[MARK858]

Have a look at your computers regional settings to check that they are dd/mm/yyyy

 

[built4thekill]

Have a look at your computers regional settings to check that they are dd/mm/yyyy

Yep, checked that. All English United kingdom and specifically dd/mm/yyy

 

[MARK858]

Any macro's or conditional formats?

 

[built4thekill]

Any macro's or conditional formats?

There's a macro to force change certain cell entries to capitals and another for a clear all button. No conditional formats.

 

[MARK858]

Try selecting the column, click Data - Text to Columns - Delimited - Next - check that nothing is checked and the Other box is empty - Next - check the Date checkbox - choose MDY and click finish.

Can you format the cells correctly now?

 

[built4thekill]

Try selecting the column, click Data - Text to Columns - Delimited - Next - check that nothing is checked and the Other box is empty - Next - check the Date checkbox - choose MDY and click finish.

Can you format the cells correctly now?

no . for a millisecond it shows correctly then it changes to US date - as if its showing me the middle finger

 

[MARK858]

Can you post any code that you have on the sheet (right click the sheet tab and click view code).
Can you also format the cell as a number and post the number it returns please.

 

[RoryA]

There's a macro to force change certain cell entries to capitals

Is that macro set to act on the cell where you are entering the date?

 

[built4thekill]

Can you post any code that you have on the sheet (right click the sheet tab and click view code).
Can you also format the cell as a number and post the number it returns please.

Sub Worksheet_SelectionChange(ByVal Target As Range) 'single click version
 
    If Intersect(Target, Range("D27,D31,D28,D35,G27,G28,G31,G34,G38:G53,D38:D53")) Is Nothing Then
        Application.CutCopyMode = False   'clears clipboard and stops cell flashing - like pushing escape key
        Exit Sub
    Else
        ActiveCell.Copy
    End If
 
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.HasFormula Then Exit Sub
        Application.EnableEvents = False
        Target = UCase(Target.Cells(1))
    Application.EnableEvents = True
End Sub