PDA

View Full Version : adding in list box



gmahendru
10-30-2005, 11:55 PM
Dear all,

I am reading numbers from two combo box in a form and wanna see the product of those nos in the list box...

What I am doing wrong????????

Private Sub UserForm_Initialize()
With cboGenset
.List() = Range("Genset").Value
End With

With cboQtyG
.List() = Range("Qty").Value
End With

Me.txtkWe.Value = ""


End Sub


Private Sub cboGenset_Change()
Select Case cboGenset
Case Is = "4L20"
cbokWe.List() = Range("G4L20").Value
End Select
End Sub


Private Sub cbokWe_Change()
Dim x As Integer
Dim y As Integer
Dim z As Integer
cbokWe.Value = y
cboQtyG.Value = x
z = (x * y)
Me.txtkWe.AddItem (z)

End Sub

Please help...

Bob Phillips
10-31-2005, 02:46 AM
What is what control? Post a workbook.