The "Select Case" condition could be used to replace a "OR" condition. not really an "AND" condition. Kind-of. It's really more like replacing ElseIF.
For instance, you could use: both of these examples yield the same result: '-------------------------------------------------------------------- TestVal = "three" '-------------------------------------------------------------------- Select Case UCase(TestVal) Case "ONE" MsgBox "TestVal = ONE" Case "TWO" MsgBox "TestVal = TWO" Case "THREE" MsgBox "TestVal = THREE" Case "FOUR" MsgBox "TestVal = FOUR" Case Else MsgBox "TestVal is not a member of the expected list" End Select '-------------------------------------------------------------------- If (UCase(TestVal) = "ONE") Then MsgBox "TestVal = ONE" ElseIf (UCase(TestVal) = "TWO") Then MsgBox "TestVal = TWO" ElseIf (UCase(TestVal) = "THREE") Then MsgBox "TestVal = THREE" ElseIf (UCase(TestVal) = "FOUR") Then MsgBox "TestVal = FOUR" Else MsgBox "TestVal is not a member of the expected list" End If '-------------------------------------------------------------------- In your example, I think the problem is with the conditional "grouping" you need to use ( ) to group the things together, like; If (((Cells(2, j).Value = "sexta-feira") And (Cells(i, 1).Value = 512)) _ Or ((Cells(2, j).Value = "sexta-feira") And (Cells(i, 1).Value = 513)) _ Or ((Cells(2, j).Value = "sexta-feira") And (Cells(i, 1).Value = 516)) _ ) Then End If '-------------------------------------------------------------------- Since the first part of each -And- condition is the same, you could use: If ((Cells(2, j).Value = "sexta-feira") And _ ((Cells(i, 1).Value = 512) _ Or (Cells(i, 1).Value = 513) _ Or (Cells(i, 1).Value = 516) _ )) Then End If '-------------------------------------------------------------------- If you absolutely INSIST that you need to use a "case" statement, then I suppose you could use: If (Cells(2, j).Value = "sexta-feira") Then Select Case (Cells(i, 1).Value) Case 512 Cells(i, j + 1).Value = Cells(i, j + 1).Value + Cells(i, j).Value Case 513 Cells(i, j + 1).Value = Cells(i, j + 1).Value + Cells(i, j).Value Case 516 Cells(i, j + 1).Value = Cells(i, j + 1).Value + Cells(i, j).Value End Select End If '-------------------------------------------------------------------- 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: NOORAIN ANSARI <noorain.ans...@gmail.com> To: excel-macros@googlegroups.com Sent: Fri, July 27, 2012 7:29:07 AM Subject: Re: $$Excel-Macros$$ Turning a if macro to a select case macro Dear Jorge, Please share sample workbook. On Wed, Jul 25, 2012 at 3:36 PM, Jorge Marques <leote.w...@gmail.com> wrote: Hi guys, can anybody help me turning this If macro to an case macro. > > >Sub friday() > > >For i = 1 To 200 >For j = 1 To 200 > > >If Cells(2, j).Value = "sexta-feira" And Cells(i, 1).Value = 512 Or Cells(2, >j).Value = "sexta-feira" And Cells(i, 1).Value = 513 Or Cells(2, j).Value = >"sexta-feira" And Cells(i, 1).Value = 516 Then >Cells(i, j + 1).Value = Cells(i, j + 1).Value + Cells(i, j).Value >End If >Next >Next >End Sub > > >Thank you in advance :).-- >-- >FORUM RULES (986+ members already BANNED for violation) > >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) Cross-promotion of, or links to, forums competitive to this forum in >signatures are prohibited. > > >NOTE : Don't ever post personal or confidential data in a workbook. Forum >owners >and members are not responsible for any loss. > >------------------------------------------------------------------------------------------------------ > >To post to this group, send email to excel-macros@googlegroups.com > >To unsubscribe, send a blank email to excel-macros+unsubscr...@googlegroups.com > > > -- With Regards, Noorain Ansari http://noorainansari.com http://excelvbaclinic.blogspot.com http://accesssqclinic.blogspot.in/ -- -- FORUM RULES (986+ members already BANNED for violation) 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) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------------------------------------------------------------------------------------------------------ To post to this group, send email to excel-macros@googlegroups.com To unsubscribe, send a blank email to excel-macros+unsubscr...@googlegroups.com -- -- FORUM RULES (986+ members already BANNED for violation) 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) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------------------------------------------------------------------------------------------------------ To post to this group, send email to excel-macros@googlegroups.com To unsubscribe, send a blank email to excel-macros+unsubscr...@googlegroups.com
