Excel help (dates and draws)

I wanted to know if anyone in the forum has developed a system that can tell you dates of a combination of the number that was drawn. Below is an example off my state lottery web site for tonights drawn number.  If no one has a system, can someone point me in the right direction of getting started? I was trying to have this for a large group of numbers not just one or enter just one at a time.

Thanks for any help!

Can you be a little more specific as to what your looking for  ?

As I understand you want to enter a draw and have it find all instances boxed and straight and the dates they hit.

Is that correct  ??

Do you have excel ? Which version ?

Can you run macros  ?

What state are you playing ??

CG

Hi CarliG,

Yes you are correct and I have 2010, yes i can run macros and the state is currently SC.

thanks!

CarliG, you are working that excel with gusto. This is a multi-variable sheet that could become an animal fast. You're braver than me... Good Luck let me know, if you want to bounce some ideas around... Pogo  "Go For It!"

LOL  Yeah but sometimes I bite off more than I can chew  lol

I have a sheet that looks up draws via macro and gives me what came before and after . I was thinking maybe I could alter it ..

Not sure ..

Carlig

I have a macro that looks up numbers before and after a number on rows and columns.... I was thinking i can changed to do what I want but I don't know how to do it with out using up the percentage of thel cpu, on a big scale.

I couldn't think of the words "more than you can chew" - lol

That sounds great with the macro... I love modifying things.... Well, coming up them from scratch is nice too, but since i haven't done many macros... Yes, modify that thing!

Loving it & Staying tuned,

Pogo

Well heck, sounds like you may know more than me ..

Cause I dont know anything about making sure macro doesnt use up percentage of CPU ..

Like I said, sometimes I bite off more than I can chew ..

Ill back off and hope someone else can do it.

Carlig

No I don't know more than you.  I know when I run certain macros it shows in the window how much of the cpu its using.  And the macros i use are just altered ones of somebody elses that i tried to tweak to my purpose (most likely its wrong but it gets the job done). 

Thanks for your help anyways!

If you know how to modify, Ill be happy to give you what I have

Ill reading excel help forum now  lol

CG

I think the writer of this is turtle047 (not sure of if the name is correct)   this is what I'm trying to modify and I know there are much simpler loops than the ones I've written but i just couldn't get it to work!  i would be glad for what you can provide!

Sub Macro1()
 
Ln = 50

Range("A1:u46").Select 'selects range of cells

Selection.Interior.ColorIndex = 0 ' removes any color you might have had

c1 = Cells(48, 1)
c2 = Cells(48, 2)
c3 = Cells(48, 3)
c4 = Cells(48, 4)
c5 = Cells(48, 5)
c6 = Cells(48, 6)

'type = 1, for integers'

Cells(48, 1).Value = c1 ' these lines serve no purpose. you are puting the value you just picked up back into the same cell


For x = 1 To 47 ' ROW 1 THRU 47

For y = 1 To 21 ' COL BCDE

If c1 = Cells(x, y) Then Cells(x, y).Interior.ColorIndex = 3: GoSub capture_numbers


Next y

Next x

Exit Sub

capture_numbers: ' pick up the numbers suronding the target # x is the row y is the col

' what you were looking for was row -1 y-1 y y+1 same row y-1 y+1 row +1 y-1 y y+1 total of 8 numbers

' i would set up a couple of loops but to help ou understand the process i will code each location

If x = 1 Or y = 1 Then n1 = " " Else n1 = Cells(x - 1, y - 1)

If x = 1 Then n2 = " " Else n2 = Cells(x - 1, y)

If x = 1 Then n3 = " " Else n3 = Cells(x - 1, y + 1)

If y = 1 Then n4 = " " Else n4 = Cells(x, y - 1)

n5 = Cells(x, y + 1)

If y = 1 Then n6 = " " Else n6 = Cells(x + 1, y - 1)

n7 = Cells(x + 1, y)

n8 = Cells(x + 1, y + 1)

