Cell Formatting

[sassriverrat]

Good Morning,

I need to format a few different cells in the following manners:

A1 has to always add a colon ) after whatever is typed in by a user. Example- "F" in a cell becomes "F:"

A2 has to always be three digits- so if a user puts in "1", the cell shows "001" or if a user puts in "20" it shows as "020" and obviously a three digit number like "340" just stays "340".

A3 has to add an "'ly" to all single letter input codes. So a user might put in W 3, W-3, or W3 and I want it to show as "W'ly 3". However, sometimes the user might use NW 3, NW3, or NW3 and those should just format as "NW 3". So in conclusion, anytime a single letter (and number) are used, the letter should have "'ly" added to it and one space between the "'ly" and the number. And anytime two letters are used, they should just ensure there is a space between the two letter code and the number.

Thanks!

 

[sassriverrat]

Well this is wacky....

So I logged out, restarted, and logged back into my work machine (a virtual citrix machine) and the coding is working perfectly now....I really don't understand why....

Anyway.

Assuming it keeps working, thank you very very much for the help. These formatting coding pieces just haven't clicked for me yet!

 

[Paul Ked]

Sorry for late reply, had 'real' work to do.

Glad you're sorted

 

[sassriverrat]

Sorry for late reply, had 'real' work to do.

Glad you're sorted

Hey @Paul Ked

This is working like a champ. I'd like to make one change- if I want the user to be able to input "WNW 3" or another three letter code, it auto changes to two letters. Can I just add a into the existing code a letter to stop that? Basically all two and three letter combos are fine, and the single letter combos get changed to add the " 'ly " onto them.

Thanks!

 

[sassriverrat]

Sorry for late reply, had 'real' work to do.

Glad you're sorted

Hey @Paul Ked

This is working like a champ. I'd like to make one change- if I want the user to be able to input "WNW 3" or another three letter code, it auto changes to two letters. Can I just add a into the existing code a letter to stop that? Basically all two and three letter combos are fine, and the single letter combos get changed to add the " 'ly " onto them.

Thanks!

 

[Paul Ked]

Hi there

Try:

    If Target.Address = ("$R$13") Then
        r13 = Range("R13")
        If Mid(r13, 3, 1) Like "[a-zA-Z]" Then
            r13 = Left(r13, 3) & " " & Right(r13, 1)
            Range("R13") = UCase(r13)
        ElseIf Mid(r13, 2, 1) Like "[a-zA-Z]" Then
            r13 = Left(r13, 2) & " " & Right(r13, 1)
            Range("R13") = UCase(r13)
        Else
            r13 = UCase(Left(r13, 1)) & "'ly " & Right(r13, 1)
            Range("R13") = r13
        End If
    End If

Obviously with whichever cells it needs!

 

[sassriverrat]

Hi there

Try:

    If Target.Address = ("$R$13") Then
        r13 = Range("R13")
        If Mid(r13, 3, 1) Like "[a-zA-Z]" Then
            r13 = Left(r13, 3) & " " & Right(r13, 1)
            Range("R13") = UCase(r13)
        ElseIf Mid(r13, 2, 1) Like "[a-zA-Z]" Then
            r13 = Left(r13, 2) & " " & Right(r13, 1)
            Range("R13") = UCase(r13)
        Else
            r13 = UCase(Left(r13, 1)) & "'ly " & Right(r13, 1)
            Range("R13") = r13
        End If
    End If

Obviously with whichever cells it needs!

Worked perfectly.

Thanks!

 

[Paul Ked]

You're welcome