On 20 Dec, 00:29, carlo wrote:
Hi Guys,

just to add a comment to my code in regards to backstepping.
I first had a total different approach, which was total crap, that's
where the backward steps are coming from. Obviously it works as well
if you go the other way around, didn't realize that though until I saw
your post :)

Here's the forward version, although the other one should work fine:

'------------------------------------------------------
Function removeVowel(VowelWord As String) As String

Dim NoVowelWord As String

For L = 1 to Len(VowelWord)
If Mid(VowelWord, L, 1) = "a" Or _
Mid(VowelWord, L, 1) = "e" Or _
Mid(VowelWord, L, 1) = "i" Or _
Mid(VowelWord, L, 1) = "o" Or _
Mid(VowelWord, L, 1) = "u" Then
Else
NoVowelWord = NoVowelWord & Mid(VowelWord, L, 1)
End If
Next L

removeVowel = NoVowelWord

End Function
'------------------------------------------------------

cheers carlo

On Dec 20, 12:36 am, Dave Peterson wrote:

Just to add to Bob's formula.

=substitute() is case sensitive (and I bet autocorrect changed his i to I <bg).

Another alternative:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBST ITUTE(LOWER(A1),
"a",""),"e",""),"i",""),"o",""),"u","")

Bob Phillips wrote:

no VBA

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBST ITUTE(A1,"a",""),"e",""),-"I",""),"o",""),"u","")

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

wrote in message
...
How to remove vowels from words? Fpr example, in one row we have
google, excell, macro,... and the result in another row is ggl, xcll,
mcr,... Thanks.

--

Dave Peterson- Hide quoted text -

- Show quoted text -

This is fun, just seeing everyone's personal approach to this macro,.
Mine would be;


Public Function novowels(ByVal txt As String)

If txt = "" Then Exit Function

For l = 1 To Len(txt)
Select Case LCase(Mid(txt, l, 1))

Case "a", "e", "i", "o", "u"

Case Else
novowels = novowels & Mid(txt, l, 1)
End Select

Next l


End Function