Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Userforms submit button to clear after it enters data?
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 txtAddress.Value txtCity.Value = "" txtState.Value = "" txtZip.Value = "" txtdegree1.Value = "" txtdegree2.Value = "" txtCert1.Value = "" 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 End Sub -- Regards, Tom Ogilvy "carlaruge" wrote in message ... I have User form that has a submit button that when selected enters data to the spreadsheet, but doesn't clear the form unless you click on the clear form button. Is there anyway to write that it will also clear 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 Carla -- carlaruge ------------------------------------------------------------------------ carlaruge's Profile: http://www.excelforum.com/member.php...fo&userid=6583 View this thread: http://www.excelforum.com/showthread...hreadid=385217 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Userforms submit button to clear after it enters data?
I used this to initilize the form also, I thought I tried this but must have had it in the wrong place. Thanks for your help! -- carlaruge ------------------------------------------------------------------------ carlaruge's Profile: http://www.excelforum.com/member.php...fo&userid=6583 View this thread: http://www.excelforum.com/showthread...hreadid=385217 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Submit Button | Excel Discussion (Misc queries) | |||
How to clear a group of combo boxes after a submit to another worksheet | Excel Discussion (Misc queries) | |||
Clear a set of combo boxes after a Submit of data to a new sheet. | Excel Worksheet Functions | |||
Submit Button? | Excel Discussion (Misc queries) | |||
Submit Button | Excel Worksheet Functions |