Clear contents in User Form

[zaska]

Hi ,

Code :

Private Sub btn_Emplyeelist_Click()
Dim lastrow As Long
lastrow = Worksheets("Sheet1").Range("A65536").End(xlUp).Row + 1
Cells(lastrow, 1).Value = tb_EmpName.Value
Cells(lastrow, 2).Value = tb_EmpPosition.Value
Cells(lastrow, 3).Value = tb_EmpHireDate.Value

End Sub

I am trying to modify two things in the above code

1. Clear the contents in the input boxes before proceeding to enter the second employee name

2. Using Enter key instead of clicking the O.k Button to input the second employee details

Kindly provide your inputs

Thank you

Regards,
Zaska

 

[zaska]

Hi,

I tried the following to achieve the first task to clear the contents.

tb_Empname.Value      =  ""
tb_EmpPosition.Value   =  ""
tb_EmpHireDate.Value  =  ""

How do i bring the cursor to the first Text box after Entering the first employee Details and how to use Enter or Tab instead of Ok button for faster Data Entry

Thanks in Advance

 

[Yahya]

this code will clear any TextBox in your userform then Set the Emplyee name the Focus Box

Dim Ctrl As Control
For Each Ctrl In Me.Controls
    If TypeName(Ctrl) = "TextBox" Then
        Ctrl.Value = ""
    End If
Next Ctrl
tb_EmpName.SetFocus

 

[zaska]

Hi,

Thank you ..

The first employee data is starting from Range A2 .. What changes are required to be made to get the data from Range A1.

What changes do i need to make to avoid pressing the Enter key Twice after inputting the EmpHireDate for Executing the Ok Button.

Is it possible to make the userform VBModeless . If so where should i use VBModeless option?

 

[zaska]

I changed the line

lastrow = Worksheets("Sheet1").Range("A65536").End(xlUp).Row + 0

and found the answer to my first question and i am still unable to find solution for other two queries

 

[zaska]

I found Answer to the Second question too

Sub employeelist()
UserForm1.Show vbModeless
End Sub

Can anyone kindly help me with the final query ..I.e how to avoid using the Enter key twice after Entering the EmployeeHireDate

I meant to ask whether it is possible to retrieve the cursor to EmployeeName immediately after entering the EmpHireDate without having the need to press O.k button

Thanks

 

[GTO]

You could set the .Default property of the commandbutton to True, but then you will need to use the tab key to progress through the textboxes.

 

[zaska]

Thank you

After making the following change the code is not working properly

lastrow = Worksheets("Sheet1").Range("A65536").End(xlUp).Row + 0

Regards,

Trady

 

[GTO]

Thank you

After making the following change the code is not working properly

lastrow = Worksheets("Sheet1").Range("A65536").End(xlUp).Row + 0

Regards,

Trady

If you are referring to the code in your first post, you probably want to qualify Cells(x,x)