Private Sub ComboBox16_Change()
Label19.Caption = ComboBox16.Value
End Sub
Private Sub CommandButton1_Click()
Dim Tbl As ListObject
Dim NewRow As ListRow
Dim WhichColumn As Long, BoxIndex As Long
'get combobox selection listindex
BoxIndex = Me.ComboBox2.ListIndex + 1
If BoxIndex < 1 Then BoxIndex = 1
'set object variable
Set Tb1 = Worksheets("Sheet1").ListObjects("Table1")
'Add New row to the table
Set NewRow = Tb1.ListRows.Add(AlwaysInsert:=True)
'get column in table to post value of textbox10 to.
WhichColumn = Tb1.ListColumns(Choose(BoxIndex, "Damage Clamp", "Clamp Incorrectly Installed", "Gapped Clamp")).Range.Column
'post new record to table
With NewRow
.Range(1).Value = Me.TextBox14.Value
.Range(2).Value = Me.ComboBox29.Value
.Range(3).Value = Me.ComboBox15.Value
.Range(4).Value = Me.ComboBox16.Value
.Range(WhichColumn).Value = Me.TextBox2.Value
End With
Unload Me
End Sub
Private Sub CommandButton2_Click()
Unload Me
End
End Sub
Private Sub SpinButton10_Change()
TextBox10.Text = SpinButton10.Value
End Sub
Private Sub SpinButton11_Change()
TextBox11.Text = SpinButton11.Value
End Sub
Private Sub SpinButton12_Change()
TextBox12.Text = SpinButton12.Value
End Sub
Private Sub SpinButton13_Change()
TextBox13.Text = SpinButton13.Value
End Sub
Private Sub SpinButton2_Change()
TextBox2.Text = SpinButton2.Value
End Sub
Private Sub SpinButton3_Change()
TextBox3.Text = SpinButton3.Value
End Sub
Private Sub SpinButton4_Change()
TextBox4.Text = SpinButton4.Value
End Sub
Private Sub SpinButton5_Change()
TextBox5.Text = SpinButton5.Value
End Sub
Private Sub SpinButton6_Change()
TextBox6.Text = SpinButton6.Value
End Sub
Private Sub SpinButton7_Change()
TextBox7.Text = SpinButton7.Value
End Sub
Private Sub SpinButton8_Change()
TextBox8.Text = SpinButton8.Value
End Sub
Private Sub SpinButton9_Change()
TextBox9.Text = SpinButton9.Value
End Sub
Private Sub TextBox14_Change()
End Sub
Private Sub TextBox16_Change()
Label20.Caption = TextBox16.Value
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub TextBox3_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Dim i As Integer
Dim myDatec As Date
Mydate = Now()
For i = 0 To 365
ComboBox29.AddItem Format(DateAdd("d", i, Mydate), "mm/dd/yyyy")
Next
TextBox14.Value = Format(Date, "mm/dd/yyyy")
With ComboBox15
.AddItem "12:00:00 AM"
.AddItem "1:00:00 AM"
.AddItem "2:00:00 AM"
.AddItem "3:00:00 AM"
.AddItem "4:00:00 AM"
.AddItem "5:00:00 AM"
.AddItem "6:00:00 AM"
.AddItem "7:00:00 AM"
.AddItem "8:00:00 AM"
.AddItem "9:00:00 AM"
.AddItem "10:00:00 AM"
.AddItem "11:00:00 AM"
.AddItem "12:00:00 PM"
.AddItem "1:00:00 PM"
.AddItem "2:00:00 PM"
.AddItem "3:00:00 PM"
.AddItem "4:00:00 PM"
.AddItem "5:00:00 PM"
.AddItem "6:00:00 PM"
.AddItem "7:00:00 PM"
.AddItem "8:00:00 PM"
.AddItem "9:00:00 PM"
.AddItem "10:00:00 PM"
.AddItem "11:00:00 PM"
.AddItem "12:00:00 PM"
With ComboBox16
.AddItem "(CTOL)"
.AddItem "AF"
.AddItem "AK"
.AddItem "AL"
.AddItem "AM"
.AddItem "AN"
.AddItem "AP"
.AddItem "AQ"
.AddItem "AR"
.AddItem "AS"
.AddItem "AT"
.AddItem "AU"
.AddItem "AV"
.AddItem "AW"
.AddItem "AX"
.AddItem "AY"
.AddItem ""
.AddItem "(SVTOL)"
.AddItem "BF"
.AddItem "BK"
.AddItem "BL"
.AddItem "BM"
.AddItem "BN"
.AddItem "BP"
.AddItem "BQ"
.AddItem "BR"
.AddItem "BS"
.AddItem "BT"
.AddItem "BU"
.AddItem "BV"
.AddItem "BW"
.AddItem "BX"
.AddItem ""
.AddItem "(CV)"
.AddItem "CF"
.AddItem "CK"
.AddItem "CL"
.AddItem "CM"
.AddItem "CN"
.AddItem "CP"
.AddItem "CQ"
.AddItem "CR"
.AddItem "CS"
.AddItem "CT"
.AddItem "CU"
.AddItem "CV"
.AddItem "CW"
.AddItem "CX"
With ComboBox2 'clamps
.AddItem "Clamp Incorrectly Installed"
.AddItem "Damage Clamp"
.AddItem "Gapped Clamp"
With ComboBox3 'Dimentional
.AddItem "Bare Hole ID's"
With ComboBox4 'FOD
.AddItem "Fod (Metal Chips/Red Scarper/Orange Tape, etc.)"
With ComboBox5 'GAP
.AddItem "Gap Fill (Low/High/Void)"
.AddItem "Debris(Sealant Balls/Paint chips)"
With ComboBox6 'Harness
.AddItem "Harness Fouling (Including Clamps Fouling)"
.AddItem "Loose Clamp (Tube/Harness)"
.AddItem "Harness String Tie (Missing/Loose/Over tight)"
.AddItem "Harness Bend Radius"
.AddItem "Insufficient harness clearance"
.AddItem "Mis-Routed Wiring"
With ComboBox7 ' ID
.AddItem "Missing ID"
.AddItem "ID Label Under Clamp"
With ComboBox8 'Misc
.AddItem "FO (Off Product) (Not included in EIA VOC Per A/C"
.AddItem "Low Form 1"
.AddItem "TMS Fan Raised Material"
.AddItem "Hair/Dust/String(Not included in EIA VOC Per A/C Metrics)"
.AddItem "Center Not Grounded"
With ComboBox9 'paint
.AddItem "Drips where there not is supposed to be)"
.AddItem "Missing Paint/Flex prime (Touch up needed)"
.AddItem "Chipped Paint"
.AddItem "Bare Metal / Gouge"
With ComboBox10 'Hardware
.AddItem "Frozen Nutplate"
.AddItem "Bent (Strap/Tube/Structure)"
.AddItem "Incorrect Hardware"
.AddItem "Red Witness Line Visible on Connectors"
.AddItem "Uninstalled Connector"
.AddItem "Connector Clocked Incorrectly"
.AddItem "Loose Fastener"
With ComboBox11 'sealant
.AddItem "Sealant Void/Insufficient"
.AddItem "Sealant Re-entry"
.AddItem "Excessive Sealant"
.AddItem "Debris (Sealant Balls/Paint chips)"
.AddItem "Damaged Bulb Seal"
.AddItem "Unpromoted Seal"
.AddItem "Adhesive on Seal Frame"
.AddItem "Uncured Sealant (MU0008)"
.AddItem "Sealant Void/Insufficient"
.AddItem "Flex (Low/Missing/High)"
End With
With ComboBox12 'Surface Finish
.AddItem "Bare Metal / Gouge"
.AddItem "Scratches"
.AddItem "Missing Alodine"
End With
With ComboBox13 'Tubing
.AddItem "Tube"
.AddItem "Tube Fouling"
.AddItem "Tube Clearance"
.AddItem "Hydro Leak"
.AddItem "Loose Clamp"
.AddItem "Crushed/Deformed Convoluted Tube"
End With
End With
End With
End With
End With
End With
End With
End With
End With
End With
End With
End With
End Sub