VBA If with Like Operator not working

[RickyGerbilFace]

Hi I have the below bit of code but the If DateStr Like "*March*" Then MonthNumber = "/03/" Else MonthNumber = ""lines are not working, any ideas?

I'm getting the output:
12 March
12


I am hoping for:
12 March
12
/03/

Please Login or Register  to view this content.

[Fluff13]

You either have to use an If...ElseIf.. statement, or a Select case

Please Login or Register  to view this content.

You can also simply the replace section with

Please Login or Register  to view this content.

[AliGW]

Why have you opened this thread? Are you not being assisted with this in the commercial services forum?

[RickyGerbilFace]

That's brilliant, thank you so much your help is greatly appreciated

[Marc L]

As a VBA beginner starter :

Sub FixDateString() 
  Const F = "00" 
    Dim M$(), DateStr$, V 
        M = Split("January February March April May June July August September October November December") 
        DateStr = "12th March" 
        V = Split(DateStr) 
        V(0) = Format(Val(V(0)), F) 
    If UBound(V) > 0 Then 
        V(1) = Application.Match(V(1), M, 0) 
        If IsError(V(1)) Then V(1) = F Else V(1) = Format(V(1), F) 
        If UBound(V) > 1 Then If Not IsNumeric(V(2)) Then V(2) = F 
    End If 
        Debug.Print DateStr; "  ->  "; Join(V, "/") 
End Sub  

► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » !

[Fluff13]

You're welcome & thanks for the feedback

[AliGW]

Please answer the question in post #3. Thanks.