View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Profairy[_7_] Profairy[_7_] is offline
external usenet poster
 
Posts: 1
Default clear form combo boxes problem

I have a problem with my code...

My form contains the following combo boxes and they all work fine unti
i use clear form button which re calls the Userform_Initialize sub. I
then highlights the cboCustomer.Clear and says that it is an invali
property. If i change it to cboCustomer.Value it unhightlights an
highlights the next in list. This is ok until i click clear form and i
says Invalid Property... HELP!


Private Sub UserForm_Initialize()

cboCustomer.Clear
cboSupplier.Clear
cboCommodity.Clear
cboBuyer.Clear
cboIncType.Clear

txtAccount.Value = ""
txtAccountName.Value = ""

ActiveWorkbook.Sheets("Raw Data").Activate



With cboCustomer

cboCustomer.RowSource = ("A6076:A6120")


End With

cboCustomer.Value = ""

With cboSupplier

cboSupplier.RowSource = ("A5937:A6059")

End With

cboSupplier.Value = ""


With cboCommodity

cboCommodity.RowSource = ("A5895:A5934")

End With

cboCommodity.Value = ""



With cboBuyer

cboBuyer.RowSource = ("A6062:A6073")

End With

cboBuyer.Value = ""

With cboIncType

.AddItem "Internal"
.AddItem "External"


End With

cboIncType.Value = ""

cboSupplier.SetFocus

End Su

--
Message posted from http://www.ExcelForum.com