Welcome Guest
You last visited January 20, 2017, 4:53 am
All times shown are
Eastern Time (GMT-5:00)

# Excel help

Topic closed. 7 replies. Last post 5 years ago by Deepop.

 Page 1 of 1
Blakeslee,Pennsylvania
United States
Member #81742
October 28, 2009
474 Posts
Offline
 Posted: August 17, 2011, 7:03 pm - IP Logged

Can someone tell how to formulate a spreadsheet for TTT

that would animate all possibale combonations.

example:

INPUT

345

278

490

OUTPUT

All possable combos.

324,479,234  ect.

Thanks.

\$\$\$ YOU GOTTA BE IN IT TO WIN IT \$\$\$

United States
Member #41846
June 23, 2006
460 Posts
Offline
 Posted: August 19, 2011, 5:08 am - IP Logged

Deepop

do you use macros?  where are the numbers you want comb for. ex a1:c3  any preference for where the output goes?

Blakeslee,Pennsylvania
United States
Member #81742
October 28, 2009
474 Posts
Offline
 Posted: August 19, 2011, 11:19 am - IP Logged

Deepop

do you use macros?  where are the numbers you want comb for. ex a1:c3  any preference for where the output goes?

Hi.

Yes i do use macros, no preference for the output A1:C3 would be ideal.

I have a text to number calculator that i use for lottery

and it gives me numbers in this TTT format:

123

456

789

I was trying to find a way to animate all possible combos

by entering the three combos as above to save time doing it manualy.

Thanks in advance for any help.

\$\$\$ YOU GOTTA BE IN IT TO WIN IT \$\$\$

United States
Member #41846
June 23, 2006
460 Posts
Offline
 Posted: August 19, 2011, 7:52 pm - IP Logged

copy this sub to a new spreadsheet to check it out.  put your 3 comb in a1:c3 the start the macro. results in f,g,h

p8

Sub p3_wheel()

Dim tn(9), wn(90)
wn(1) = 1: wn(2) = 2: wn(3) = 3: wn(4) = 1: wn(5) = 5: wn(6) = 3: wn(7) = 2: wn(8) = 5: wn(9) = 3
wn(10) = 1: wn(11) = 2: wn(12) = 4: wn(13) = 1: wn(14) = 5: wn(15) = 4: wn(16) = 3: wn(17) = 2: wn(18) = 4
wn(19) = 3: wn(20) = 5: wn(21) = 4: wn(22) = 1: wn(23) = 2: wn(24) = 5: wn(25) = 2: wn(26) = 4: wn(27) = 5
wn(28) = 1: wn(29) = 2: wn(30) = 6: wn(31) = 1: wn(32) = 5: wn(33) = 6: wn(34) = 2: wn(35) = 3: wn(36) = 6
wn(37) = 2: wn(38) = 5: wn(39) = 6: wn(40) = 3: wn(41) = 5: wn(42) = 6: wn(43) = 1: wn(44) = 4: wn(45) = 7
wn(46) = 1: wn(47) = 5: wn(48) = 7: wn(49) = 2: wn(50) = 4: wn(51) = 7: wn(52) = 2: wn(53) = 5: wn(54) = 7
wn(55) = 3: wn(56) = 5: wn(57) = 7: wn(58) = 1: wn(59) = 4: wn(60) = 8: wn(61) = 1: wn(62) = 5: wn(63) = 8
wn(64) = 2: wn(65) = 4: wn(66) = 8: wn(67) = 2: wn(68) = 5: wn(69) = 8: wn(70) = 3: wn(71) = 5: wn(72) = 8
wn(73) = 1: wn(74) = 5: wn(75) = 9: wn(76) = 2: wn(77) = 5: wn(78) = 9: wn(79) = 3: wn(80) = 5: wn(81) = 9
wn(82) = 3: wn(83) = 6: wn(84) = 9
t = 1
For x = 1 To 3: For y = 1 To 3: a = Cells(x, y): tn(t) = a: t = t + 1: Next y: Next x
t = 1
For x = 1 To 28: For y = 1 To 3: b = wn(t): Cells(x, y + 5) = tn(b): t = t + 1: Next y: Next x

End Sub

Blakeslee,Pennsylvania
United States
Member #81742
October 28, 2009
474 Posts
Offline
 Posted: August 20, 2011, 8:16 am - IP Logged

