replace contents of cells with number value rather than letter help - Excel 2010

[steve400243]

Hello, Is there a quick way to replace multiple cells in a column, say column A. that have the letter "x" and replace it with the number 1? Cant get this to work, please help.

 

[steve400243]

Hello, Is there a quick way to replace multiple cells in a column, say column A. that have the letter "x" and replace it with the number 1? Cant get this to work, please help.

Never mind I figured out a way to do it.

 

[Rhodie72]

Hello, Is there a quick way to replace multiple cells in a column, say column A. that have the letter "x" and replace it with the number 1? Cant get this to work, please help.

This function should do it and you can use it as a formula or bolt-on code to a recursive sub routine.

Function RemoveVowels(Txt) As String
' Removes all vowels from the Txt argument
    Dim I As Long
    RemoveVowels = ""
    For I = 1 To Len(Txt)
        If Not UCase(Mid(Txt, I, 1)) Like "[x]" Then
            RemoveVowels = RemoveVowels & "1" & Mid(Txt, I, 1)
        End If
    Next I
End Function

Sub ZapTheVowels()
    Dim UserInput As String
    
    UserInput = InputBox("Enter some text:")
    MsgBox RemoveVowels(UserInput), , UserInput
End Sub

 

[dUBBINS]

Simplest method: Click the HOME tab. Click the FIND & SELECT option. Click REPLACE. Put "X" in the FIND WHAT box. Put "1" in the REPLACE WITH box. Click REPLACE ALL.

 

[steve400243]

This function should do it and you can use it as a formula or bolt-on code to a recursive sub routine.

Function RemoveVowels(Txt) As String
' Removes all vowels from the Txt argument
    Dim I As Long
    RemoveVowels = ""
    For I = 1 To Len(Txt)
        If Not UCase(Mid(Txt, I, 1)) Like "[x]" Then
            RemoveVowels = RemoveVowels & "1" & Mid(Txt, I, 1)
        End If
    Next I
End Function

Sub ZapTheVowels()
    Dim UserInput As String
    
    UserInput = InputBox("Enter some text:")
    MsgBox RemoveVowels(UserInput), , UserInput
End Sub

Thanks, I'll check it out tomorrow. I appreciate it.

 

[steve400243]

Simplest method: Click the HOME tab. Click the FIND & SELECT option. Click REPLACE. Put "X" in the FIND WHAT box. Put "1" in the REPLACE WITH box. Click REPLACE ALL.

new it had a simple answer. Thanks for the reply. I appreciate it.