Re: $$Excel-Macros$$ Re: To Extract a text with Conditions

2011-12-29 Thread Excel_Lover
> dguille...@gmail.com >> >> *From:* Kris >> *Sent:* Thursday, December 29, 2011 8:06 AM >> *To:* excel-macros@googlegroups.com >> *Subject:* $$Excel-Macros$$ Re: To Extract a text with Conditions >> >> Hi, >> >> Try this UDF. >> &

Re: $$Excel-Macros$$ Re: To Extract a text with Conditions

2011-12-29 Thread Excel_Lover
ps.com > *Subject:* $$Excel-Macros$$ Re: To Extract a text with Conditions > > Hi, > > Try this UDF. > > Function FINALDEST(ByRef v) As String > > Dim x, i As Long > > If TypeOf v Is Range Then v = v.Value2 > > x = Split(v, "-")

Re: $$Excel-Macros$$ Re: To Extract a text with Conditions

2011-12-29 Thread dguillett1
That’s good. I went back and tested mine. NOT good. Don Guillett SalesAid Software dguille...@gmail.com From: Kris Sent: Thursday, December 29, 2011 8:06 AM To: excel-macros@googlegroups.com Subject: $$Excel-Macros$$ Re: To Extract a text with Conditions Hi, Try this UDF. Function

Re: $$Excel-Macros$$ Re: To Extract a text with Conditions

2011-12-29 Thread Excel_Lover
Works Great, Thank you very much. On Thu, Dec 29, 2011 at 5:06 PM, Kris wrote: > Hi, > > Try this UDF. > > Function FINALDEST(ByRef v) As String > > Dim x, i As Long > > If TypeOf v Is Range Then v = v.Value2 > > x = Split(v, "-") > > With CreateObject("scripting.dictionary") >

$$Excel-Macros$$ Re: To Extract a text with Conditions

2011-12-29 Thread Kris
Hi, Try this UDF. Function FINALDEST(ByRef v) As String Dim x, i As Long If TypeOf v Is Range Then v = v.Value2 x = Split(v, "-") With CreateObject("scripting.dictionary") .comparemode = 1 For i = 0 To UBound(x) If Len(x(i)) Then