copy this sub to a new spreadsheet to check it out.  put your 3 comb in a1:c3 the start the macro. results in f,g,h

p8

Sub p3_wheel()

Dim tn(9), wn(90)
wn(1) = 1: wn(2) = 2: wn(3) = 3: wn(4) = 1: wn(5) = 5: wn(6) = 3: wn(7) = 2: wn(8) = 5: wn(9) = 3
wn(10) = 1: wn(11) = 2: wn(12) = 4: wn(13) = 1: wn(14) = 5: wn(15) = 4: wn(16) = 3: wn(17) = 2: wn(18) = 4
wn(19) = 3: wn(20) = 5: wn(21) = 4: wn(22) = 1: wn(23) = 2: wn(24) = 5: wn(25) = 2: wn(26) = 4: wn(27) = 5
wn(28) = 1: wn(29) = 2: wn(30) = 6: wn(31) = 1: wn(32) = 5: wn(33) = 6: wn(34) = 2: wn(35) = 3: wn(36) = 6
wn(37) = 2: wn(38) = 5: wn(39) = 6: wn(40) = 3: wn(41) = 5: wn(42) = 6: wn(43) = 1: wn(44) = 4: wn(45) = 7
wn(46) = 1: wn(47) = 5: wn(48) = 7: wn(49) = 2: wn(50) = 4: wn(51) = 7: wn(52) = 2: wn(53) = 5: wn(54) = 7
wn(55) = 3: wn(56) = 5: wn(57) = 7: wn(58) = 1: wn(59) = 4: wn(60) = 8: wn(61) = 1: wn(62) = 5: wn(63) = 8
wn(64) = 2: wn(65) = 4: wn(66) = 8: wn(67) = 2: wn(68) = 5: wn(69) = 8: wn(70) = 3: wn(71) = 5: wn(72) = 8
wn(73) = 1: wn(74) = 5: wn(75) = 9: wn(76) = 2: wn(77) = 5: wn(78) = 9: wn(79) = 3: wn(80) = 5: wn(81) = 9
wn(82) = 3: wn(83) = 6: wn(84) = 9
t = 1
For x = 1 To 3: For y = 1 To 3: a = Cells(x, y): tn(t) = a: t = t + 1: Next y: Next x
t = 1
For x = 1 To 28: For y = 1 To 3: b = wn(t): Cells(x, y + 5) = tn(b): t = t + 1: Next y: Next x

End Sub

Thank You Very much for your help.

\$\$\$ YOU GOTTA BE IN IT TO WIN IT \$\$\$

Blakeslee,Pennsylvania
United States
Member #81742
October 28, 2009
474 Posts
Offline
 Posted: August 20, 2011, 1:04 pm - IP Logged

copy this sub to a new spreadsheet to check it out.  put your 3 comb in a1:c3 the start the macro. results in f,g,h

p8

Sub p3_wheel()

Dim tn(9), wn(90)
wn(1) = 1: wn(2) = 2: wn(3) = 3: wn(4) = 1: wn(5) = 5: wn(6) = 3: wn(7) = 2: wn(8) = 5: wn(9) = 3
wn(10) = 1: wn(11) = 2: wn(12) = 4: wn(13) = 1: wn(14) = 5: wn(15) = 4: wn(16) = 3: wn(17) = 2: wn(18) = 4
wn(19) = 3: wn(20) = 5: wn(21) = 4: wn(22) = 1: wn(23) = 2: wn(24) = 5: wn(25) = 2: wn(26) = 4: wn(27) = 5
wn(28) = 1: wn(29) = 2: wn(30) = 6: wn(31) = 1: wn(32) = 5: wn(33) = 6: wn(34) = 2: wn(35) = 3: wn(36) = 6
wn(37) = 2: wn(38) = 5: wn(39) = 6: wn(40) = 3: wn(41) = 5: wn(42) = 6: wn(43) = 1: wn(44) = 4: wn(45) = 7
wn(46) = 1: wn(47) = 5: wn(48) = 7: wn(49) = 2: wn(50) = 4: wn(51) = 7: wn(52) = 2: wn(53) = 5: wn(54) = 7
wn(55) = 3: wn(56) = 5: wn(57) = 7: wn(58) = 1: wn(59) = 4: wn(60) = 8: wn(61) = 1: wn(62) = 5: wn(63) = 8
wn(64) = 2: wn(65) = 4: wn(66) = 8: wn(67) = 2: wn(68) = 5: wn(69) = 8: wn(70) = 3: wn(71) = 5: wn(72) = 8
wn(73) = 1: wn(74) = 5: wn(75) = 9: wn(76) = 2: wn(77) = 5: wn(78) = 9: wn(79) = 3: wn(80) = 5: wn(81) = 9
wn(82) = 3: wn(83) = 6: wn(84) = 9
t = 1
For x = 1 To 3: For y = 1 To 3: a = Cells(x, y): tn(t) = a: t = t + 1: Next y: Next x
t = 1
For x = 1 To 28: For y = 1 To 3: b = wn(t): Cells(x, y + 5) = tn(b): t = t + 1: Next y: Next x

