Excel - base de datos

Private Sub ComboBox1_DropButtonClick()

ComboBox1.AddItem ("Casting")

ComboBox1.AddItem ("Machinning")

ComboBox1.AddItem ("Assembly")

ComboBox1.AddItem ("Press")

ComboBox1.AddItem ("Paint")

ComboBox1.AddItem ("T&C")

End Sub

Private Sub ComboBox3_DropButtonClick()

ComboBox3.AddItem ("Quality")

ComboBox3.AddItem ("Cost")

ComboBox3.AddItem ("Time")

ComboBox3.AddItem ("Friendly Operation")

End Sub

Private Sub ComboBox4_DropButtonClick()

ComboBox4.AddItem ("Q")

ComboBox4.AddItem ("T")

ComboBox4.AddItem ("C")

ComboBox4.AddItem ("F")

End Sub

Private Sub ComboBox5_DropButtonClick()

ComboBox5.AddItem ("A1")

ComboBox5.AddItem ("A2")

ComboBox5.AddItem ("CV")

ComboBox5.AddItem ("PT")

End Sub

Private Sub ComboBox6_DropButtonClick()

ComboBox6.AddItem ("01")

ComboBox6.AddItem ("02")

ComboBox6.AddItem ("03")

ComboBox6.AddItem ("04")

ComboBox6.AddItem ("05")

ComboBox6.AddItem ("06")

ComboBox6.AddItem ("07")

End Sub

Private Sub Image1_Click()

End Sub

Private Sub Label11_Click()

End Sub

Private Sub Label12_Click()

End Sub

Private Sub Label13_Click()

End Sub

Private Sub Label7_Click()

End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub TextBox3_Change()

End Sub

Private Sub TextBox4_Change()

End Sub

Private Sub ComboBox2_DropButtonClick()

ComboBox2.AddItem ("A1")

ComboBox2.AddItem ("A2")

ComboBox2.AddItem ("CVC")

ComboBox2.AddItem ("PWT")

End Sub

Private Sub CommandButton1_Click()

If ComboBox5.Text <> "" And ComboBox6.Text <> "" And ComboBox4.Text <> "" And ComboBox2.Text <> "" ComboBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "" TextBox4.Text

Then

Graba

Else

MsgBox "Debe llenar todos los datos"

End If

End Sub

Private Sub CommandButton3_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label10_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub Label4_Click()

End Sub

Sub Graba()

        Sheets("new").Select

ult = Cells(Rows.Count, 9).End(xlUp).Row

'code Plant

        Cells(ult + 1, 10).Value = ComboBox5.Text

'code Shop

        Cells(ult + 1, 11).Value = ComboBox6.Text

'code KPI

        Cells(ult + 1, 12).Value = ComboBox4.Text

'Plant

        Cells(ult + 1, 13).Value = ComboBox2.Text

'Shop

        Cells(ult + 1, 14).Value = ComboBox1.Text

'Title Of invention

        Cells(t + 1, 15).Value = TextBox2.Text

'Responsible

        Cells(t + 1, 16).Value = TextBox3.Text

'Direct Boss

        Cells(t + 1, 17).Value = TextBox5.Text

'Desciption

        Cells(t + 1, 18).Value = TextBox4.Text

    t = t + 1

        ComboBox5.Text = ""

        ComboBox6.Text = ""

        ComboBox4.Text = ""

        ComboBox2.Text = ""

        ComboBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox5.Text = ""

        TextBox4.Text = ""

End Sub

Private Sub CommandButton2_Click()

Unload UserForm2

End Sub

Private Sub Label6_Click()

End Sub

Private Sub TextBox5_Change()

End Sub

Private Sub worksheet_change(ByVal Target As Range)

If Target.Column < 9 Then

Cells(Target.Row, 9).Value = Now

End If

End Sub

Private Sub UserForm_Click()

End Sub