[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] UserForm_Initialize()
[B] ComboBox1.List = Array("Jan", "Feb", "Mar")
ComboBox1.SetFocus
[COLOR=green]'txtName.Value = ""[/COLOR][/B]
txtAddress.Value = ""
txtOrderno.Value = ""
txtEngOrdno.Value = ""
txtPourdate.Value = ""
txtCubes.Value = ""
TextReoDate.Value = ""
OptNor = [COLOR=darkblue]False[/COLOR]
OptBia = [COLOR=darkblue]False[/COLOR]
OptOne = [COLOR=darkblue]False[/COLOR]
OptARC = [COLOR=darkblue]False[/COLOR]
OptSpray = [COLOR=darkblue]False[/COLOR]
optSemi = [COLOR=darkblue]False[/COLOR]
chkTest = [COLOR=darkblue]True[/COLOR]
chkAggregate = [COLOR=darkblue]True[/COLOR]
chkAggregate32 = [COLOR=darkblue]False[/COLOR]
[B][COLOR=green]'txtName.SetFocus[/COLOR][/B]
OptContactAlessandro = [COLOR=darkblue]False[/COLOR]
OptContactAlex = [COLOR=darkblue]False[/COLOR]
chkTrench = [COLOR=darkblue]True[/COLOR]
txtTrenchdate.Value = ""
OptWhiteAnt = [COLOR=darkblue]True[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]
[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] cmdOK_Click()
[B] [COLOR=darkblue]If[/COLOR] Combobx1.ListIndex = -1 [COLOR=darkblue]Then[/COLOR]
MsgBox "Please select a name first. ", vbExclamation, "No Name Selected"
[COLOR=darkblue]Exit[/COLOR] [COLOR=darkblue]Sub[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR][/B]
ActiveWorkbook.Sheets("Bookings").Activate
Range("B8").Select
[COLOR=darkblue]Do[/COLOR]
[COLOR=darkblue]If[/COLOR] IsEmpty(ActiveCell) = [COLOR=darkblue]False[/COLOR] [COLOR=darkblue]Then[/COLOR]
ActiveCell.Offset(0, 1).Select
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
[COLOR=darkblue]Loop[/COLOR] [COLOR=darkblue]Until[/COLOR] IsEmpty(ActiveCell) = [COLOR=darkblue]True[/COLOR]
[B]ActiveCell.Value = ComboBox1.Value[/B]
ActiveCell.Offset(1, 0) = txtAddress.Value
ActiveCell.Offset(2, 0) = txtOrderno.Value
ActiveCell.Offset(3, 0) = Format(txtPourdate.Value, "dd mmm yy")
ActiveCell.Offset(5, 0) = txtCubes.Value
[COLOR=darkblue]If[/COLOR] OptSpray = [COLOR=darkblue]True[/COLOR] [COLOR=darkblue]Then[/COLOR]
ActiveCell.Offset(6, 0).Value = Format(txtPourdate.Value, "dd mmm yy")
[COLOR=darkblue]ElseIf[/COLOR] OptNoSpray = [COLOR=darkblue]True[/COLOR] [COLOR=darkblue]Then[/COLOR]
ActiveCell.Offset(6, 0).Value = ""
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
ActiveCell.Offset(8, 0) = Format(TextReoDate.Value, "dd mmm yy")
[COLOR=darkblue]If[/COLOR] OptNor = [COLOR=darkblue]True[/COLOR] [COLOR=darkblue]Then[/COLOR]
ActiveCell.Offset(9, 0).Value = "N"
[COLOR=darkblue]ElseIf[/COLOR] OptBia = [COLOR=darkblue]True[/COLOR] [COLOR=darkblue]Then[/COLOR]
ActiveCell.Offset(9, 0).Value = "B"
[COLOR=darkblue]ElseIf[/COLOR] OptOne = [COLOR=darkblue]True[/COLOR] [COLOR=darkblue]Then[/COLOR]
ActiveCell.Offset(9, 0).Value = "O"
[COLOR=darkblue]ElseIf[/COLOR] OptARC = [COLOR=darkblue]True[/COLOR] [COLOR=darkblue]Then[/COLOR]
ActiveCell.Offset(9, 0).Value = ""
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
If OptWhiteAnt = [COLOR=darkblue]True[/COLOR] [COLOR=darkblue]Then[/COLOR]
ActiveCell.Offset(10, 0).Value = "after 3pm"
[COLOR=darkblue]Else[COLOR=darkblue]If[/COLOR][/COLOR] OptNoWhiteAnt = [COLOR=darkblue]True[/COLOR] [COLOR=darkblue]Then[/COLOR]
ActiveCell.Offset(10, 0).Value = "No"
[COLOR=darkblue]If[/COLOR] optSemi = [COLOR=darkblue]True[/COLOR] [COLOR=darkblue]Then[/COLOR]
ActiveCell.Offset(11, 0).Value = "Yes"
[COLOR=darkblue]End[/COLOR] If
[COLOR=darkblue]Else[COLOR=darkblue]If[/COLOR][/COLOR] optNo = [COLOR=darkblue]True[/COLOR] [COLOR=darkblue]Then[/COLOR]
ActiveCell.Offset(11, 0).Value = "No"
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
If chkTest = [COLOR=darkblue]True[/COLOR] [COLOR=darkblue]Then[/COLOR]
ActiveCell.Offset(12, 0).Value = "No"
[COLOR=darkblue]Else[/COLOR]
ActiveCell.Offset(12, 0).Value = "Yes"
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
If chkAggregate = [COLOR=darkblue]True[/COLOR] [COLOR=darkblue]Then[/COLOR]
ActiveCell.Offset(13, 0).Value = "20mpa"
[COLOR=darkblue]Else[COLOR=darkblue]If[/COLOR][/COLOR] chkAggregate32 = [COLOR=darkblue]True[/COLOR] [COLOR=darkblue]Then[/COLOR]
ActiveCell.Offset(13, 0).Value = "32mpa"
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
If OptContactAlessandro = [COLOR=darkblue]True[/COLOR] [COLOR=darkblue]Then[/COLOR]
ActiveCell.Offset(14, 0).Value = "A"
[COLOR=darkblue]Else[COLOR=darkblue]If[/COLOR][/COLOR] OptContactAlex = [COLOR=darkblue]True[/COLOR] [COLOR=darkblue]Then[/COLOR]
ActiveCell.Offset(14, 0).Value = "Al"
[COLOR=darkblue]Else[/COLOR]
ActiveCell.Offset(14, 0).Value = "TBA"
[COLOR=darkblue]End[/COLOR] If
ActiveCell.Offset(15, 0) = txtEngOrdno.Value
If chkTrench = [COLOR=darkblue]True[/COLOR] [COLOR=darkblue]Then[/COLOR]
ActiveCell.Offset(16, 0) = Format(txtTrenchdate.Value, "dd mmm yy")
[COLOR=darkblue]ElseIf[/COLOR] chkTrench = [COLOR=darkblue]False[/COLOR] [COLOR=darkblue]Then[/COLOR]
ActiveCell.Offset(16, 0).Value = "NO TRENCH INSPECTION"
[COLOR=darkblue]End[/COLOR] If
[COLOR=darkblue]Call[/COLOR] UserForm_Initialize
Range("B8").Select
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]