I am trying to place combo boxes in UserForm and the info in Combo box keeps duplicating which is causing me to have lots of 'phone' and 'internet'. Is it something to do with the declaration?
Also I am trying to figure out how I can have a UserForm which will find User ID data and place information into the User ID column. Is this possible?
Would really appreciate any help.
Thanks
Millsy
Dim StockCodeValue As String
Dim InputSheetName As String
Private Sub CloseButton_Click()
InputForm.Hide
End Sub
Private Sub Clear_Click()
InputForm.ExpiryDate.Value = ""
InputForm.PhoneInternet.Value = ""
InputForm.SizeContract.Value = ""
InputForm.StockCode.Value = ""
InputForm.StrikePrice.Value = ""
InputForm.OptionCode.Value = ""
InputForm.NoContracts.Value = ""
InputForm.Premium.Value = ""
InputForm.TransactionDate.Value = ""
End Sub
Private Sub ExpiryDate_Enter()
InputForm.ExpiryDate.AddItem ("Jul 08")
InputForm.ExpiryDate.AddItem ("Aug 08")
InputForm.ExpiryDate.AddItem ("Sept 08")
InputForm.ExpiryDate.AddItem ("Oct 08")
InputForm.ExpiryDate.AddItem ("Nov 08")
InputForm.ExpiryDate.AddItem ("Dec 08")
InputForm.ExpiryDate.AddItem ("Jan 09")
InputForm.ExpiryDate.AddItem ("Feb 09")
InputForm.ExpiryDate.AddItem ("Mar 09")
InputForm.ExpiryDate.AddItem ("Apr 09")
InputForm.ExpiryDate.AddItem ("May 09")
InputForm.ExpiryDate.AddItem ("Jun 09")
InputForm.ExpiryDate = ""
InputForm.ExpiryDate.ListIndex = 0
InputForm.ExpiryDate.MatchRequired = True
End Sub
Private Sub PhoneInternet_Enter()
InputForm.PhoneInternet.AddItem ("Internet")
InputForm.PhoneInternet.AddItem ("Phone")
InputForm.PhoneInternet = ""
InputForm.PhoneInternet.MatchRequired = True
End Sub
Private Sub SizeContract_Enter()
InputForm.SizeContract.AddItem ("1000")
End Sub
Private Sub UpdateButton_Click()
InputSheetName = "Peak 3 Put Writing"
StockCodeValue = InputForm.StockCode.Value
StrikePriceValue = InputForm.StrikePrice.Value
TransactionDateValue = InputForm.TransactionDate.Value
PremiumValue = InputForm.Premium.Value
OptionCodeValue = InputForm.OptionCode.Value
PhoneInternetValue = InputForm.PhoneInternet.Value
NoContractsValue = InputForm.NoContracts.Value
SizeContractValue = InputForm.SizeContract.Value
ExpiryDateValue = InputForm.ExpiryDate.Value
ActiveWorkbook.Worksheets(InputSheetName).Select
Dim Home As Range
Set Home = Range("A1")
Home.Offset(3, 0).Select
Range(Selection, Selection.End(xlToRight)).Select
Dim NumColsUsed As Integer
NumColsUsed = Selection.Columns.Count
Home.Offset(0, NumColsUsed).Value = StockCodeValue
Home.Offset(6, NumColsUsed).Value = StrikePriceValue
Home.Offset(4, NumColsUsed).Value = TransactionDateValue
Home.Offset(9, NumColsUsed).Value = PremiumValue
Home.Offset(1, NumColsUsed).Value = OptionCodeValue
Home.Offset(3, NumColsUsed).Value = PhoneInternetValue
Home.Offset(7, NumColsUsed).Value = NoContractsValue
Home.Offset(8, NumColsUsed).Value = SizeContractValue
Home.Offset(5, NumColsUsed).Value = ExpiryDateValue
End Sub