Results 1 to 4 of 4

Help with Date format needed

Threaded View

karolina1406 Help with Date format needed 06-12-2019, 04:54 AM
Pepe Le Mokko Re: Help with Date format... 06-12-2019, 05:54 AM
torachan Re: Help with Date format... 06-12-2019, 08:32 AM
Fluff13 Re: Help with Date format... 06-12-2019, 10:00 AM
  1. #1
    Registered User
    Join Date
    06-22-2018
    Location
    Clanfield
    MS-Off Ver
    2013
    Posts
    42

    Question Help with Date format needed

    can someone help? I have a code, as below, which is my UserForm (Entry of ne Risk into Risk Register) however no matter what the date is always returned in the American format mm/dd/yy. I need it in the UK format dd/mm/yy. Any suggesttions?

    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("Risk_Register")
    Dim n As Long
    n = sh.Range("I" & Application.Rows.Count).End(xlUp).Row
    
    sh.Unprotect "kk"
    
    Range("i13:i500").Columns.AutoFit
    Range("j13:j500").Columns.AutoFit
    Range("l13:l500").Columns.AutoFit
    Range("n13:n500").Columns.AutoFit
    Range("o13:o500").Columns.AutoFit
    Range("p13:p500").Columns.AutoFit
    Range("t13:t500").Columns.AutoFit
    Range("x13:x500").Columns.AutoFit
    
    sh.Range("I" & n + 1).Value = Me.EpicName_CB.Value
    sh.Range("j" & n + 1).Value = Me.DateRaised_TX.Value
    sh.Range("l" & n + 1).Value = Me.RaisedBy_TX.Value
    sh.Range("m" & n + 1).Value = Me.RiskType_CB.Value
    sh.Range("n" & n + 1).Value = Me.RiskName_TX.Value
    sh.Range("o" & n + 1).Value = Me.RiskDescription_TX.Value
    sh.Range("p" & n + 1).Value = Me.ImpactDescription_TX.Value
    sh.Range("q" & n + 1).Value = Me.AreaOfImpact_CB.Value
    sh.Range("r" & n + 1).Value = Me.RiskValue_TX.Value
    sh.Range("t" & n + 1).Value = Me.RiskOWner_TX.Value
    sh.Range("u" & n + 1).Value = Me.Impact_CB.Value
    sh.Range("v" & n + 1).Value = Me.Probablility_CB.Value
    sh.Range("x" & n + 1).Value = Me.MitigationAction_TX.Value
    sh.Range("y" & n + 1).Value = Me.PostMitigationValue_TX.Value
    sh.Range("aa" & n + 1).Value = Me.ResolveDate_TX.Value
    
    If Me.OptionButton1.Value = True Then
        sh.Range("k" & n + 1).Value = "Open"
    End If
    If Me.OptionButton2.Value = True Then
        sh.Range("k" & n + 1).Value = "Closed"
    End If
    If Me.OptionButton3.Value = True Then
        sh.Range("k" & n + 1).Value = "For Escalation"
    End If
    Last edited by Pepe Le Mokko; 06-12-2019 at 05:54 AM.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. [SOLVED] VLookup with a Custom Date Format Needed
    By Bryan.Pagenkopf in forum Excel Formulas & Functions
    Replies: 9
    Last Post: 11-29-2018, 01:32 PM
  2. [SOLVED] VBA Help Needed to Format a Textbox for today Date
    By sylvainsyl20 in forum Excel Programming / VBA / Macros
    Replies: 9
    Last Post: 04-13-2016, 10:43 AM
  3. Help needed for Excel Date Format ?
    By britishidol200 in forum Excel Formulas & Functions
    Replies: 11
    Last Post: 06-05-2015, 02:42 PM
  4. [SOLVED] Excel Format Date does not update- Some help needed :)
    By DamienR in forum Excel Programming / VBA / Macros
    Replies: 3
    Last Post: 08-09-2013, 12:22 AM
  5. Conditional Format Help Needed - based on date and isblank
    By davekippen in forum Excel General
    Replies: 0
    Last Post: 07-14-2011, 10:52 AM
  6. Help needed with date format
    By m1918@shaw.ca in forum Excel General
    Replies: 2
    Last Post: 08-29-2005, 08:05 AM
  7. [SOLVED] Help needed with date format
    By m1918@shaw.ca in forum Excel General
    Replies: 1
    Last Post: 08-29-2005, 04:11 AM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1