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...
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...