i'd like some more userofrm help please

[Gary Keramidas]

i have this code assigned to a button on each sheet

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

then i want to set 2 values on the form when the button is clicked. i fill
the combo box with the active sheet name (it is a drop down of the 12 month
names, one for each sheet) and i put the line number it is going to enter
the record on right below that in a text box.

Private Sub UserForm_Activate()
Set ws = ActiveSheet
iRow = ws.Cells(Rows.Count, "B") _
.End(xlUp).Offset(1, 0).Row
UserForm1.TextBox1.Value = "Line Item # " & iRow - 3
UserForm1.ComboBox1.Value = ActiveSheet.Name
Me.LSite.SetFocus
End Sub

it mostly works, but i want the focus to be in the first field, LSite, but
the form is not even active after i click the macro button. after i click
the form to make it the active window, the cursor is still not in the LSite
field.


how do i get around this behavior?

 

[Bob Phillips]

What is LSite? Is it a control on the userform? If so, that code works fine
for me.

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Gary Keramidas]

LSite is a textbox for the 1st entry.

instead of userform1.show, how would i use a macro to call that code module
within the userform called UserForm_Activate. tried run and call, but i
guess i don't have the syntax correct.