Snasui Excel Forum

Code: Select all

Private Sub UserForm_Initialize()
Sheets("Goods").Select
Range("B3").Select
    Do While Not IsEmpty(ActiveCell.Value)
        cmbGoods.AddItem ActiveCell.Value
        ActiveCell.Offset(1, 0).Select
    Loop
    cmbGoods.ListIndex = 0
    txtComment.MultiLine = True 'Add this line
    Sheets("page").Select
End Sub

Code: Select all

Private Sub cmbGoods_AfterUpdate()
Dim i As Integer, count As Integer
For i = 1 To cmbGoods.ListCount
    If cmbGoods.Column(0, i - 1) = cmbGoods.Text Then
        count = count + 1
    End If
Next
    If count = 0 Then
        MsgBox "Not found"
        cmbGoods = ""
    End If
End Sub

Code: Select all

Private Sub cmdOK_Click()
Sheets("page").Select
Range("B3").Select
ActiveCell.Value = cmbGoods.Value
Range("D3").Value = Application.VLookup(Range("B3"), _
    Worksheets("Goods").Range("B3:D12"), 2, 0)
Range("F3").Value = Application.VLookup(Range("B3"), _
    Worksheets("Goods").Range("B3:D12"), 3, 0)
Range("H3").Select
ActiveCell.Value = txtComment.Value
End Sub