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 <javascript:>>
*To:* excel-...@googlegroups.com <javascript:>
*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
<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
<http://groups.google.com/group/excel-macros>.
For more options, visit https://groups.google.com/groups/opt_out
<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.
--
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.
