Today Lottery Result

You can Check Daily Lottery Result Today, Mizoram, Sikkim Evening Derby Deluxe, Nagaland, Sambad, Bodoland, Thailand, WIN-WIN, Sthree Sakthi, Akshaya, Karunya Plus, BHAGYANIDHI, Karunya & POURNAMI

Found an old vba to Highlight lotto Repetitions

Found an old vba to Highlight lotto Repetitions

Don’t use this anymore however did assist within the pasted to win some cash in keno , 

This is ready to search for three  numbers however can also be modified to search for  6 7 or eight  numbers ,,, 

How to use 

 

Past the previous profitable lotto numbers in A1 to no matter , then turn on sheet  of  numbers and phone it Numbers  if you do not the vba wont paintings 

Good Luck!

 

The Excel VBA

—————————————————————————- 

Public Sub Highlight_Repetitions()
Const REPEATS = three

Dim Rw1 As Range, Rw2 As Range
Dim check_array As Variant, match_array As Variant

For Each Rw1 In [Numbers].Rows
If Rw1.Row >= [Numbers].Rows.Count 2 Then Exit For
check_array = Rw1.Value
For Each Rw2 In [Numbers].Rows
If Rw2.Row > Rw1.Row Then
match_array = Rw2.Value
repetitions = zero
repeat_string = vbNullString
For i = LBound(check_array, 2) To UBound(check_array, 2)
If i <= REPEATS + repetitions Then
For j = LBound(match_array, 2) To UBound(match_array, 2)
If check_array(1, i) = match_array(1, j) Then
repetitions = repetitions + 1
repeat_string = repeat_string & check_array(1, i) & ” , ”
End If
Next
Else
Exit For
End If
Next

If repetitions >= REPEATS Then
‘MsgBox “Rows ” & Rw1.Row & ” and ” & Rw2.Row & ” have repetitions”
Rw1.Cells(1, 1).Offset(, 26).Value = Left(repeat_string, Len(repeat_string) – three)
Rw2.Cells(1, 1).Offset(, 26).Value = Left(repeat_string, Len(repeat_string) – three)

If Rw1.Cells(1, 1).Offset(, 28).Value = vbNullString Then
Rw1.Cells(1, 1).Offset(, 28).Value = Rw2.Row
Else
Rw1.Cells(1, 1).Offset(, 28).Value = Rw1.Cells(1, 1).Offset(, 28).Value & ” , ” & Rw2.Row
End If

If Rw2.Cells(1, 1).Offset(, 28).Value = vbNullString Then
Rw2.Cells(1, 1).Offset(, 28).Value = Rw1.Row
Else
Rw2.Cells(1, 1).Offset(, 28).Value = Rw2.Cells(1, 1).Offset(, 28).Value & ” , ” & Rw1.Row
End If
End If

End If
Next
Next
End Sub

Updated: August 18, 2017 — 10:30 am

Leave a Reply

Your email address will not be published. Required fields are marked *

Today Lottery Result © 2016