Im trying to create a data form to upload details to spreadsheet. I have created the form in VBA but when I try and play it i get the error message "run time error 424 object not found." I cant seem to find the problem in the code and have stared at it for so long I feel a bit like an eskino staring at the snow. Any suggestions will be welcome below is the code
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdClearForm_Click()
Call UserForm_Initialize
End Sub
Private Sub cmdOK_Click()
ActiveWorkbook.Sheets("Sheet 1").Activate
Range("A3").Select
ActiveCell.Value = cboCSR.Value
ActiveCell.Offset(0, 1) = txtDate.Value
ActiveCell.Offset(0, 2) = txtCaseNo.Value
ActiveCell.Offset(0, 3) = txtCallbackDate.Value
ActiveCell.Offset(0, 4) = txtTimeWindow.Value
ActiveCell.Offset(0, 5) = cboAssign.Value
ActiveCell.Offset(0, 6) = txtContactNo.Value
ActiveCell.Offset(0, 7) = txtOrangeNo.Value
End If
End If
Range("A3").Select
End Sub
Private Sub UserForm_Initialize()
txtName.Value = ""
txtDate.Value = ""
With cboCSR
.AddItem "Andy"
.AddItem "Ian"
.AddItem "Vici"
.AddItem "Marcia"
.AddItem "Nina"
.AddItem "Emma"
.AddItem "Wendy"
.AddItem "Dave"
.AddItem "George"
.AddItem "Nick"
.AddItem "Alina"
.AddItem "Janey"
.AddItem "Debbie"
.AddItem "Sharon"
.AddItem "Mark M"
.AddItem "Mark B"
.AddItem "Kayley"
.AddItem "Andrea"
.AddItem "Gill"
.AddItem "Suzanne"
.AddItem "Linda"
.AddItem "Sheena"
.AddItem "Alison"
.AddItem "Katie"
.AddItem "Paula"
.AddItem "Joe"
.AddItem "Gary"
.AddItem "Annie"
End With
cboCSR.Value = ""
txtCaseNo.Value = ""
txtCallbackDate.Value = ""
txtTimeWindow.Value = ""
With cboAssign
.AddItem "Andy"
.AddItem "Ian"
.AddItem "Vici"
.AddItem "Marcia"
.AddItem "Nina"
.AddItem "Emma"
.AddItem "Wendy"
.AddItem "Dave"
.AddItem "George"
.AddItem "Nick"
.AddItem "Alina"
.AddItem "Janey"
.AddItem "Debbie"
.AddItem "Sharon"
.AddItem "Mark M"
.AddItem "Mark B"
.AddItem "Kayley"
.AddItem "Andrea"
.AddItem "Gill"
.AddItem "Suzanne"
.AddItem "Linda"
.AddItem "Sheena"
.AddItem "Alison"
.AddItem "Katie"
.AddItem "Paula"
.AddItem "Joe"
.AddItem "Gary"
.AddItem "Annie"
End With
cboAssign.Value = ""
txtContactNo.Value = ""
txtOrangeNo.Value = ""
End Sub
Bookmarks