LOTTERY FILTER#4, Find if 1 Digit Sum of 2 Digit or 3 Digit, Single Cell w/ dash

Hi Dave,
try this code, I didn't work on the reason part yet :-/

Sub LotteryCheckSum()
Dim Cell As Range, NumRng As Range, Num1 As Integer, Num2 As Integer, Num3 As Integer, Num4 As Integer, Num5 As Integer
Set NumRng = Range("G12:" & Cells(Rows.Count, "G").End(xlUp).Address(0, 0))
For Each Cell In NumRng
    Num1 = Split(Cell.Value, "-")(0)
    Num2 = Split(Cell.Value, "-")(1)
    Num3 = Split(Cell.Value, "-")(2)
    Num4 = Split(Cell.Value, "-")(3)
    Num5 = Split(Cell.Value, "-")(4)
    If Num3 <> Num1 + Num2 Then
        If Num4 <> Num1 + Num2 Then
            If Num4 <> Num2 + Num3 Then
                If Num4 <> Num1 + Num3 Then
                    If Num5 <> Num3 + Num1 Then
                        If Num5 <> Num3 + Num2 Then
                            If Num5 <> Num3 + Num4 Then
                                If Num5 <> Num2 + Num1 Then
                                    If Num5 <> Num2 + Num4 Then
                                        If Num5 <> Num1 + Num4 Then
                                            If Num4 <> Num1 + Num2 + Num3 Then
                                                If Num5 <> Num1 + Num2 + Num3 Then
                                                    If Num5 <> Num2 + Num3 + Num4 Then
                                                        If Num5 <> Num1 + Num4 + Num3 Then
                                                            If Num5 <> Num1 + Num2 + Num4 Then
                                                                Cell.Offset(0, 21).Value = "0D, <-- Because, no 2 or 3 digit make a Sum of 1 Digit"
                                                            Else
                                                                Cell.Offset(0, 21).Value = "3D, <-- Because, Digit Sum " & Num1 & "+" & Num2 & "+" & Num4 & " is equal to Digit " & Num5
                                                            End If
                                                        Else
                                                            Cell.Offset(0, 21).Value = "3D, <-- Because, Digit Sum " & Num1 & "+" & Num3 & "+" & Num4 & " is equal to Digit " & Num5
                                                        End If
                                                    Else
                                                        Cell.Offset(0, 21).Value = "3D, <-- Because, Digit Sum " & Num2 & "+" & Num3 & "+" & Num4 & " is equal to Digit " & Num5
                                                    End If
                                                Else
                                                    Cell.Offset(0, 21).Value = "3D, <-- Because, Digit Sum " & Num1 & "+" & Num2 & "+" & Num3 & " is equal to Digit " & Num5
                                                End If
                                            Else
                                                Cell.Offset(0, 21).Value = "3D, <-- Because, Digit Sum " & Num1 & "+" & Num2 & "+" & Num3 & " is equal to Digit " & Num4
                                            End If
                                        Else
                                            Cell.Offset(0, 21).Value = "2D, <-- Because, Digit Sum " & Num1 & "+" & Num4 & " is equal to Digit " & Num5
                                        End If
                                    Else
                                        Cell.Offset(0, 21).Value = "2D, <-- Because, Digit Sum " & Num2 & "+" & Num4 & " is equal to Digit " & Num5
                                    End If
                                Else
                                    Cell.Offset(0, 21).Value = "2D, <-- Because, Digit Sum " & Num1 & "+" & Num2 & " is equal to Digit " & Num5
                                End If
                            Else
                                Cell.Offset(0, 21).Value = "2D, <-- Because, Digit Sum " & Num3 & "+" & Num4 & " is equal to Digit " & Num5
                            End If
                        Else
                            Cell.Offset(0, 21).Value = "2D, <-- Because, Digit Sum " & Num2 & "+" & Num3 & " is equal to Digit " & Num5
                        End If
                    Else
                        Cell.Offset(0, 21).Value = "2D, <-- Because, Digit Sum " & Num1 & "+" & Num3 & " is equal to Digit " & Num5
                    End If
                Else
                    Cell.Offset(0, 21).Value = "2D, <-- Because, Digit Sum " & Num1 & "+" & Num3 & " is equal to Digit " & Num4
                End If
            Else
                Cell.Offset(0, 21).Value = "2D, <-- Because, Digit Sum " & Num2 & "+" & Num3 & " is equal to Digit " & Num4
            End If
        Else
            Cell.Offset(0, 21).Value = "2D, <-- Because, Digit Sum " & Num1 & "+" & Num2 & " is equal to Digit " & Num4
        End If
    Else
        Cell.Offset(0, 21).Value = "2D, <-- Because, Digit Sum " & Num1 & "+" & Num2 & " is equal to Digit " & Num3
    End If
Next
End Sub

I'll try to find a solution to the reason thing soon.
NOTE:isn't the first cell of AB in your example supposed to be "2D"? cuz 35 = 33 + 02
ZAX

Hi David,
You noticed that this isn't a function, it's a macro, so you can run it by either (1) Press Alt+F8 and double click on the macro name or (2) Assign the macro to a button.
The macro will look into each cell from G12 down to last cell and put the answer in the adjacent cell in AB.
And BTW, no you didn't make me double work, I tried the macro and it showed a 2D result in AB12 you know, and even if I double worked that would be ok for me and I would gladly do that to help you, I'm ready to keep working on it until it's solved :-D
ZAX

Originally Posted by david gonzalez

Hi DarthVader68 ,

Yes i noticed after the post #3.. I apologized, time to time i'm lil dummy (smile)

Thank you so much, it work perfect !!!!!!!!!!!!

Best Regards

David

Very glad I helped you, you're very welcome... thank you for the feed back.
ZAX