VBA - Logic Problem

[Legacy 143009]

Hi,

I am stuck while making an If statement. I have two playing cards. Let's say card1 and card2. Suits have no significance.
If I add between 1 and 6 to the card2's value and can still reach card1's value, then card1 will go to slot1 and card2 will go to slot2.
If vice-versa card1 will go to slot2 and card1 will go to slot1.
I wrote some code but works buggy.

Some examples:
9 and 6 → 6 will be in slot2 because If I add 3 to 6, I can reach to 9.
3 and 12 → 12 will be in slot2 because if I add 4 to12, I can reach to 3. (yes there is a modulus 13 thing because they are playing cards)
4 and 10 → 4 will be in slot2 because if I add 6 to4, I can reach to 10.

        If ((card2+ 5) Mod 13) + 1 >= card1 Or card1 <= card2 Then
          slot1 = card1
          slot2 = card2
        Else
          slot1 = card2
          slot2 = card1
        End If

 

[Snakehips]

@Flashbond I know you are wanting vba but initially, can you confirm whether results from the below are non-buggy ?

MayMrXL.xlsm
	A	B	C	D	E	F	G	H	I	J
1					1	2	3	4	5	6
2	Card1	4
3	Card2	10			11	12	0	1	2	3
4	Slot1	Card2
5	Slot2	Card1
6
Sheet12

Cell Formulas
Range	Formula
E3:J3	E3	=MOD($B3+E1,13)
B4	B4	=IF(COUNTIF(E3:J3,B2)=1,A2,A3)
B5	B5	=IF(COUNTIF(E3:J3,B2)=1,A3,A2)

 

[Legacy 143009]

Yes this scennario seems to be working ok.

 

[Legacy 143009]

To clearify one point:
There is number 13 and no 0. After 13 it revolves to 1.

 

[Snakehips]

So the above is aok for 1, 13 and 13,1 scenario?

 

[Snakehips]

If yes then I am thinking your code will be along these lines.

slot1 = card2
slot2 = card1
For n = 1 To 6
    If Evaluate("=MOD(" & card2 + n & ",13)") = card1 Then
        slot1 = card1
        slot2 = card2
        Exit For
End If
Next n

 

[Legacy 143009]

Yes,

I modified this formula according to my need and it still works:

=MOD($B3+E1-1,13)+1

 

[Snakehips]

Then make this edit to the above code?

If Evaluate("=MOD(" & card2 + n - 1 & ",13)") + 1 = card1 Then

Hope that helps.

 

[Legacy 143009]

Thanks for your work!

I will mark your post as answer yet it is the only solution I have got.
But I am not happy with the iteration