Snasui Excel Forum

Code: Select all

Private Sub Save_Click()
    Dim irow As Long
    Dim ws As Worksheet
    Dim objAll As Variant
    Dim i As Integer
    Set ws = Worksheets("Tracking")
    objAll = Array(Me.TextBox4, Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.TextBox8)
    If Me.TextBox1.Value <> "" Then
        Me.TextBox1.Text = Application.Trim(Me.TextBox1.Text)
        'Find first empty row in database
        irow = ws.Cells(Rows.Count, 2) _
            .End(xlUp).Offset(1, 0).Row
       
        'Copy The Data To The Database
        For i = 0 To UBound(objAll)
            If objAll(i).Text <> "" Then
                ws.Cells(irow, 2).Value = Me.TextBox1.Value
                ws.Cells(irow, 3).Value = Me.ComboBox1.Value
                ws.Cells(irow, 4).Value = Me.ComboBox2.Value
                ws.Cells(irow, 5).Value = objAll(i).Value
                ws.Cells(irow, 6).Value = Me.ComboBox3.Value
                ws.Cells(irow, 7).Value = Me.ComboBox4.Value
                irow = irow + 1
            End If
        Next i
    Else
        MsgBox "Please check Data", vbCritical
    End If
End Sub

Code: Select all

objAll = Array(Me.TextBox4, Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.TextBox8)

Code: Select all

TextBox1.Value = Date