Snasui Excel Forum

Code: Select all

Private Sub cmdOK_Click()
    Dim r As Range
    Dim t As Range
    
    Set r = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    r = ComboBox4.Value
    r.Offset(, 1) = TextBox1.Value
    r.Offset(, 2) = ComboBox5.Value
    r.Offset(, 3) = TextBox2.Value
    r.Offset(, 4) = TextBox3.Value
    r.Offset(, 5) = TextBox4.Value
    r.Offset(, 6) = TextBox5.Value
    r.Offset(, 7) = ComboBox3.Value
    r.Offset(, 8) = ComboBox2.Value
    r.Offset(, 9) = ComboBox1.Value
    If r.Offset(-1, 10) = "No" Then
        r.Offset(, 10) = 1
    Else
        r.Offset(, 10) = r.Offset(-1, 10) + 1
    End If
    ComboBox4 = "": TextBox1 = "": ComboBox5 = ""
    TextBox2 = "": TextBox3 = "": TextBox4 = "": TextBox5 = ""
End Sub

Private Sub ComboBox4_Change()
    If ComboBox4 = "" Then Exit Sub
    TextBox1.Value = Application.VLookup(Me.ComboBox4, Sheets("Sheet1").Range("AA:AB"), 2, False)
End Sub