Return to UserForm

  • Thread starter Patrick C. Simonds
  • Start date
P

Patrick C. Simonds

What can I do to take the user back to the UserForm (preferably to TextBox1)
if TextBox1 value is blank?




Private Sub CommandButton1_Click()

Dim rng
Set rng = Cells(ActiveCell.Row, 1)

Application.ScreenUpdating = False

If TextBox1.Value = "" Then
MsgBox "Sorry but you must provide a First Name"

End

End If

Application.ScreenUpdating = False

Range("A1003").Activate
rng(1, 1).Value = TextBox1.Text 'Employee First Name


Unload Add_Name

Sort.SortEmplyees

Application.ScreenUpdating = True

End Sub
 
D

Dave Peterson

First, it's not a good idea to use End to quit your routine. Lots of things can
go wrong (static variables will get reset to empties, null strings, 0's,
nothings...

If TextBox1.Value = "" Then
MsgBox "Sorry but you must provide a First Name"
Exit sub
End If

Second, why are you doing this at all?
Range("A1003").Activate

=======

Option Explicit
Private Sub CommandButton1_Click()

Dim rng as Range
Set rng = activesheet.Cells(ActiveCell.Row, 1)

If TextBox1.Value = "" Then
MsgBox "Sorry but you must provide a First Name"
Exit sub
End If

Application.ScreenUpdating = False

rng(1, 1).Value = TextBox1.Text 'Employee First Name

Unload Add_Name

Sort.SortEmplyees

Application.ScreenUpdating = True

End Sub

Is Add_Name the name of the userform that contains this Commandbutton?

Option Explicit
Private Sub CommandButton1_Click()

Dim rng as Range
Set rng = activesheet.Cells(ActiveCell.Row, 1)

If TextBox1.Value = "" Then
MsgBox "Sorry but you must provide a First Name"
Exit sub
End If

Application.ScreenUpdating = False

rng(1, 1).Value = TextBox1.Text 'Employee First Name

me.hide

Sort.SortEmplyees

Application.ScreenUpdating = True

unload me

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top