User form open

[Tony Miall]

Evening all,

I am just starting to learn about user forms and have written a very simple one called EnquiryDetail. I have run the command

Sub EnquiryDetail()
EnquiryDetail.Show
End Sub

and am getting a message "Compile error: Expected function or variable" and can't understand why.

Could someone please point me in the right direction, Thanks

 

[VoG]

You can't call the sub the same as the name as the userform. Try

Sub EnquiryDetailShow()
EnquiryDetail.Show
End Su

 

[Sektor]

VoG, I guess:

Sub EnquiryDetailShow()
    EnquiryDetail.Show
End Su[B][COLOR="Red"]b[/COLOR][/B]

 

[Tony Miall]

Thanks alot Peter that worked fine.
I have a second question...

I am trying to get 6 combo boxes to enter the values into 6 cells and have written the following

Private Sub Enterenqdetail_Click()
Range("AO27") = EnquiryStatus.Value
Range("AO28") = Quotetype.Value
Range("AO29") = Category.Value
Range("AO30") = Class.Value
Range("AO31") = EnquirySource.Value
Range("AO32") = SupplyOnly.Value
End Sub

and attached to a button on the form but am geting an "Object required error" Am I going about this the right way? Thanks for your patience in advance

 

[VoG]

Try like this

Range("AO27") = EnquiryDetail.EnquiryStatus.Value

 

[Tony Miall]

Peter,

I tried that and get an error message "Method or data member not found"

I have checked the names and all are spelt correctly

 

[VoG]

With a command button on the form I tried this successfully

Private Sub CommandButton1_Click()
Range("A1").Value = EnquiryDetail.EnquiryStatus.Value
End Sub

 

[Tony Miall]

Thanks Peter, I was missing the .Value after the cell reference.
Much appreciated, this stuff is a brain melt when you're learning