title: Excel VBA Userform with combo box and Vlookup
body: <p>I try to make my first UserForm with combo box, I already  made this:</p>
  
  <pre><code>   Private Sub cmdClose_Click()
     Unload Me
     End Sub
  
    Private Sub Reg1_AfterUpdate()
    If WorksheetFunction.CountIf(Stock.Range("A:A"), Me.Range.Value) = 0 Then
    NsgBox "This is an incorrect item"
    Me.Reg1.Value = ""
    Exit Sub
    End If
  
    With Me
    .Reg2 = Application.WorksheetFunction.VLookup(CLng(Me.Reg1), 
    Stock.Range("Lookup"), 2, 0)
    End Sub 
  
    Private Sub UserForm_Click()
    End Sub
  </code></pre>
  
  <p>The thing is that I don't have any idea how to use combo box with Vlookup function. </p>
  
  <p>I need a combo box because I would like to change a number on Sheet1.</p>
  
  <p>For example: </p>
  
  <pre><code>       Harry      10
         David      20
  
    A1 Harry   B1  10
    A2 David   B2  20
  </code></pre>
  
  <p>So I would like to select a name from a Combo Box. After I selected a name I would like to type in a number into a textbox and this number is going to belong for the selected name and sum up with the existing number.</p>
  
  <p>So Harry has 10. After I selected Harry from combo box and set 90 in TextBox the number is going to change for 100 for Harry. That's why I think I have to use Vlookup somehow in VBA. </p>
  
  <p>Thank you</p>