Thanks De Premor,
Your code works on any sheet.
Regards
Rashid Khan

On Wednesday, August 21, 2013 3:22:48 AM UTC+4, De Premor wrote:
>
>  try to replace current code with this
>
> Function LookForCode(Str As String, Data As Range, Colx As Integer, 
> Optional Delim As String = "]")
>     Dim Kode, Tmp As String
>     For Each Kode In Split(Str, Delim)
>         If Kode <> "" Then Tmp = Tmp & " " & 
> WorksheetFunction.VLookup(Kode, Data, Colx, 0)
>     Next
>     LookForCode = Trim(Tmp)
> End Function
>
>  Pada 20/08/2013 22:56, prkhan56 menulis:
>  
>  Thanks Ravinder,
> Couple of things if you would kindly rectify it please.
>  
> 1) For some reason, the UDF does not work for codes which is not on the 
> active sheet.  I had posted my problem for sake of explanation on the same 
> sheet but in reality it is on other sheet.  
> 2) If you could please convert it to a macro so that I can *select the 
> codes* on any sheet in the  active workbook and run the macro then it 
> would *replace the codes with the answer on the same cell.*
>   
> Really appreciate your help as it would save me lot of time.
> Regards
> Rashid Khan
>  
>
> On Monday, August 19, 2013 11:49:04 AM UTC+4, Ravinder Negi wrote:
>
>>  
>>  PFA.....There are three argument in UDF first lookup value , 
>> lookarea(range),colnum
>>   ------------------------------
>>  *From:* Rashid Khan <prkh...@gmail.com>
>> *To:* excel-...@googlegroups.com 
>> *Sent:* Sunday, August 18, 2013 9:32 PM
>> *Subject:* $$Excel-Macros$$ Formula or UDF to do Vlookup for values 
>> delimited with ]
>>  
>>  Hello All,
>> I am attaching a sample of my problem.
>> I need to do Vlookup from a Range which has Codes in Col A and Text in 
>> Col B.
>>  
>> I want to have the output required (highlighted in Yellow) on Col D based 
>> on the Answers Col C.
>>  
>> My problem is that the Codes are delimited with ].
>> I do not want to separate the Answers using Text to Column.
>>  
>> I tried the following and got the desired result if there is only one 
>> code in the Answers Column.
>> =VLOOKUP(LEFT(C2,FIND("]",C2)-1),RangeCodes,2,0)
>>  
>> As you can see in the attached sheet if there are many Codes combined 
>> together then I cannot get the desired result.
>>  
>>   
>>  
>> Is there a formula or a UDF which can give me the desired result.
>>  
>> Please note that there are several Columns with the Codes combined.  I 
>> have just used a sample column to demonstrate my problem.
>>  
>> TIA
>>  
>> Rashid Khan
>>  -- 
>> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
>> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
>> https://www.facebook.com/discussexcel
>>  
>> FORUM RULES
>>  
>> 1) Use concise, accurate thread titles. Poor thread titles, like Please 
>> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice 
>> will not get quick attention or may not be answered.
>> 2) Don't post a question in the thread of another member.
>> 3) Don't post questions regarding breaking or bypassing any security 
>> measure.
>> 4) Acknowledge the responses you receive, good or bad.
>> 5) Jobs posting is not allowed.
>> 6) Sharing copyrighted material and their links is not allowed.
>>  
>> NOTE : Don't ever post confidential data in a workbook. Forum owners and 
>> members are not responsible for any loss.
>> --- 
>> You received this message because you are subscribed to the Google Groups 
>> "MS EXCEL AND VBA MACROS" group.
>> To unsubscribe from this group and stop receiving emails from it, send an 
>> email to excel-macros...@googlegroups.com.
>> To post to this group, send email to excel-...@googlegroups.com.
>> Visit this group at http://groups.google.com/group/excel-macros.
>> For more options, visit https://groups.google.com/groups/opt_out.
>>  
>>
>>     -- 
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
> https://www.facebook.com/discussexcel
>  
> FORUM RULES
>  
> 1) Use concise, accurate thread titles. Poor thread titles, like Please 
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice 
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security 
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>  
> NOTE : Don't ever post confidential data in a workbook. Forum owners and 
> members are not responsible for any loss.
> --- 
> You received this message because you are subscribed to the Google Groups 
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an 
> email to excel-macros...@googlegroups.com <javascript:>.
> To post to this group, send email to excel-...@googlegroups.com<javascript:>
> .
> Visit this group at http://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/groups/opt_out.
>
>
> 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Reply via email to