Workbook_OPEN 2

[vttech]

I place the following code

Private Sub Workbook_Open()
Load frmDataInput
End Sub


I thought that this would load the form call frmDataInput first when the user open the excel file but it's not working. what am I doing wrong??

 

[rmikesmith]

Private Sub Workbook_Open()
   frmDataInput.Show
End Sub

Regards,
Mike

 

[vttech]

Thanks that works, but I have another question in regards to this form I can see the form name(frmDataInput)in the left side of the VBA editor but when I go to the drop down list to choose the form the only option I have is workbook and the userform does not show up as an option. I am trying to to get userform_initialize.

any ideas??

 

[rmikesmith]

Double-Click on the Userform name/icon in the Project Explorer window (left-hand side of VBE) or click once then click on the "Code" icon between the tree-view and title bar of the Project Explorer window. You will be able to select Userform from the left dropdown now.


Regards,
Mike

 

[vttech]

Thanks,

I noticed that the spreadsheet shows up in the background when the excel file is opened. I just want the form to show up not the worksheet in the background. Can I suppress this behavior until the user completes the form.

 

[rmikesmith]

Well, you cannot make the worksheet invisible (at least one sheet must be visible in a normal workbook, although no sheets visible in an Add-In), but you could initially display a blank sheet without gridlines then switch to the relevant sheet when the form is closed.


Mike

 

[PHV]

Private Sub Workbook_Open()
Windows(1).Visible = False
frmDataInput.Show
Windows(1).Visible = True
End Sub

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[vttech]

<quote>but you could initially display a blank sheet without gridlines then switch to the relevant sheet when the form is closed</quote>

cool

another question I used the following code

Private Sub cmdOK_Click()
C7.Value = txtName.Value
Unload Me
End Sub

I wanted to the value that the person inputs in the text box call txtname into cell c7 but I keep getting an error

any ideas??

 

[rmikesmith]

One way:

Private Sub cmdOK_Click()
  [b][[/b]C7[b]][/b].Value = txtName.Value
  Unload Me
End Sub

Mike

 

[PHV]

Perhaps this ?
ActiveSheet.Range("C7").Value = txtName.Value

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886