End Sub

Thanks Again.

Works like a charm except the combo for B3,C3,and C2 is not being automated.

Example:

167

281

123

\$\$\$ YOU GOTTA BE IN IT TO WIN IT \$\$\$

United States
Member #41846
June 23, 2006
460 Posts
Offline
 Posted: August 20, 2011, 9:38 pm - IP Logged

I used a program that i use to copy the code.  forgot that it did not do all the possible comb.  more than 1 missing.  corrected code below.

Sub p3_wheel()

Dim tn(9), wn(150)
wn(1) = 1: wn(2) = 2: wn(3) = 3: wn(4) = 1: wn(5) = 2: wn(6) = 4: wn(7) = 1: wn(8) = 2: wn(9) = 5
wn(10) = 1: wn(11) = 2: wn(12) = 6: wn(13) = 1: wn(14) = 2: wn(15) = 7: wn(16) = 1: wn(17) = 2: wn(18) = 8
wn(19) = 1: wn(20) = 2: wn(21) = 9: wn(22) = 1: wn(23) = 3: wn(24) = 4: wn(25) = 1: wn(26) = 3: wn(27) = 5
wn(28) = 1: wn(29) = 3: wn(30) = 6: wn(31) = 1: wn(32) = 3: wn(33) = 7: wn(34) = 1: wn(35) = 3: wn(36) = 8
wn(37) = 1: wn(38) = 3: wn(39) = 9: wn(40) = 1: wn(41) = 4: wn(42) = 5: wn(43) = 1: wn(44) = 4: wn(45) = 6
wn(46) = 1: wn(47) = 4: wn(48) = 7: wn(49) = 1: wn(50) = 4: wn(51) = 8: wn(52) = 1: wn(53) = 4: wn(54) = 9
wn(55) = 1: wn(56) = 5: wn(57) = 6: wn(58) = 1: wn(59) = 5: wn(60) = 7: wn(61) = 1: wn(62) = 5: wn(63) = 8
wn(64) = 1: wn(65) = 5: wn(66) = 9: wn(67) = 1: wn(68) = 6: wn(69) = 7: wn(70) = 1: wn(71) = 6: wn(72) = 8
wn(73) = 1: wn(74) = 6: wn(75) = 9: wn(76) = 2: wn(77) = 3: wn(78) = 4: wn(79) = 2: wn(80) = 3: wn(81) = 5
wn(82) = 2: wn(83) = 3: wn(84) = 6: wn(85) = 2: wn(86) = 3: wn(87) = 4: wn(88) = 2: wn(89) = 3: wn(90) = 5
wn(91) = 2: wn(92) = 3: wn(93) = 6: wn(94) = 2: wn(95) = 3: wn(96) = 7: wn(97) = 2: wn(98) = 3: wn(99) = 8
wn(100) = 2: wn(101) = 3: wn(102) = 9: wn(103) = 3: wn(104) = 4: wn(105) = 5
wn(106) = 3: wn(107) = 4: wn(108) = 5: wn(109) = 3: wn(110) = 4: wn(111) = 6
wn(112) = 3: wn(113) = 4: wn(114) = 7: wn(115) = 3: wn(116) = 4: wn(117) = 8
wn(118) = 3: wn(119) = 4: wn(120) = 9: wn(121) = 5: wn(122) = 6: wn(123) = 7
wn(124) = 5: wn(125) = 6: wn(126) = 8: wn(127) = 5: wn(128) = 6: wn(129) = 9
wn(130) = 6: wn(131) = 7: wn(132) = 8: wn(133) = 6: wn(134) = 7: wn(135) = 9
wn(136) = 7: wn(137) = 8: wn(138) = 9

