User Profile
dwcartwright1
Copper Contributor
Joined 6 years ago
User Widgets
Recent Discussions
Re: Conversion in PROPER Case except the word(s) written in CAPITAL Letter.
I think Ijust came up with something workable (albeit very inefficient)... Function MyProper(Source As Variant) As String Dim Data As Variant Dim lWd As Long Dim Words As Variant If TypeName(Source) = "Range" Then Data = Source.Value Else Data = Source End If Words = Split(Data, " ") For lWd = LBound(Words, 1) To UBound(Words, 1) If IsNumeric(Left(Words(lWd), 1)) And Right(Words(lWd), 2) = "ST" Then Words(lWd) = LCase(Words(lWd)) ElseIf IsNumeric(Left(Words(lWd), 1)) And Right(Words(lWd), 2) = "ND" Then Words(lWd) = LCase(Words(lWd)) ElseIf IsNumeric(Left(Words(lWd), 1)) And Right(Words(lWd), 2) = "RD" Then Words(lWd) = LCase(Words(lWd)) ElseIf IsNumeric(Left(Words(lWd), 1)) And Right(Words(lWd), 2) = "TH" Then Words(lWd) = LCase(Words(lWd)) ElseIf Words(lWd) = "CR" Then Words(lWd) = UCase(Words(lWd)) ElseIf Words(lWd) = "US" Then Words(lWd) = UCase(Words(lWd)) ElseIf Words(lWd) = "SR" Then Words(lWd) = UCase(Words(lWd)) ElseIf Words(lWd) = "IH" Then Words(lWd) = UCase(Words(lWd)) Else Words(lWd) = Application.Proper(Words(lWd)) End If Next MyProper = Trim(Join(Words, " ")) End Function6.1KViews0likes1CommentRe: Conversion in PROPER Case except the word(s) written in CAPITAL Letter.
JKPieterseI may have a problem to up the ante a bit more. I've been looking through the forums for a function that helps me turn all caps text input into a Proper string,with some exceptions. If one of the words is a specific abbreviation ("CR" or "SR" or "IH" or "US"), then I need that word to stay all caps. If a word begins with a numeric (1TH, 2ND, 3RD, 4TH, etc.), then I need it to switch to lower case. Some examples: From:"EAST 2ND STREET"To:"East 2nd Street" From:"IH 59 SOUNDBOUND"To:"IH 59 Southbound" From:"BROWN CREEK ROAD"To:"Brown Creek Road" I feel like I know what needs to be done, but I don't think I'm getting the syntax right.6.2KViews0likes3Comments
Groups
Recent Blog Articles
No content to show