$$Excel-Macros$$ Macro Single code require for if condtion
Dear All, Good Afternoon, I have made below code ... I have one doubt in below code. for example Hisar. I have mentioned that if cell contain below HSR-CRD(HR) HSR-HRD(HR) HSR-JMS(HR) HSR-VDJS(HR) HSR-JINDAL HOUSE Then output must be Hisar but I have done it with different if condition .. is there any other why where i can use one line if condition for hisar. Do Until Selection.Value = If Selection.Offset(0, 2).Value = GURGAON(DELHI-NCR) Then Selection.Offset(0, 12).Value = Gurgoan-Rohad-Pathredi ElseIf Selection.Offset(0, 2).Value = MANESAR(HR) Then Selection.Offset(0, 12).Value = Gurgoan-Rohad-Pathredi ElseIf Selection.Offset(0, 2).Value = ROHAD(HR) Then Selection.Offset(0, 12).Value = Gurgoan-Rohad-Pathredi *ElseIf Selection.Offset(0, 2).Value = HSR-CRD(HR) Then* *Selection.Offset(0, 12).Value = Hisar* *ElseIf Selection.Offset(0, 2).Value = HSR-GET HOSTEL Then* *Selection.Offset(0, 12).Value = Hisar* *ElseIf Selection.Offset(0, 2).Value = HSR-HRD(HR) Then* *Selection.Offset(0, 12).Value = Hisar* *ElseIf Selection.Offset(0, 2).Value = HSR-JINDAL CLUB(HR) Then* *Selection.Offset(0, 12).Value = Hisar* *ElseIf Selection.Offset(0, 2).Value = HSR-JINDAL HOUSE Then* *Selection.Offset(0, 12).Value = Hisar* *ElseIf Selection.Offset(0, 2).Value = HSR-JMS(HR) Then* *Selection.Offset(0, 12).Value = Hisar* End If Selection.Offset(1, 0).Select Loop Please help me in this regards. Regards, Prafull Jadhav 9920553518 -- 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.
Re: $$Excel-Macros$$ Macro Single code require for if condtion
You could replace your If/ElseIf/Endif statement with a Select Case Statement: Select Case Selection.Offset(0, 2).Value Case GURGAON(DELHI-NCR), MANESAR(HR), ROHAD(HR) Selection.Offset(0, 12).Value = Gurgoan-Rohad-Pathredi Case HSR-CRD(HR), HSR-GET HOSTEL, HSR-HRD(HR), HSR-JINDAL CLUB(HR), HSR-JINDAL HOUSE, HSR-JMS(HR) Selection.Offset(0, 12).Value = Hisar Case Else Selection.Offset(0, 12).Value = End Select watch line-wraps, or this might be easier to read: Select Case Selection.Offset(0, 2).Value Case GURGAON(DELHI-NCR), _ MANESAR(HR), _ ROHAD(HR) Selection.Offset(0, 12).Value = Gurgoan-Rohad-Pathredi Case HSR-CRD(HR), _ HSR-GET HOSTEL, _ HSR-HRD(HR), _ HSR-JINDAL CLUB(HR), _ HSR-JINDAL HOUSE, _ HSR-JMS(HR) Selection.Offset(0, 12).Value = Hisar Case Else Selection.Offset(0, 12).Value = End Select Paul - “Do all the good you can, By all the means you can, In all the ways you can, In all the places you can, At all the times you can, To all the people you can, As long as ever you can.” - John Wesley - From: Prafull Jadhav prafulltjad...@gmail.com To: excelvbacli...@googlegroups.com; excel-macros@googlegroups.com excel-macros@googlegroups.com Sent: Tuesday, March 4, 2014 4:44 AM Subject: $$Excel-Macros$$ Macro Single code require for if condtion Dear All, Good Afternoon, I have made below code ... I have one doubt in below code. for example Hisar. I have mentioned that if cell contain below HSR-CRD(HR) HSR-HRD(HR) HSR-JMS(HR) HSR-VDJS(HR) HSR-JINDAL HOUSE Then output must be Hisar but I have done it with different if condition .. is there any other why where i can use one line if condition for hisar. Do Until Selection.Value = If Selection.Offset(0, 2).Value = GURGAON(DELHI-NCR) Then Selection.Offset(0, 12).Value = Gurgoan-Rohad-Pathredi ElseIf Selection.Offset(0, 2).Value = MANESAR(HR) Then Selection.Offset(0, 12).Value = Gurgoan-Rohad-Pathredi ElseIf Selection.Offset(0, 2).Value = ROHAD(HR) Then Selection.Offset(0, 12).Value = Gurgoan-Rohad-Pathredi ElseIf Selection.Offset(0, 2).Value = HSR-CRD(HR) Then Selection.Offset(0, 12).Value = Hisar ElseIf Selection.Offset(0, 2).Value = HSR-GET HOSTEL Then Selection.Offset(0, 12).Value = Hisar ElseIf Selection.Offset(0, 2).Value = HSR-HRD(HR) Then Selection.Offset(0, 12).Value = Hisar ElseIf Selection.Offset(0, 2).Value = HSR-JINDAL CLUB(HR) Then Selection.Offset(0, 12).Value = Hisar ElseIf Selection.Offset(0, 2).Value = HSR-JINDAL HOUSE Then Selection.Offset(0, 12).Value = Hisar ElseIf Selection.Offset(0, 2).Value = HSR-JMS(HR) Then Selection.Offset(0, 12).Value = Hisar End If Selection.Offset(1, 0).Select Loop Please help me in this regards. Regards, Prafull Jadhav 9920553518 -- 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
Re: $$Excel-Macros$$ Macro Single code require for if condtion
Thanks a lot Sir.. Perfect! Regards, Prafull Jadhav 9920553518 On 4 March 2014 17:21, Paul Schreiner schreiner_p...@att.net wrote: You could replace your If/ElseIf/Endif statement with a Select Case Statement: Select Case Selection.Offset(0, 2).Value Case GURGAON(DELHI-NCR), MANESAR(HR), ROHAD(HR) Selection.Offset(0, 12).Value = Gurgoan-Rohad-Pathredi Case HSR-CRD(HR), HSR-GET HOSTEL, HSR-HRD(HR), HSR-JINDAL CLUB(HR), HSR-JINDAL HOUSE, HSR-JMS(HR) Selection.Offset(0, 12).Value = Hisar Case Else Selection.Offset(0, 12).Value = End Select watch line-wraps, or this might be easier to read: Select Case Selection.Offset(0, 2).Value Case GURGAON(DELHI-NCR), _ MANESAR(HR), _ ROHAD(HR) Selection.Offset(0, 12).Value = Gurgoan-Rohad-Pathredi Case HSR-CRD(HR), _ HSR-GET HOSTEL, _ HSR-HRD(HR), _ HSR-JINDAL CLUB(HR), _ HSR-JINDAL HOUSE, _ HSR-JMS(HR) Selection.Offset(0, 12).Value = Hisar Case Else Selection.Offset(0, 12).Value = End Select *Paul* - *Do all the good you can,By all the means you can,In all the ways you can,In all the places you can,At all the times you can,To all the people you can,As long as ever you can. - John Wesley* - *From:* Prafull Jadhav prafulltjad...@gmail.com *To:* excelvbacli...@googlegroups.com; excel-macros@googlegroups.com excel-macros@googlegroups.com *Sent:* Tuesday, March 4, 2014 4:44 AM *Subject:* $$Excel-Macros$$ Macro Single code require for if condtion Dear All, Good Afternoon, I have made below code ... I have one doubt in below code. for example Hisar. I have mentioned that if cell contain below HSR-CRD(HR) HSR-HRD(HR) HSR-JMS(HR) HSR-VDJS(HR) HSR-JINDAL HOUSE Then output must be Hisar but I have done it with different if condition .. is there any other why where i can use one line if condition for hisar. Do Until Selection.Value = If Selection.Offset(0, 2).Value = GURGAON(DELHI-NCR) Then Selection.Offset(0, 12).Value = Gurgoan-Rohad-Pathredi ElseIf Selection.Offset(0, 2).Value = MANESAR(HR) Then Selection.Offset(0, 12).Value = Gurgoan-Rohad-Pathredi ElseIf Selection.Offset(0, 2).Value = ROHAD(HR) Then Selection.Offset(0, 12).Value = Gurgoan-Rohad-Pathredi *ElseIf Selection.Offset(0, 2).Value = HSR-CRD(HR) Then* *Selection.Offset(0, 12).Value = Hisar* *ElseIf Selection.Offset(0, 2).Value = HSR-GET HOSTEL Then* *Selection.Offset(0, 12).Value = Hisar* *ElseIf Selection.Offset(0, 2).Value = HSR-HRD(HR) Then* *Selection.Offset(0, 12).Value = Hisar* *ElseIf Selection.Offset(0, 2).Value = HSR-JINDAL CLUB(HR) Then* *Selection.Offset(0, 12).Value = Hisar* *ElseIf Selection.Offset(0, 2).Value = HSR-JINDAL HOUSE Then* *Selection.Offset(0, 12).Value = Hisar* *ElseIf Selection.Offset(0, 2).Value = HSR-JMS(HR) Then* *Selection.Offset(0, 12).Value = Hisar* End If Selection.Offset(1, 0).Select Loop Please help me in this regards. Regards, Prafull Jadhav 9920553518 -- 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
