View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
carlaruge[_2_] carlaruge[_2_] is offline
external usenet poster
 
Posts: 1
Default Userforms submit button to clear after it enters data?


I have User form that has a submit button that when selected enters dat
to the spreadsheet, but doesn't clear the form unless you click on th
clear form button. Is there anyway to write that it will also clea
the form after it has entered all of the data into the worksheet?

Here is the VB for the button...

Private Sub cmdOK_Click()
ActiveWorkbook.Sheets("Sign In").Activate
Range("A1").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = txtName.Value
ActiveCell.Offset(0, 1) = txtAddress.Value
ActiveCell.Offset(0, 2) = txtCity.Value
ActiveCell.Offset(0, 3) = txtState.Value
ActiveCell.Offset(0, 4) = txtZip.Value
ActiveCell.Offset(0, 6) = txtdegree1.Value
ActiveCell.Offset(0, 7) = txtdegree2.Value
ActiveCell.Offset(0, 8) = txtCert1.Value
ActiveCell.Offset(0, 9) = txtCert1.Value
If optElementary = True Then
ActiveCell.Offset(0, 5).Value = "Elementary"
ElseIf optMiddle = True Then
ActiveCell.Offset(0, 5).Value = "Middle School"
Else
ActiveCell.Offset(0, 5).Value = "Secondary"
End If

Thanks
Carl

--
carlarug
-----------------------------------------------------------------------
carlaruge's Profile: http://www.excelforum.com/member.php...nfo&userid=658
View this thread: http://www.excelforum.com/showthread.php?threadid=38521