T
Thomas [PBD]
What I would like to do is be able to call "acard" variable by combining cc1
& "card". Any suggestions? cc1's value would return "a", therefore creating
"acard", which I would like to use to call the variable acard, and place the
value of acard into a cell.
For x = 1 To Range("Players").Value
acard = Range("P" & x & "Card1").Cells(1, 2).Value
asuit = Range("P" & x & "Card1").Cells(1, 3).Value
bcard = Range("P" & x & "Card2").Cells(1, 2).Value
bsuit = Range("P" & x & "Card2").Cells(1, 3).Value
ccard = Range("River_Cards").Cells(1, 2).Value
csuit = Range("River_Cards").Cells(1, 3).Value
dcard = Range("River_Cards").Cells(2, 2).Value
dsuit = Range("River_Cards").Cells(2, 3).Value
ecard = Range("River_Cards").Cells(3, 2).Value
esuit = Range("River_Cards").Cells(3, 3).Value
fcard = Range("River_Cards").Cells(4, 2).Value
fsuit = Range("River_Cards").Cells(4, 3).Value
gcard = Range("River_Cards").Cells(5, 2).Value
gsuit = Range("River_Cards").Cells(5, 3).Value
For z = 1 To 21
cc1 = Range("Combinations").Cells(z, 1).Value
cc2 = Range("Combinations").Cells(z, 2).Value
cc3 = Range("Combinations").Cells(z, 3).Value
cc4 = Range("Combinations").Cells(z, 4).Value
cc5 = Range("Combinations").Cells(z, 5).Value
Range("Calc_Cards").Cells(1, 2).Value = cc1 & "card"
& "card". Any suggestions? cc1's value would return "a", therefore creating
"acard", which I would like to use to call the variable acard, and place the
value of acard into a cell.
For x = 1 To Range("Players").Value
acard = Range("P" & x & "Card1").Cells(1, 2).Value
asuit = Range("P" & x & "Card1").Cells(1, 3).Value
bcard = Range("P" & x & "Card2").Cells(1, 2).Value
bsuit = Range("P" & x & "Card2").Cells(1, 3).Value
ccard = Range("River_Cards").Cells(1, 2).Value
csuit = Range("River_Cards").Cells(1, 3).Value
dcard = Range("River_Cards").Cells(2, 2).Value
dsuit = Range("River_Cards").Cells(2, 3).Value
ecard = Range("River_Cards").Cells(3, 2).Value
esuit = Range("River_Cards").Cells(3, 3).Value
fcard = Range("River_Cards").Cells(4, 2).Value
fsuit = Range("River_Cards").Cells(4, 3).Value
gcard = Range("River_Cards").Cells(5, 2).Value
gsuit = Range("River_Cards").Cells(5, 3).Value
For z = 1 To 21
cc1 = Range("Combinations").Cells(z, 1).Value
cc2 = Range("Combinations").Cells(z, 2).Value
cc3 = Range("Combinations").Cells(z, 3).Value
cc4 = Range("Combinations").Cells(z, 4).Value
cc5 = Range("Combinations").Cells(z, 5).Value
Range("Calc_Cards").Cells(1, 2).Value = cc1 & "card"