Call Variables by String

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"
 
T

Thomas [PBD]

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)
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top