Find and replace

[lasca]

I am trying to create a function that must look at a cell if the cell
contains EG. "/" it must replace it with an "_" and then return the value of
the cell, if it does not contain a "/", it must return the value as is.

The code that I used works fine but if it does not contain a "/" it returns
a error #value!

Here is code that i used pls help!


Function FReplace1(ReplaceField1) As String


If
Application.WorksheetFunction.IsNumber(Application.WorksheetFunction.Search("/", ReplaceField1)) = "true" Then
ReplaceField1 = Replace(ReplaceField1, "/", "_")
FReplace1 = ReplaceField1

Else

FFeplace1 = ReplaceField1
End If

End Function

Thanks

[Stefi]

> FFeplace1 = ReplaceField1
There is a typo in this line: Type FReplace1 instead of FFeplace1

Regards,
Stefi

[lasca]

HI, even with the typo corrrected - I am still getting the error.

Here is the corrected code, and I am still getting the error.

Function FReplace1(ReplaceField1) As String


If
Application.WorksheetFunction.IsNumber(Application.WorksheetFunction.Search("/", ReplaceField1)) = "true" Then
ReplaceField1 = Replace(ReplaceField1, "/", "_")
FReplace1 = ReplaceField1

Else

FReplace1 = ReplaceField1
End If

End Function

"Stefi" wrote:

> > FFeplace1 = ReplaceField1
> There is a typo in this line: Type FReplace1 instead of FFeplace1
>
> Regards,
> Stefi
>

[Stefi]

Function FReplace1(ReplaceField1) As String
FReplace1 = Replace(ReplaceField1, "/", "_")
End Function
But you get the same with this worksheet function:
=SUBSTITUTE(A1,"/","_")
Regards,
Stefi


„lasca” ezt �*rta:

> HI, even with the typo corrrected - I am still getting the error.
>
> Here is the corrected code, and I am still getting the error.
>
> Function FReplace1(ReplaceField1) As String
>
>
> If
> Application.WorksheetFunction.IsNumber(Application.WorksheetFunction.Search("/", ReplaceField1)) = "true" Then
> ReplaceField1 = Replace(ReplaceField1, "/", "_")
> FReplace1 = ReplaceField1
>
> Else
>
> FReplace1 = ReplaceField1
> End If
>
> End Function
>
> "Stefi" wrote:
>
> > > FFeplace1 = ReplaceField1
> > There is a typo in this line: Type FReplace1 instead of FFeplace1
> >
> > Regards,
> > Stefi
> >

[lasca]

Thank you!!!!!!!

I have been battling with this for days!!!



"Stefi" wrote:

> Function FReplace1(ReplaceField1) As String
> FReplace1 = Replace(ReplaceField1, "/", "_")
> End Function
> But you get the same with this worksheet function:
> =SUBSTITUTE(A1,"/","_")
> Regards,
> Stefi
>
>
> „lasca” ezt �*rta:
>
> > HI, even with the typo corrrected - I am still getting the error.
> >
> > Here is the corrected code, and I am still getting the error.
> >
> > Function FReplace1(ReplaceField1) As String
> >
> >
> > If
> > Application.WorksheetFunction.IsNumber(Application.WorksheetFunction.Search("/", ReplaceField1)) = "true" Then
> > ReplaceField1 = Replace(ReplaceField1, "/", "_")
> > FReplace1 = ReplaceField1
> >
> > Else
> >
> > FReplace1 = ReplaceField1
> > End If
> >
> > End Function
> >
> > "Stefi" wrote:
> >
> > > > FFeplace1 = ReplaceField1
> > > There is a typo in this line: Type FReplace1 instead of FFeplace1
> > >
> > > Regards,
> > > Stefi
> > >