Yes, that code worked thank you. The only problem is that the "Get Data" sub wasn't working correctly. When I open the UserForm on a row that has data it is populated with that data. All my Text Boxes were working fine but my Toggle Buttons were grayed out. They were looking for a True or False to tell them what state they should be in. I had to add a bit of code to the "Get Data" sub to fix this problem.
New "Get Data" Code
Private Sub GetData()
Save.Enabled = True
New1.Enabled = True
Prev.Enabled = True
Next1.Enabled = True
First.Enabled = True
Last.Enabled = True
Cells(r, 1).Select
Go_To.Visible = False
For j = 1 To v
col = Replace(Cells(1, j).Address(0, 0), "1", "")
If Cells(r, j) = "YES" Then
Me.Controls("z" & col).Value = True
ElseIf Cells(r, j) = "NO" Then
Me.Controls("z" & col).Value = False
Else
Me.Controls("z" & col).Value = Cells(r, j)
End If
jjj = Me.Controls("z" & col).Value
Next j
RowNumber = r
'DisableSave
End Sub
Old "Get Data" Code
Private Sub GetData()
Save.Enabled = True
New1.Enabled = True
Prev.Enabled = True
Next1.Enabled = True
First.Enabled = True
Last.Enabled = True
Cells(r, 1).Select
Go_To.Visible = False
For j = 1 To v
col = Replace(Cells(1, j).Address(0, 0), "1", "")
Me.Controls("z" & col).Value = Cells(r, j)
Next j
RowNumber = r
'DisableSave
End Sub
Bookmarks