If n1 > 38 Then n1 = " " Else n1 = n1
If n1 = c1 Then n1 = " " Else n1 = n1
If n1 = c2 Then n1 = " " Else n1 = n1
If n1 = c3 Then n1 = " " Else n1 = n1
If n1 = c4 Then n1 = " " Else n1 = n1
If n1 = c5 Then n1 = " " Else n1 = n1
If n1 = c6 Then n1 = " " Else n1 = n1


If n2 > 38 Then n2 = " " Else n2 = n2
If n2 = c1 Then n2 = " " Else n2 = n2
If n2 = c2 Then n2 = " " Else n2 = n2
If n2 = c3 Then n2 = " " Else n2 = n2
If n2 = c4 Then n2 = " " Else n2 = n2
If n2 = c5 Then n2 = " " Else n2 = n2
If n2 = c6 Then n2 = " " Else n2 = n2

If n3 > 38 Then n3 = " " Else n3 = n3
If n3 = c1 Then n3 = " " Else n3 = n3
If n3 = c2 Then n3 = " " Else n3 = n3
If n3 = c3 Then n3 = " " Else n3 = n3
If n3 = c5 Then n3 = " " Else n3 = n3
If n3 = c4 Then n3 = " " Else n3 = n3
If n3 = c6 Then n3 = " " Else n3 = n3

If n4 > 38 Then n4 = " " Else n4 = n4
If n4 = c1 Then n4 = " " Else n4 = n4
If n4 = c2 Then n4 = " " Else n4 = n4
If n4 = c3 Then n4 = " " Else n4 = n4
If n4 = c4 Then n4 = " " Else n4 = n4
If n4 = c5 Then n4 = " " Else n4 = n4
If n4 = c6 Then n4 = " " Else n4 = n4

If n5 > 38 Then n5 = " " Else n5 = n5
If n5 = c1 Then n5 = " " Else n5 = n5
If n5 = c2 Then n5 = " " Else n5 = n5
If n5 = c3 Then n5 = " " Else n5 = n5
If n5 = c4 Then n5 = " " Else n5 = n5
If n5 = c5 Then n5 = " " Else n5 = n5
If n5 = c6 Then n5 = " " Else n5 = n5

If n6 > 38 Then n6 = " " Else n6 = n6
If n6 = c1 Then n6 = " " Else n6 = n6
If n6 = c2 Then n6 = " " Else n6 = n6
If n6 = c3 Then n6 = " " Else n6 = n6
If n6 = c4 Then n6 = " " Else n6 = n6
If n6 = c5 Then n6 = " " Else n6 = n6
If n6 = c6 Then n6 = " " Else n6 = n6

If n7 > 38 Then n7 = " " Else n7 = n7
If n7 = c1 Then n7 = " " Else n7 = n7
If n7 = c2 Then n7 = " " Else n7 = n7
If n7 = c3 Then n7 = " " Else n7 = n7
If n7 = c4 Then n7 = " " Else n7 = n7
If n7 = c5 Then n7 = " " Else n7 = n7
If n7 = c6 Then n7 = " " Else n7 = n7

If n8 > 38 Then n8 = " " Else n8 = n8
If n8 = c1 Then n8 = " " Else n8 = n8
If n8 = c2 Then n8 = " " Else n8 = n8
If n8 = c3 Then n8 = " " Else n8 = n8
If n8 = c4 Then n8 = " " Else n8 = n8
If n8 = c5 Then n8 = " " Else n8 = n8
If n8 = c6 Then n8 = " " Else n8 = n8


'display i 'll start at line 50 look back to the top of this routine ln=50

Cells(Ln, 1) = n1: Cells(Ln, 2) = n2: Cells(Ln, 3) = n3: Cells(Ln, 4) = n4

Cells(Ln, 5) = n5: Cells(Ln, 6) = n6: Cells(Ln, 7) = n7: Cells(Ln, 8) = n8


Ln = Ln + 1

Return
'
End Sub

The number 492 has been drawn 45 times in any order. The last time it was drawn was on Tuesday, December 20, 2011(EVE), that is, 10m 6d ago (or 578 draws ago)

Hi Mzdufflebaglady,

This would be great! I think i can tweak to work on a larger scale!

O.K.

I would be playing that number in your state, it's due.

Good Luck.

Mzduffle,

Could you tell me how to make a sheet like the one that you have pictured?