Private Sub ComboBox1_Change()
On Error Resume Next
Cells(1, 11).Value = ComboBox1
ComboBox2.Value = Cells(1, 14).Value
If Cells(1, 15).Value > 0 Then Frame1.Visible = True: CommandButton1.Visible = False: TextBox1.Value = Cells(Cells(1, 15).Value, 1).Value: TextBox9.Value = Cells(Cells(1, 15).Value, 4).Value: TextBox2.Value = Cells(Cells(1, 15).Value, 2).Value: TextBox3.Value = Cells(Cells(1, 15).Value, 3).Value: TextBox4.Value = Cells(Cells(1, 15).Value, 7).Value: TextBox5.Value = Cells(Cells(1, 15).Value, 4).Value: TextBox6.Value = Cells(1, 15).Value Else Frame1.Visible = False: CommandButton1.Visible = True
ComboBox3.Value = ""
TextBox10.Value = ""
TextBox11.Value = ""
End Sub