I am wanting to use multiple checkboxes to select specific values and show them in textboxes in the order they are selected. At this time I have no working code to share because I have not been able to figure any of this out. Before anyone asks, I did take the time to search this problem on the web, I did go through the MSDN Library, and I also tried doing this with OptionButtons.

To add a bit more clarity, there are 18 checkboxes, and 6 sets of data I need returned. So, if a person were to click, in this order, 12, 15, 2, 18, 5, and 7, then i would need them listed in that exact order (txt1 = 12, txt2 = 15, and so on).

Any help would be greatly appreciated. Thanks in advance.

EDIT: I have been working on this and have gotten this much completed. I am including a copy of the actual Form I'm working on for your viewing pleasure. And yes, I do know that the code is bulky and unattractive. It's what I'm used to.

TestRoll.zip

**(1.62K)**

Number of downloads: 49

Private Sub cmdRollD20_Click() chkStat(0).Value = vbUnchecked chkStat(1).Value = vbUnchecked chkStat(2).Value = vbUnchecked chkStat(3).Value = vbUnchecked chkStat(4).Value = vbUnchecked chkStat(5).Value = vbUnchecked chkStat(6).Value = vbUnchecked chkStat(7).Value = vbUnchecked chkStat(8).Value = vbUnchecked chkStat(9).Value = vbUnchecked chkStat(10).Value = vbUnchecked chkStat(11).Value = vbUnchecked chkStat(12).Value = vbUnchecked chkStat(13).Value = vbUnchecked chkStat(14).Value = vbUnchecked chkStat(15).Value = vbUnchecked chkStat(16).Value = vbUnchecked chkStat(17).Value = vbUnchecked Randomize A = CInt((20 - 1 + 1) * Rnd + 1) B = CInt((20 - 1 + 1) * Rnd + 1) C = CInt((20 - 1 + 1) * Rnd + 1) D = CInt((20 - 1 + 1) * Rnd + 1) E = CInt((20 - 1 + 1) * Rnd + 1) F = CInt((20 - 1 + 1) * Rnd + 1) G = CInt((20 - 1 + 1) * Rnd + 1) H = CInt((20 - 1 + 1) * Rnd + 1) I = CInt((20 - 1 + 1) * Rnd + 1) J = CInt((20 - 1 + 1) * Rnd + 1) K = CInt((20 - 1 + 1) * Rnd + 1) L = CInt((20 - 1 + 1) * Rnd + 1) M = CInt((20 - 1 + 1) * Rnd + 1) N = CInt((20 - 1 + 1) * Rnd + 1) O = CInt((20 - 1 + 1) * Rnd + 1) P = CInt((20 - 1 + 1) * Rnd + 1) Q = CInt((20 - 1 + 1) * Rnd + 1) R = CInt((20 - 1 + 1) * Rnd + 1) If A >= 20 Then A = 20 End If If B >= 20 Then B = 20 End If If C >= 20 Then C = 20 End If If D >= 20 Then D = 20 End If If E >= 20 Then E = 20 End If If F >= 20 Then F = 20 End If If G >= 20 Then G = 20 End If If H >= 20 Then H = 20 End If If I >= 20 Then I = 20 End If If J >= 20 Then J = 20 End If If K >= 20 Then K = 20 End If If L >= 20 Then L = 20 End If If M >= 20 Then M = 20 End If If N >= 20 Then N = 20 End If If O >= 20 Then O = 20 End If If P >= 20 Then P = 20 End If If Q >= 20 Then Q = 20 End If If R >= 20 Then R = 20 End If txtStr001.Text = A txtStr002.Text = B txtStr003.Text = C txtDex001.Text = D txtDex002.Text = E txtDex003.Text = F txtCon001.Text = G txtCon002.Text = H txtCon003.Text = I txtInt001.Text = J txtInt002.Text = K txtInt003.Text = L txtWis001.Text = M txtWis002.Text = N txtWis003.Text = O txtCha001.Text = P txtCha002.Text = Q txtCha003.Text = R End Sub Private Sub Form_Load() Me.Visible = True End Sub

This post has been edited by **Jaalenn**: 21 December 2011 - 07:32 PM