I have a similar issue with a userform with 20 textboxes (locked to user) and a Next command button I'm trying to code. There is 12 pieces of equipment each with a command button that directly opens the userform displaying the 20 specs for the specific device. I want the user to be able to click any device command button to open userform with it's data then cycle through the list if they want. So far all command buttons work but hitting Next just displays blanks. Here is what the code looks like:
' For one Device command button
Sub SystemSettingsMain()
'assigns textboxes the main campus' array values and launches userform1
systemsettingscounter = 5
UserForm1.TextBox_ECN = Sheet4.Range("B" & systemsettingscounter)
UserForm1.TextBox_KNum = Sheet4.Range("C" & systemsettingscounter)
UserForm1.TextBox_AETitle = Sheet4.Range("D" & systemsettingscounter)
UserForm1.TextBox_SW = Sheet4.Range("E" & systemsettingscounter)
UserForm1.TextBox_IP = Sheet4.Range("F" & systemsettingscounter)
UserForm1.TextBox_Gateway = Sheet4.Range("G" & systemsettingscounter)
UserForm1.TextBox_Subnet = Sheet4.Range("H" & systemsettingscounter)
UserForm1.TextBox_PCSN = Sheet4.Range("I" & systemsettingscounter)
UserForm1.TextBox_Worklist = Sheet4.Range("J" & systemsettingscounter)
UserForm1.TextBox_PACS = Sheet4.Range("K" & systemsettingscounter)
UserForm1.TextBox_WAP_IP = Sheet4.Range("L" & systemsettingscounter)
UserForm1.TextBox_SSID = Sheet4.Range("M" & systemsettingscounter)
UserForm1.TextBox_Passphrase = Sheet4.Range("N" & systemsettingscounter)
UserForm1.TextBox_Pwr_Lvl = Sheet4.Range("O" & systemsettingscounter)
UserForm1.TextBox_Channel = Sheet4.Range("P" & systemsettingscounter)
UserForm1.TextBox_DRXsn = Sheet4.Range("Q" & systemsettingscounter)
UserForm1.TextBox_DRX_IP = Sheet4.Range("R" & systemsettingscounter)
UserForm1.TextBox_Sensitivity = Sheet4.Range("S" & systemsettingscounter)
UserForm1.TextBox_FW = Sheet4.Range("T" & systemsettingscounter)
UserForm1.TextBox_DEC = Sheet4.Range("U" & systemsettingscounter)
UserForm1.TextBox_Net_Speed = Sheet4.Range("V" & systemsettingscounter)
UserForm1.Show
End Sub
and for the Next button:
Private Sub CommandButton2_Click()
'uses counter to cycle through system settings rows
systemsettingscounter = systemsettingscounter + 1
TextBox_ECN.Value = Sheet4.Cells(systemsettingscounter, "B")
TextBox_KNum.Value = Sheet4.Cells(systemsettingscounter, "C")
TextBox_AETitle.Value = Sheet4.Cells(systemsettingscounter, "D")
TextBox_SW.Value = Sheet4.Cells(systemsettingscounter, "E")
TextBox_IP.Value = Sheet4.Cells(systemsettingscounter, "F")
TextBox_Gateway.Value = Sheet4.Cells(systemsettingscounter, "G")
TextBox_Subnet.Value = Sheet4.Cells(systemsettingscounter, "H")
TextBox_PCSN.Value = Sheet4.Cells(systemsettingscounter, "I")
TextBox_Worklist.Value = Sheet4.Cells(systemsettingscounter, "J")
TextBox_PACS.Value = Sheet4.Cells(systemsettingscounter, "K")
TextBox_WAP_IP.Value = Sheet4.Cells(systemsettingscounter, "L")
TextBox_SSID.Value = Sheet4.Cells(systemsettingscounter, "M")
TextBox_Passphrase.Value = Sheet4.Cells(systemsettingscounter, "N")
TextBox_Pwr_Lvl.Value = Sheet4.Cells(systemsettingscounter, "O")
TextBox_Channel.Value = Sheet4.Cells(systemsettingscounter, "P")
TextBox_DRXsn.Value = Sheet4.Cells(systemsettingscounter, "Q")
TextBox_DRX_IP.Value = Sheet4.Cells(systemsettingscounter, "R")
TextBox_Sensitivity.Value = Sheet4.Cells(systemsettingscounter, "S")
TextBox_FW.Value = Sheet4.Cells(systemsettingscounter, "T")
TextBox_DEC.Value = Sheet4.Cells(systemsettingscounter, "U")
TextBox_Net_Speed.Value = Sheet4.Cells(systemsettingscounter, "V")
End Sub
It seems like the text boxes aren't refreshing with the new values once assigned. I'm sure there is an easier way to go about this, like a lookup/find function etc. any help would be appreciated
Bookmarks