.Cells(derlign, 17).Value = TextBox12
.Cells(derlign, 18).Value = CheckBox1
.Cells(derlign, 19).Value = CheckBox2
.Cells(derlign, 20).Value = CheckBox3
.Cells(derlign, 21).Value = CheckBox4
.Cells(derlign, 22).Value = CheckBox5
.Cells(derlign, 23).Value = CheckBox6
.Cells(derlign, 24).Value = CheckBox7
.Cells(derlign, 25).Value = TextBox13