t = 1
For x = 1 To 3: For y = 1 To 3: a = Cells(x, y): tn(t) = a: t = t + 1: Next y: Next x
t = 1
For x = 1 To 46: For y = 1 To 3: b = wn(t): Cells(x, y + 5) = tn(b): t = t + 1: Next y: Next x

End Sub

Blakeslee,Pennsylvania
United States
Member #81742
October 28, 2009
474 Posts
Offline
 Posted: August 21, 2011, 8:41 am - IP Logged

I used a program that i use to copy the code.  forgot that it did not do all the possible comb.  more than 1 missing.  corrected code below.

Sub p3_wheel()

Dim tn(9), wn(150)
wn(1) = 1: wn(2) = 2: wn(3) = 3: wn(4) = 1: wn(5) = 2: wn(6) = 4: wn(7) = 1: wn(8) = 2: wn(9) = 5
wn(10) = 1: wn(11) = 2: wn(12) = 6: wn(13) = 1: wn(14) = 2: wn(15) = 7: wn(16) = 1: wn(17) = 2: wn(18) = 8
wn(19) = 1: wn(20) = 2: wn(21) = 9: wn(22) = 1: wn(23) = 3: wn(24) = 4: wn(25) = 1: wn(26) = 3: wn(27) = 5
wn(28) = 1: wn(29) = 3: wn(30) = 6: wn(31) = 1: wn(32) = 3: wn(33) = 7: wn(34) = 1: wn(35) = 3: wn(36) = 8
wn(37) = 1: wn(38) = 3: wn(39) = 9: wn(40) = 1: wn(41) = 4: wn(42) = 5: wn(43) = 1: wn(44) = 4: wn(45) = 6
wn(46) = 1: wn(47) = 4: wn(48) = 7: wn(49) = 1: wn(50) = 4: wn(51) = 8: wn(52) = 1: wn(53) = 4: wn(54) = 9
wn(55) = 1: wn(56) = 5: wn(57) = 6: wn(58) = 1: wn(59) = 5: wn(60) = 7: wn(61) = 1: wn(62) = 5: wn(63) = 8
wn(64) = 1: wn(65) = 5: wn(66) = 9: wn(67) = 1: wn(68) = 6: wn(69) = 7: wn(70) = 1: wn(71) = 6: wn(72) = 8
wn(73) = 1: wn(74) = 6: wn(75) = 9: wn(76) = 2: wn(77) = 3: wn(78) = 4: wn(79) = 2: wn(80) = 3: wn(81) = 5
wn(82) = 2: wn(83) = 3: wn(84) = 6: wn(85) = 2: wn(86) = 3: wn(87) = 4: wn(88) = 2: wn(89) = 3: wn(90) = 5
wn(91) = 2: wn(92) = 3: wn(93) = 6: wn(94) = 2: wn(95) = 3: wn(96) = 7: wn(97) = 2: wn(98) = 3: wn(99) = 8
wn(100) = 2: wn(101) = 3: wn(102) = 9: wn(103) = 3: wn(104) = 4: wn(105) = 5
wn(106) = 3: wn(107) = 4: wn(108) = 5: wn(109) = 3: wn(110) = 4: wn(111) = 6
wn(112) = 3: wn(113) = 4: wn(114) = 7: wn(115) = 3: wn(116) = 4: wn(117) = 8
wn(118) = 3: wn(119) = 4: wn(120) = 9: wn(121) = 5: wn(122) = 6: wn(123) = 7
wn(124) = 5: wn(125) = 6: wn(126) = 8: wn(127) = 5: wn(128) = 6: wn(129) = 9
wn(130) = 6: wn(131) = 7: wn(132) = 8: wn(133) = 6: wn(134) = 7: wn(135) = 9
wn(136) = 7: wn(137) = 8: wn(138) = 9

t = 1
For x = 1 To 3: For y = 1 To 3: a = Cells(x, y): tn(t) = a: t = t + 1: Next y: Next x
t = 1
For x = 1 To 46: For y = 1 To 3: b = wn(t): Cells(x, y + 5) = tn(b): t = t + 1: Next y: Next x

End Sub

Thank You.

\$\$\$ YOU GOTTA BE IN IT TO WIN IT \$\$\$

 Page 1 of 1