locate in their positions pairs and odd pairs
* the 3rd digit does not enter the study
* ex = 156 we have the odd double 159 odd) in the 1st and 2nd position
* another example = 458 we have 48 (pairs) in position 1 and 3
then the macro will locate the double, to and odd and see in the positions
* sometimes we have all the digits of the pick 3 odd or even leave out
* only locate in the 3 odd or even odd positions
* aim to see by column standards for the future game https://www.excelforum.com/attachmen...1&d=1534800426
Sub Demo1() Dim E, O, R&, C%, V, W E = [F3:J3].Value2 O = [M3:Q3].Value2 R = Cells(Rows.Count, 1).End(xlUp).Row Range("G5:I" & R & ",N5:P" & R).ClearContents For R = 5 To R V = Rows(R).Columns("A:C").Value2 W = Application.Match(V, E, 0) If Application.Count(W) = 2 Then C = 4 Else W = Application.Match(V, O, 0): If Application.Count(W) = 2 Then C = 11 If C Then Cells(R, C - IsNumeric(W(1)) - IsNumeric(W(2)) * 2 - IsNumeric(W(3)) * 3).Value2 = "x": C = 0 Next End Sub
Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !
Bookmarks