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"

--
--Thomas [PBD]
Working hard to make working easy.

Answered my own question:

For x = 1 To Range("Players").Value
Dim card(1 To 7) As String
Dim suit(1 To 7) As String

card(1) = Range("P" & x & "Card1").Cells(1, 2).Value
suit(1) = Range("P" & x & "Card1").Cells(1, 3).Value
card(2) = Range("P" & x & "Card2").Cells(1, 2).Value
suit(2) = Range("P" & x & "Card2").Cells(1, 3).Value
card(3) = Range("River_Cards").Cells(1, 2).Value
suit(3) = Range("River_Cards").Cells(1, 3).Value
card(4) = Range("River_Cards").Cells(2, 2).Value
suit(4) = Range("River_Cards").Cells(2, 3).Value
card(5) = Range("River_Cards").Cells(3, 2).Value
suit(5) = Range("River_Cards").Cells(3, 3).Value
card(6) = Range("River_Cards").Cells(4, 2).Value
suit(6) = Range("River_Cards").Cells(4, 3).Value
card(7) = Range("River_Cards").Cells(5, 2).Value
suit(7) = 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 = card(cc1)

--
--Thomas [PBD]
Working hard to make working easy.


"Thomas [PBD]" wrote:

> 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"
>
> --
> --Thomas [PBD]
> Working hard to make working easy.