Extract Uppercase Letters

[jnf40]

Accidentally posted to Excel General Questions earlier.
Using VBA how would I have the username like Joseph T. Smith be JTS in a
cell? The name could be any length, and if there is not a middle initial such
as Pete Loveless it would be PL.
Thanks for any and all advice and examples.

 

[Rick Rothstein \(MVP - VB\)]

You could pass your user name into this function and it will return the
upper case letters that you want...

Function GetUpperCaseLetters(Text As String) As String
Dim X As Long
For X = 1 To Len(Text)
If Mid$(Text, X, 1) Like "[A-Z]" Then
GetUpperCaseLetters = GetUpperCaseLetters & Mid$(Text, X, 1)
End If
Next
End Function

Rick

 

[jnf40]

Thanks works great

You could pass your user name into this function and it will return the
upper case letters that you want...

Function GetUpperCaseLetters(Text As String) As String
Dim X As Long
For X = 1 To Len(Text)
If Mid$(Text, X, 1) Like "[A-Z]" Then
GetUpperCaseLetters = GetUpperCaseLetters & Mid$(Text, X, 1)
End If
Next
End Function

Rick

Accidentally posted to Excel General Questions earlier.
Using VBA how would I have the username like Joseph T. Smith be JTS in a
cell? The name could be any length, and if there is not a middle initial
such
as Pete Loveless it would be PL.
Thanks for any and all advice and examples.

 

[jnf40]

Rick did you ever get a chance to look at the rest of that code from the
"Check Characters and Change as Needed" post from 4/8/08?

You could pass your user name into this function and it will return the
upper case letters that you want...

Function GetUpperCaseLetters(Text As String) As String
Dim X As Long
For X = 1 To Len(Text)
If Mid$(Text, X, 1) Like "[A-Z]" Then
GetUpperCaseLetters = GetUpperCaseLetters & Mid$(Text, X, 1)
End If
Next
End Function

Rick

Accidentally posted to Excel General Questions earlier.
Using VBA how would I have the username like Joseph T. Smith be JTS in a
cell? The name could be any length, and if there is not a middle initial
such
as Pete Loveless it would be PL.
Thanks for any and all advice and examples.

 

[Charlie]

Hmmm, I tried it and it "BOMD" on "Bob O. McDuff"

You could pass your user name into this function and it will return the
upper case letters that you want...

Function GetUpperCaseLetters(Text As String) As String
Dim X As Long
For X = 1 To Len(Text)
If Mid$(Text, X, 1) Like "[A-Z]" Then
GetUpperCaseLetters = GetUpperCaseLetters & Mid$(Text, X, 1)
End If
Next
End Function

Rick

Accidentally posted to Excel General Questions earlier.
Using VBA how would I have the username like Joseph T. Smith be JTS in a
cell? The name could be any length, and if there is not a middle initial
such
as Pete Loveless it would be PL.
Thanks for any and all advice and examples.

 

[Rick Rothstein \(MVP - VB\)]

While I'm sure there are lot's of other exception (and I'm not completely
sure BOMD is not what the OP wants), you can handle the McDuff problem this
way...

Function GetUpperCaseLetters(Text As String) As String
Dim X As Long
For X = 1 To Len(Text)
If Mid$(StrConv(Text, vbProperCase), X, 1) Like "[A-Z]" Then
GetUpperCaseLetters = GetUpperCaseLetters & Mid$(Text, X, 1)
End If
Next
End Function

Rick

Hmmm, I tried it and it "BOMD" on "Bob O. McDuff"

You could pass your user name into this function and it will return the
upper case letters that you want...

Function GetUpperCaseLetters(Text As String) As String
Dim X As Long
For X = 1 To Len(Text)
If Mid$(Text, X, 1) Like "[A-Z]" Then
GetUpperCaseLetters = GetUpperCaseLetters & Mid$(Text, X, 1)
End If
Next
End Function

Rick

Accidentally posted to Excel General Questions earlier.
Using VBA how would I have the username like Joseph T. Smith be JTS in
a
cell? The name could be any length, and if there is not a middle
initial
such
as Pete Loveless it would be PL.
Thanks for any and all advice and examples.

 

[Peter T]

Looks fine to me, what's wrong if that's what you are suggesting

Regards,
Peter T

Hmmm, I tried it and it "BOMD" on "Bob O. McDuff"

You could pass your user name into this function and it will return the
upper case letters that you want...

Function GetUpperCaseLetters(Text As String) As String
Dim X As Long
For X = 1 To Len(Text)
If Mid$(Text, X, 1) Like "[A-Z]" Then
GetUpperCaseLetters = GetUpperCaseLetters & Mid$(Text, X, 1)
End If
Next
End Function

Rick

Accidentally posted to Excel General Questions earlier.
Using VBA how would I have the username like Joseph T. Smith be JTS in a
cell? The name could be any length, and if there is not a middle initial
such
as Pete Loveless it would be PL.
Thanks for any and all advice and examples.