Jefferson2512
Board Regular
- Joined
- Sep 16, 2019
- Messages
- 53
can someone help me ?? what code who runs first to my userform_initialize..
Code:
Private Sub adddata_Click()
Dim wks As Worksheet
Dim addnew As Range
Dim addup(15) As Double
Set wks = Sheet9
Set addnew = wks.Range("AG3").Offset(0, 0)
If ecYes.Value = True Then
addnew.Offset(0, 1).Value = ecYes.Caption
ElseIf ecNo.Value = True Then
addnew.Offset(0, 1).Value = ecNo.Caption
ElseIf ecNa.Value = True Then
addnew.Offset(0, 1).Value = ecNa.Caption
End If
If ecYes1.Value = True Then
addnew.Offset(0, 2).Value = ecYes1.Caption
ElseIf ecNo1.Value = True Then
addnew.Offset(0, 2).Value = ecNo1.Caption
ElseIf ecNa1.Value = True Then
addnew.Offset(0, 2).Value = ecNa1.Caption
End If
If ecYes2.Value = True Then
addnew.Offset(0, 3).Value = ecYes2.Caption
ElseIf ecNo2.Value = True Then
addnew.Offset(0, 3).Value = ecNo2.Caption
ElseIf ecNa2.Value = True Then
addnew.Offset(0, 3).Value = ecNa2.Caption
End If
If ecYes3.Value = True Then
addnew.Offset(0, 4).Value = ecYes3.Caption
ElseIf ecNo3.Value = True Then
addnew.Offset(0, 4).Value = ecNo3.Caption
ElseIf ecNa3.Value = True Then
addnew.Offset(0, 4).Value = ecNa3.Caption
End If
If ecYes4.Value = True Then
addnew.Offset(0, 5).Value = ecYes4.Caption
ElseIf ecNo4.Value = True Then
addnew.Offset(0, 5).Value = ecNo4.Caption
ElseIf ecNa4.Value = True Then
addnew.Offset(0, 5).Value = ecNa4.Caption
End If
If ecYes5.Value = True Then
addnew.Offset(0, 6).Value = ecYes5.Caption
ElseIf ecNo5.Value = True Then
addnew.Offset(0, 6).Value = ecNo5.Caption
ElseIf ecNa5.Value = True Then
addnew.Offset(0, 6).Value = ecNa5.Caption
End If
If ecYes6.Value = True Then
addnew.Offset(0, 7).Value = ecYes6.Caption
ElseIf ecNo6.Value = True Then
addnew.Offset(0, 7).Value = ecNo6.Caption
ElseIf ecNa6.Value = True Then
addnew.Offset(0, 7).Value = ecNa6.Caption
End If
If ecYes7.Value = True Then
addnew.Offset(0, 8).Value = ecYes7.Caption
ElseIf ecNo7.Value = True Then
addnew.Offset(0, 8).Value = ecNo7.Caption
ElseIf ecNa7.Value = True Then
addnew.Offset(0, 8).Value = ecNa7.Caption
End If
If ecYes8.Value = True Then
addnew.Offset(0, 9).Value = ecYes8.Caption
ElseIf ecNo8.Value = True Then
addnew.Offset(0, 9).Value = ecNo8.Caption
ElseIf ecNa8.Value = True Then
addnew.Offset(0, 9).Value = ecNa8.Caption
End If
If ecYes9.Value = True Then
addnew.Offset(0, 10).Value = ecYes9.Caption
ElseIf ecNo9.Value = True Then
addnew.Offset(0, 10).Value = ecNo9.Caption
ElseIf ecNa9.Value = True Then
addnew.Offset(0, 10).Value = ecNa9.Caption
End If
If ecYes10.Value = True Then
addnew.Offset(0, 11).Value = ecYes10.Caption
ElseIf ecNo10.Value = True Then
addnew.Offset(0, 11).Value = ecNo10.Caption
ElseIf ecNa10.Value = True Then
addnew.Offset(0, 11).Value = ecNa10.Caption
End If
If ecYes11.Value = True Then
addnew.Offset(0, 12).Value = ecYes11.Caption
ElseIf ecNo11.Value = True Then
addnew.Offset(0, 12).Value = ecNo11.Caption
ElseIf ecNa11.Value = True Then
addnew.Offset(0, 12).Value = ecNa11.Caption
End If
If ecYes.Value = True Then
addup(0) = 100
ElseIf ecNo.Value = True Then
addup(0) = 0
ElseIf ecNa.Value = True Then
addup(0) = 100
End If
If ecYes1.Value = True Then
addup(1) = 100
ElseIf ecNo1.Value = True Then
addup(1) = 0
ElseIf ecNa1.Value = True Then
addup(1) = 100
End If
If ecYes2.Value = True Then
addup(2) = 100
ElseIf ecNo2.Value = True Then
addup(2) = 0
ElseIf ecNa2.Value = True Then
addup(2) = 100
End If
If ecYes3.Value = True Then
addup(3) = 100
ElseIf ecNo3.Value = True Then
addup(3) = 0
ElseIf ecNa3.Value = True Then
addup(3) = 100
End If
If ecYes4.Value = True Then
addup(4) = 100
ElseIf ecNo4.Value = True Then
addup(4) = 0
ElseIf ecNa4.Value = True Then
addup(4) = 100
End If
If ecYes5.Value = True Then
addup(5) = 100
ElseIf ecNo5.Value = True Then
addup(5) = 0
ElseIf ecNa5.Value = True Then
addup(5) = 100
End If
If ecYes6.Value = True Then
addup(6) = 100
ElseIf ecNo6.Value = True Then
addup(6) = 0
ElseIf ecNa6.Value = True Then
addup(6) = 100
End If
If ecYes7.Value = True Then
addup(7) = 100
ElseIf ecNo7.Value = True Then
addup(7) = 0
ElseIf ecNa7.Value = True Then
addup(7) = 100
End If
If ecYes8.Value = True Then
addup(8) = 100
ElseIf ecNo8.Value = True Then
addup(8) = 0
ElseIf ecNa8.Value = True Then
addup(8) = 100
End If
If ecYes9.Value = True Then
addup(9) = 100
ElseIf ecNo9.Value = True Then
addup(9) = 0
ElseIf ecNa9.Value = True Then
addup(9) = 100
End If
If ecYes10.Value = True Then
addup(10) = 100
ElseIf ecNo10.Value = True Then
addup(10) = 0
ElseIf ecNa10.Value = True Then
addup(10) = 100
End If
If ecYes11.Value = True Then
addup(11) = 100
ElseIf ecNo11.Value = True Then
addup(11) = 0
ElseIf ecNa11.Value = True Then
addup(11) = 100
End If
addup(12) = (addup(0) + addup(1) + addup(2) + addup(3) + addup(4) + addup(5) + addup(6)) / 7
eclbl.Caption = addup(12)
Me.eclbl.Caption = Format(Me.eclbl.Caption, "##0.00")
addup(13) = (addup(7) + addup(8) + addup(9) + addup(10) + addup(11)) / 5
eclbl1.Caption = addup(13)
Me.eclbl1.Caption = Format(Me.eclbl1.Caption, "##0.00")
addup(14) = (addup(12) + addup(13))
addup(15) = addup(14) / 2
If addup(15) = (addup(14) / 2) Then
eclbl2.Caption = addup(15)
Me.eclbl2.Caption = Format(Me.eclbl2.Caption, "##0.00")
End If
atqlbl2.Caption = eclbl2.Caption
addnew.Offset(0, 0).Value = eclbl2.Caption
Dim total2, Totals(3) As Double
If atqlbl3.Caption = "" Then
atqlbl3.Caption = (atqlbl2.Caption * 0.05) / 0.4
Me.atqlbl3.Caption = Format(Me.atqlbl3.Caption, "##0.00")
End If
If atqlbl.Caption <> "" And atqlbl2.Caption <> "" Then
total2 = 0
Totals(0) = atqlbl.Caption * 0.25
Totals(1) = atqlbl2.Caption * 0.05
total2 = CDbl(Totals(0)) + CDbl(Totals(1))
atqlbl3.Caption = total2 / 0.4
Me.atqlbl3.Caption = Format(Me.atqlbl3.Caption, "##0.00")
End If
If atqlbl1.Caption <> "" And atqlbl2.Caption <> "" Then
total2 = 0
Totals(0) = atqlbl1.Caption * 0.1
Totals(2) = atqlbl2.Caption * 0.05
total2 = CDbl(Totals(0)) + CDbl(Totals(2))
atqlbl3.Caption = total2 / 0.4
Me.atqlbl3.Caption = Format(Me.atqlbl3.Caption, "##0.00")
End If
If atqlbl.Caption <> "" And atqlbl1.Caption <> "" And atqlbl2.Caption <> "" Then
total2 = 0
Totals(0) = atqlbl.Caption * 0.25
Totals(1) = atqlbl1.Caption * 0.1
Totals(2) = atqlbl2.Caption * 0.05
total2 = CDbl(Totals(0)) + CDbl(Totals(1)) + CDbl(Totals(2))
atqlbl3.Caption = total2 / 0.4
Me.atqlbl3.Caption = Format(Me.atqlbl3.Caption, "##0.00")
End If
Set wks = Sheet2
Set addnew = wks.Range("C2").Offset(0, 0)
addnew.Offset(0, 0).Value = atqlbl3.Caption
adddata.Enabled = False
If atqlbl3.Caption <> "" Then
finallbl.Caption = atqlbl3.Caption * 0.4
Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
End If
Call calculate
Call colors
Call ChangeChart("GraphChart")
End Sub
Private Sub Button()
If obYes.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes1.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo1.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa1.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes2.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo2.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa2.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes3.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo3.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa3.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes4.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo4.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa4.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes5.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo5.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa5.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes6.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo6.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa6.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes7.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo7.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa7.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes8.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo8.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa8.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes9.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo9.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa9.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes10.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo10.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa10.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes11.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo11.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa11.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes12.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo12.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa12.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes13.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo13.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa13.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes14.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo14.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa14.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes15.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo15.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa15.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes16.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo16.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa16.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes17.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo17.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa17.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes18.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo18.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa18.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes19.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo19.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa19.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes20.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo20.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa20.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes21.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo21.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa21.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes22.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo22.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa22.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes23.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo23.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa23.Value = True Then
oblbl.Caption = oblbl.Caption
End If
End Sub
Private Sub awpEnter_Click()
Dim wks As Worksheet
Dim addnew, addnew1 As Range
Set wks = Sheet9
Set addnew = wks.Range("H3").Offset(0, 0)
If obYes.Value = True Then
addnew.Offset(0, 1).Value = obYes.Caption
ElseIf obNo.Value = True Then
addnew.Offset(0, 1).Value = obNo.Caption
ElseIf obNa.Value = True Then
addnew.Offset(0, 1).Value = obNa.Caption
End If
If obYes1.Value = True Then
addnew.Offset(0, 2).Value = obYes1.Caption
ElseIf obNo1.Value = True Then
addnew.Offset(0, 2).Value = obNo1.Caption
ElseIf obNa1.Value = True Then
addnew.Offset(0, 2).Value = obNa1.Caption
End If
If obYes2.Value = True Then
addnew.Offset(0, 3).Value = obYes2.Caption
ElseIf obNo2.Value = True Then
addnew.Offset(0, 3).Value = obNo2.Caption
ElseIf obNa2.Value = True Then
addnew.Offset(0, 3).Value = obNa2.Caption
End If
If obYes3.Value = True Then
addnew.Offset(0, 4).Value = obYes3.Caption
ElseIf obNo3.Value = True Then
addnew.Offset(0, 4).Value = obNo3.Caption
ElseIf obNa3.Value = True Then
addnew.Offset(0, 4).Value = obNa3.Caption
End If
If obYes4.Value = True Then
addnew.Offset(0, 5).Value = obYes4.Caption
ElseIf obNo4.Value = True Then
addnew.Offset(0, 5).Value = obNo4.Caption
ElseIf obNa4.Value = True Then
addnew.Offset(0, 5).Value = obNa4.Caption
End If
If obYes5.Value = True Then
addnew.Offset(0, 6).Value = obYes5.Caption
ElseIf obNo5.Value = True Then
addnew.Offset(0, 6).Value = obNo5.Caption
ElseIf obNa5.Value = True Then
addnew.Offset(0, 6).Value = obNa5.Caption
End If
If obYes6.Value = True Then
addnew.Offset(0, 7).Value = obYes6.Caption
ElseIf obNo6.Value = True Then
addnew.Offset(0, 7).Value = obNo6.Caption
ElseIf obNa6.Value = True Then
addnew.Offset(0, 7).Value = obNa6.Caption
End If
If obYes7.Value = True Then
addnew.Offset(0, 8).Value = obYes7.Caption
ElseIf obNo7.Value = True Then
addnew.Offset(0, 8).Value = obNo7.Caption
ElseIf obNa7.Value = True Then
addnew.Offset(0, 8).Value = obNa7.Caption
End If
If obYes8.Value = True Then
addnew.Offset(0, 9).Value = obYes8.Caption
ElseIf obNo8.Value = True Then
addnew.Offset(0, 9).Value = obNo8.Caption
ElseIf obNa8.Value = True Then
addnew.Offset(0, 9).Value = obNa8.Caption
End If
If obYes9.Value = True Then
addnew.Offset(0, 10).Value = obYes9.Caption
ElseIf obNo9.Value = True Then
addnew.Offset(0, 10).Value = obNo9.Caption
ElseIf obNa9.Value = True Then
addnew.Offset(0, 10).Value = obNa9.Caption
End If
If obYes10.Value = True Then
addnew.Offset(0, 11).Value = obYes10.Caption
ElseIf obNo10.Value = True Then
addnew.Offset(0, 11).Value = obNo10.Caption
ElseIf obNa10.Value = True Then
addnew.Offset(0, 11).Value = obNa10.Caption
End If
If obYes11.Value = True Then
addnew.Offset(0, 12).Value = obYes11.Caption
ElseIf obNo11.Value = True Then
addnew.Offset(0, 12).Value = obNo11.Caption
ElseIf obNa11.Value = True Then
addnew.Offset(0, 12).Value = obNa11.Caption
End If
If obYes12.Value = True Then
addnew.Offset(0, 13).Value = obYes12.Caption
ElseIf obNo12.Value = True Then
addnew.Offset(0, 13).Value = obNo12.Caption
ElseIf obNa12.Value = True Then
addnew.Offset(0, 13).Value = obNa12.Caption
End If
If obYes13.Value = True Then
addnew.Offset(0, 14).Value = obYes13.Caption
ElseIf obNo13.Value = True Then
addnew.Offset(0, 14).Value = obNo13.Caption
ElseIf obNa13.Value = True Then
addnew.Offset(0, 14).Value = obNa13.Caption
End If
If obYes14.Value = True Then
addnew.Offset(0, 15).Value = obYes14.Caption
ElseIf obNo14.Value = True Then
addnew.Offset(0, 15).Value = obNo14.Caption
ElseIf obNa14.Value = True Then
addnew.Offset(0, 15).Value = obNa14.Caption
End If
If obYes15.Value = True Then
addnew.Offset(0, 16).Value = obYes15.Caption
ElseIf obNo15.Value = True Then
addnew.Offset(0, 16).Value = obNo15.Caption
ElseIf obNa15.Value = True Then
addnew.Offset(0, 16).Value = obNa15.Caption
End If
If obYes16.Value = True Then
addnew.Offset(0, 17).Value = obYes16.Caption
ElseIf obNo16.Value = True Then
addnew.Offset(0, 17).Value = obNo16.Caption
ElseIf obNa16.Value = True Then
addnew.Offset(0, 17).Value = obNa16.Caption
End If
If obYes17.Value = True Then
addnew.Offset(0, 18).Value = obYes17.Caption
ElseIf obNo17.Value = True Then
addnew.Offset(0, 18).Value = obNo17.Caption
ElseIf obNa17.Value = True Then
addnew.Offset(0, 18).Value = obNa17.Caption
End If
If obYes18.Value = True Then
addnew.Offset(0, 19).Value = obYes18.Caption
ElseIf obNo18.Value = True Then
addnew.Offset(0, 19).Value = obNo18.Caption
ElseIf obNa18.Value = True Then
addnew.Offset(0, 19).Value = obNa18.Caption
End If
If obYes19.Value = True Then
addnew.Offset(0, 20).Value = obYes19.Caption
ElseIf obNo19.Value = True Then
addnew.Offset(0, 20).Value = obNo19.Caption
ElseIf obNa19.Value = True Then
addnew.Offset(0, 20).Value = obNa19.Caption
End If
If obYes20.Value = True Then
addnew.Offset(0, 21).Value = obYes20.Caption
ElseIf obNo20.Value = True Then
addnew.Offset(0, 21).Value = obNo20.Caption
ElseIf obNa20.Value = True Then
addnew.Offset(0, 21).Value = obNa20.Caption
End If
If obYes21.Value = True Then
addnew.Offset(0, 22).Value = obYes21.Caption
ElseIf obNo21.Value = True Then
addnew.Offset(0, 22).Value = obNo21.Caption
ElseIf obNa21.Value = True Then
addnew.Offset(0, 22).Value = obNa21.Caption
End If
If obYes22.Value = True Then
addnew.Offset(0, 23).Value = obYes22.Caption
ElseIf obNo22.Value = True Then
addnew.Offset(0, 23).Value = obNo22.Caption
ElseIf obNa22.Value = True Then
addnew.Offset(0, 23).Value = obNa22.Caption
End If
If obYes23.Value = True Then
addnew.Offset(0, 24).Value = obYes23.Caption
ElseIf obNo23.Value = True Then
addnew.Offset(0, 24).Value = obNo23.Caption
ElseIf obNa23.Value = True Then
addnew.Offset(0, 24).Value = obNa23.Caption
End If
If obYes.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes1.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo1.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa1.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes2.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo2.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa2.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes3.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo3.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa3.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes4.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo4.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa4.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes5.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo5.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa5.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes6.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo6.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa6.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes7.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo7.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa7.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes8.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo8.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa8.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes9.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo9.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa9.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes10.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo10.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa10.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes11.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo11.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa11.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes12.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo12.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa12.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes13.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo13.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa13.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes14.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo14.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa14.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes15.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo15.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa15.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes16.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo16.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa16.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes17.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo17.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa17.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes18.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo18.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa18.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes19.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo19.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa19.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes20.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo20.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa20.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes21.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo21.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa21.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes22.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo22.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa22.Value = True Then
oblbl.Caption = oblbl.Caption
End If
If obYes23.Value = True Then
oblbl.Caption = oblbl.Caption
ElseIf obNo23.Value = True Then
oblbl.Caption = oblbl.Caption - 1
ElseIf obNa23.Value = True Then
oblbl.Caption = oblbl.Caption
End If
Dim obave(2) As Double
obave(0) = 23
obave(1) = 24
If obcombo.Text = "Regular" Then
oblbl1 = (oblbl.Caption / obave(0)) * 100
Me.oblbl1.Caption = Format(Me.oblbl1.Caption, "##0.00")
ElseIf obcombo.Text = "Hybrid" Then
oblbl1 = (oblbl.Caption / obave(1)) * 100
Me.oblbl1.Caption = Format(Me.oblbl1.Caption, "##0.00")
End If
atqlbl1.Caption = oblbl1.Caption
addnew.Offset(0, 0).Value = oblbl1.Caption
Dim total2, Totals(3) As Double
If atqlbl3.Caption = "" Then
atqlbl3.Caption = (atqlbl1.Caption * 0.1) / 0.4
Me.atqlbl3.Caption = Format(Me.atqlbl3.Caption, "##0.00")
End If
If atqlbl.Caption <> "" And atqlbl1.Caption <> "" Then
total2 = 0
Totals(0) = atqlbl.Caption * 0.25
Totals(1) = atqlbl1.Caption * 0.1
total2 = CDbl(Totals(0)) + CDbl(Totals(1))
atqlbl3.Caption = total2 / 0.4
Me.atqlbl3.Caption = Format(Me.atqlbl3.Caption, "##0.00")
End If
If atqlbl1.Caption <> "" And atqlbl2.Caption <> "" Then
total2 = 0
Totals(0) = atqlbl1.Caption * 0.1
Totals(2) = atqlbl2.Caption * 0.05
total2 = CDbl(Totals(0)) + CDbl(Totals(2))
atqlbl3.Caption = total2 / 0.4
Me.atqlbl3.Caption = Format(Me.atqlbl3.Caption, "##0.00")
End If
If atqlbl.Caption <> "" And atqlbl1.Caption <> "" And atqlbl2.Caption <> "" Then
total2 = 0
Totals(0) = atqlbl.Caption * 0.25
Totals(1) = atqlbl1.Caption * 0.1
Totals(2) = atqlbl2.Caption * 0.05
total2 = CDbl(Totals(0)) + CDbl(Totals(1)) + CDbl(Totals(2))
atqlbl3.Caption = total2 / 0.4
Me.atqlbl3.Caption = Format(Me.atqlbl3.Caption, "##0.00")
End If
Set wks = Sheet2
Set addnew = wks.Range("C2").Offset(0, 0)
addnew.Offset(0, 0).Value = atqlbl3.Caption
awpEnter.Enabled = False
obcombo.Enabled = False
If atqlbl3.Caption <> "" Then
finallbl.Caption = atqlbl3.Caption * 0.4
Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
End If
Call calculate
Call colors
Call ChangeChart("GraphChart")
End Sub
Private Sub awpExit_Click()
Dim iExit As VbMsgBoxResult
iExit = MsgBox("Confirm if you want to exit.", vbQuestion + vbYesNo, "Draft Audit Quality")
If iExit = vbYes Then
Unload Me
End If
End Sub
Private Sub awpReset_Click()
Dim cont As Control
For Each cont In Me.Controls
If cont.Name Like "ob*" Then cont = vbNullString
Next
atqlbl1.Caption = ""
atqlbl3.Caption = ""
awpEnter.Enabled = False
obcombo.Enabled = True
obYes.Enabled = False
obYes1.Enabled = False
obYes2.Enabled = False
obYes3.Enabled = False
obYes4.Enabled = False
obYes5.Enabled = False
obYes6.Enabled = False
obYes7.Enabled = False
obYes8.Enabled = False
obYes9.Enabled = False
obYes10.Enabled = False
obYes11.Enabled = False
obYes12.Enabled = False
obYes13.Enabled = False
obYes14.Enabled = False
obYes15.Enabled = False
obYes16.Enabled = False
obYes17.Enabled = False
obYes18.Enabled = False
obYes19.Enabled = False
obYes20.Enabled = False
obYes21.Enabled = False
obYes22.Enabled = False
obYes23.Enabled = False
obNo.Enabled = False
obNo1.Enabled = False
obNo2.Enabled = False
obNo3.Enabled = False
obNo4.Enabled = False
obNo5.Enabled = False
obNo6.Enabled = False
obNo7.Enabled = False
obNo8.Enabled = False
obNo9.Enabled = False
obNo10.Enabled = False
obNo11.Enabled = False
obNo12.Enabled = False
obNo13.Enabled = False
obNo14.Enabled = False
obNo15.Enabled = False
obNo16.Enabled = False
obNo17.Enabled = False
obNo18.Enabled = False
obNo19.Enabled = False
obNo20.Enabled = False
obNo21.Enabled = False
obNo22.Enabled = False
obNo23.Enabled = False
obNa.Enabled = False
obNa1.Enabled = False
obNa2.Enabled = False
obNa3.Enabled = False
obNa4.Enabled = False
obNa5.Enabled = False
obNa6.Enabled = False
obNa7.Enabled = False
obNa8.Enabled = False
obNa9.Enabled = False
obNa10.Enabled = False
obNa11.Enabled = False
obNa12.Enabled = False
obNa13.Enabled = False
obNa14.Enabled = False
obNa15.Enabled = False
obNa16.Enabled = False
obNa17.Enabled = False
obNa18.Enabled = False
obNa19.Enabled = False
obNa20.Enabled = False
obNa21.Enabled = False
obNa22.Enabled = False
obNa23.Enabled = False
End Sub
Private Sub calculate()
Dim wks As Worksheet
Dim addnew As Range
Dim addup(3) As Double
Set wks = Sheet9
Set addnew = wks.Range("A3").End(xlUp).Offset(1, 0)
Dim totals2, Totalss(3) As Double
If atqlbl3.Caption <> "" And enlbl3.Caption <> "" Then
totals2 = 0
Totalss(0) = atqlbl3.Caption * 0.4
Totalss(1) = enlbl3.Caption * 0.25
totals2 = CDbl(Totalss(0)) + CDbl(Totalss(1))
finallbl.Caption = totals2
Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
End If
If atqlbl3.Caption <> "" And englbl1.Caption <> "" Then
totals2 = 0
Totalss(0) = atqlbl3.Caption * 0.4
Totalss(1) = englbl1.Caption * 0.1
totals2 = CDbl(Totalss(0)) + CDbl(Totalss(1))
finallbl.Caption = totals2
Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
End If
If atqlbl3.Caption <> "" And atblbl2.Caption <> "" Then
totals2 = 0
Totalss(0) = atqlbl3.Caption * 0.4
Totalss(1) = atblbl2.Caption * 0.25
totals2 = CDbl(Totalss(0)) + CDbl(Totalss(1))
finallbl.Caption = totals2
Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
End If
If enlbl3.Caption <> "" And englbl1.Caption <> "" Then
totals2 = 0
Totalss(0) = enlbl3.Caption * 0.25
Totalss(1) = englbl1.Caption * 0.1
totals2 = CDbl(Totalss(0)) + CDbl(Totalss(1))
finallbl.Caption = totals2
Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
End If
If enlbl3.Caption <> "" And atblbl2.Caption <> "" Then
totals2 = 0
Totalss(0) = enlbl3.Caption * 0.25
Totalss(1) = atblbl2.Caption * 0.25
totals2 = CDbl(Totalss(0)) + CDbl(Totalss(1))
finallbl.Caption = totals2
Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
End If
If atblbl2.Caption <> "" And englbl1.Caption <> "" Then
totals2 = 0
Totalss(0) = atblbl2.Caption * 0.25
Totalss(1) = englbl1.Caption * 0.1
totals2 = CDbl(Totalss(0)) + CDbl(Totalss(1))
finallbl.Caption = totals2
Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
End If
If atqlbl3.Caption <> "" And enlbl3.Caption <> "" And englbl1.Caption <> "" Then
totals2 = 0
Totalss(0) = atqlbl3.Caption * 0.4
Totalss(1) = enlbl3.Caption * 0.25
Totalss(2) = englbl1.Caption * 0.1
totals2 = CDbl(Totalss(0)) + CDbl(Totalss(1)) + CDbl(Totalss(2))
finallbl.Caption = totals2
Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
End If
If atqlbl3.Caption <> "" And enlbl3.Caption <> "" And atblbl2.Caption <> "" Then
totals2 = 0
Totalss(0) = atqlbl3.Caption * 0.4
Totalss(1) = enlbl3.Caption * 0.25
Totalss(3) = atblbl2.Caption * 0.25
totals2 = CDbl(Totalss(0)) + CDbl(Totalss(1)) + CDbl(Totalss(3))
finallbl.Caption = totals2
Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
End If
If atqlbl3.Caption <> "" And englbl1.Caption <> "" And atblbl2.Caption <> "" Then
totals2 = 0
Totalss(0) = atqlbl3.Caption * 0.4
Totalss(2) = englbl1.Caption * 0.1
Totalss(3) = atblbl2.Caption * 0.25
totals2 = CDbl(Totalss(0)) + CDbl(Totalss(2)) + CDbl(Totalss(3))
finallbl.Caption = totals2
Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
End If
If enlbl3.Caption <> "" And englbl1.Caption <> "" And atblbl2.Caption <> "" Then
totals2 = 0
Totalss(1) = enlbl3.Caption * 0.25
Totalss(2) = englbl1.Caption * 0.1
Totalss(3) = atblbl2.Caption * 0.25
totals2 = CDbl(Totalss(1)) + CDbl(Totalss(2)) + CDbl(Totalss(3))
finallbl.Caption = totals2
Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
End If
If atqlbl3.Caption <> "" And enlbl3.Caption <> "" And englbl1.Caption <> "" And atblbl2.Caption <> "" Then
totals2 = 0
Totalss(0) = atqlbl3.Caption * 0.4
Totalss(1) = enlbl3.Caption * 0.25
Totalss(2) = englbl1.Caption * 0.1
Totalss(3) = atblbl2.Caption * 0.25
totals2 = CDbl(Totalss(0)) + CDbl(Totalss(1)) + CDbl(Totalss(2)) + CDbl(Totalss(3))
finallbl.Caption = totals2
Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
End If
addnew.Offset(0, 0).Value = finallbl.Caption
Set wks = Sheet2
Set addnew = wks.Range("A2").End(xlUp).Offset(1, 0)
addnew.Offset(0, 0).Value = finallbl.Caption
End Sub
Private Sub btn01_Click()
Me.MultiPage7.Value = 0
Me.btn01.BackColor = RGB(255, 215, 0)
Call ChangeChart("GraphChart")
End Sub
Private Sub btn1_Click()
Me.MultiPage7.Value = 1
Me.btn1.BackColor = RGB(224, 224, 224)
Me.btn2.BackColor = RGB(160, 160, 160)
Me.btn3.BackColor = RGB(160, 160, 160)
Me.btn4.BackColor = RGB(160, 160, 160)
Call colors
End Sub
Private Sub btn11_Click()
Me.MultiPage5.Value = 0
Me.btn11.BackColor = RGB(224, 224, 224)
Me.btn12.BackColor = RGB(160, 160, 160)
End Sub
Private Sub btn12_Click()
Me.MultiPage5.Value = 1
Me.btn11.BackColor = RGB(160, 160, 160)
Me.btn12.BackColor = RGB(224, 224, 224)
End Sub
Private Sub btn13_Click()
Me.MultiPage6.Value = 0
Me.btn13.BackColor = RGB(224, 224, 224)
Me.btn14.BackColor = RGB(160, 160, 160)
Me.btn15.BackColor = RGB(160, 160, 160)
Me.btn16.BackColor = RGB(160, 160, 160)
End Sub
Private Sub btn14_Click()
Me.MultiPage6.Value = 1
Me.btn13.BackColor = RGB(160, 160, 160)
Me.btn14.BackColor = RGB(224, 224, 224)
Me.btn15.BackColor = RGB(160, 160, 160)
Me.btn16.BackColor = RGB(160, 160, 160)
End Sub
Private Sub btn15_Click()
Me.MultiPage6.Value = 2
Me.btn13.BackColor = RGB(160, 160, 160)
Me.btn14.BackColor = RGB(160, 160, 160)
Me.btn15.BackColor = RGB(224, 224, 224)
Me.btn16.BackColor = RGB(160, 160, 160)
End Sub
Private Sub btn16_Click()
Me.MultiPage6.Value = 3
Me.btn13.BackColor = RGB(160, 160, 160)
Me.btn14.BackColor = RGB(160, 160, 160)
Me.btn15.BackColor = RGB(160, 160, 160)
Me.btn16.BackColor = RGB(224, 224, 224)
End Sub
Private Sub btn2_Click()
Me.MultiPage7.Value = 2
Me.btn1.BackColor = RGB(160, 160, 160)
Me.btn2.BackColor = RGB(224, 224, 224)
Me.btn3.BackColor = RGB(160, 160, 160)
Me.btn4.BackColor = RGB(160, 160, 160)
Call colors
End Sub
Private Sub btn3_Click()
Me.MultiPage7.Value = 3
Me.btn1.BackColor = RGB(160, 160, 160)
Me.btn2.BackColor = RGB(160, 160, 160)
Me.btn3.BackColor = RGB(224, 224, 224)
Me.btn4.BackColor = RGB(160, 160, 160)
Call colors
End Sub
Private Sub btn4_Click()
Me.MultiPage7.Value = 4
Me.btn1.BackColor = RGB(160, 160, 160)
Me.btn2.BackColor = RGB(160, 160, 160)
Me.btn3.BackColor = RGB(160, 160, 160)
Me.btn4.BackColor = RGB(224, 224, 224)
Call colors
End Sub
Private Sub btn5_Click()
Me.MultiPage3.Value = 0
Me.btn5.BackColor = RGB(224, 224, 224)
Me.btn6.BackColor = RGB(160, 160, 160)
Me.btn7.BackColor = RGB(160, 160, 160)
End Sub
Private Sub btn6_Click()
Me.MultiPage3.Value = 1
Me.btn5.BackColor = RGB(160, 160, 160)
Me.btn6.BackColor = RGB(224, 224, 224)
Me.btn7.BackColor = RGB(160, 160, 160)
End Sub
Private Sub btn7_Click()
Me.MultiPage3.Value = 2
Me.btn5.BackColor = RGB(160, 160, 160)
Me.btn6.BackColor = RGB(160, 160, 160)
Me.btn7.BackColor = RGB(224, 224, 224)
End Sub
Private Sub btn8_Click()
Me.MultiPage2.Value = 0
Me.btn8.BackColor = RGB(224, 224, 224)
Me.btn9.BackColor = RGB(160, 160, 160)
Me.btn10.BackColor = RGB(160, 160, 160)
End Sub
Private Sub btn9_Click()
Me.MultiPage2.Value = 1
Me.btn8.BackColor = RGB(160, 160, 160)
Me.btn9.BackColor = RGB(224, 224, 224)
Me.btn10.BackColor = RGB(160, 160, 160)
End Sub
Private Sub btn10_Click()
Me.MultiPage2.Value = 2
Me.btn8.BackColor = RGB(160, 160, 160)
Me.btn9.BackColor = RGB(160, 160, 160)
Me.btn10.BackColor = RGB(224, 224, 224)
End Sub
Private Sub btndaqenter_Click()
Dim draft As Double
Dim wks As Worksheet
Dim wks1 As Worksheet
Dim addnew As Range
Dim addup(3) As Double
Set wks = Sheet9
Set addnew = wks.Range("E3").Offset(0, 0)
addnew.Offset(0, 1).Value = daqtxt.Text
If daqobyes.Value = True Then
addnew.Offset(0, 2).Value = daqobyes.Caption
ElseIf daqobno.Value = True Then
addnew.Offset(0, 2).Value = daqobno.Caption
ElseIf daqobna.Value = True Then
addnew.Offset(0, 2).Value = daqobna.Caption
End If
draft = (100 - (daqtxt.Text * 3))
If daqtxt.Text = "" Or daqtxt.Text = "-" Then
daqlbl.Caption = ""
ElseIf draft = (100 - (daqtxt.Text * 3)) Then
daqlbl.Caption = draft
Me.daqlbl.Caption = Format(Me.daqlbl.Caption, "##0.00") & "%"
End If
If daqobyes.Value = True Then
daqlbl1.Caption = "100.00%"
ElseIf daqobno.Value = True Then
daqlbl1.Caption = "0.00%"
ElseIf daqobna.Value = True Then
daqlbl1.Caption = "0.00%"
End If
addup(0) = Val(daqlbl.Caption)
addup(2) = addup(0) * 0.95
If daqobyes.Value = True Then
addup(1) = 100 * 0.05
ElseIf daqobno.Value = True Then
addup(1) = 0 * 0.05
ElseIf daqobna.Value = True Then
addup(1) = 0 * 0.05
End If
daqlbl2.Caption = addup(2) + addup(1)
Me.daqlbl2.Caption = Format(Me.daqlbl2.Caption, "##0.00")
addnew.Offset(0, 0).Value = daqlbl2.Caption
atqlbl.Caption = daqlbl2.Caption
Dim total2, Totals(3) As Double
If atqlbl3.Caption = "" Then
atqlbl3.Caption = (atqlbl.Caption * 0.25) / 0.4
Me.atqlbl3.Caption = Format(Me.atqlbl3.Caption, "##0.00")
End If
If atqlbl.Caption <> "" And atqlbl1.Caption <> "" Then
total2 = 0
Totals(0) = atqlbl.Caption * 0.25
Totals(1) = atqlbl1.Caption * 0.1
total2 = CDbl(Totals(0)) + CDbl(Totals(1))
atqlbl3.Caption = total2 / 0.4
Me.atqlbl3.Caption = Format(Me.atqlbl3.Caption, "##0.00")
End If
If atqlbl.Caption <> "" And atqlbl2.Caption <> "" Then
total2 = 0
Totals(0) = atqlbl.Caption * 0.25
Totals(2) = atqlbl2.Caption * 0.05
total2 = CDbl(Totals(0)) + CDbl(Totals(2))
atqlbl3.Caption = total2 / 0.4
Me.atqlbl3.Caption = Format(Me.atqlbl3.Caption, "##0.00")
End If
If atqlbl.Caption <> "" And atqlbl1.Caption <> "" And atqlbl2.Caption <> "" Then
total2 = 0
Totals(0) = atqlbl.Caption * 0.25
Totals(1) = atqlbl1.Caption * 0.1
Totals(2) = atqlbl2.Caption * 0.05
total2 = CDbl(Totals(0)) + CDbl(Totals(1)) + CDbl(Totals(2))
atqlbl3.Caption = total2 / 0.4
Me.atqlbl3.Caption = Format(Me.atqlbl3.Caption, "##0.00")
End If
Set wks = Sheet2
Set addnew = wks.Range("C2").Offset(0, 0)
addnew.Offset(0, 0).Value = atqlbl3.Caption
btndaqenter.Enabled = False
If atqlbl3.Caption <> "" Then
finallbl.Caption = atqlbl3.Caption * 0.4
Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
End If
Call calculate
Call colors
Call ChangeChart("GraphChart")
End Sub
Private Sub btndaqexit_Click()
Dim iExit As VbMsgBoxResult
iExit = MsgBox("Confirm if you want to exit.", vbQuestion + vbYesNo, "Draft Audit Quality")
If iExit = vbYes Then
Unload Me
End If
End Sub
Private Sub btndaqreset_Click()
Dim cont As Control
For Each cont In Me.Controls
If cont.Name Like "daq*" Then cont = vbNullString
Next
atqlbl.Caption = ""
atqlbl3.Caption = ""
btndaqenter.Enabled = True
daqtxt.SetFocus
End Sub
Private Sub btnEnter_Click()
Dim wks As Worksheet
Dim addnew As Range
Set wks = Sheet9
Set addnew = wks.Range("AT3").Offset(0, 0)
addnew.Offset(0, 1).Value = txt1.Text
addnew.Offset(0, 2).Value = txt2.Text
Dim dblNetworkDays As Long
Dim dblNetworkDays1 As Long
dblNetworkDays = -(WorksheetFunction.NetworkDays(txt1, txt2))
dblNetworkDays1 = (100 - (WorksheetFunction.NetworkDays(txt1, txt2) - 1) * 5)
If txt1.Value = "" Or txt2.Value = "" Then
lbl1.Caption = ""
ElseIf txt1.Value = txt2.Value Or txt1.Value > txt2.Value Then
lbl1.Caption = "-"
ElseIf dblNetworkDays = -(WorksheetFunction.NetworkDays(txt1, txt2)) Then
lbl1.Caption = dblNetworkDays
Me.lbl1.Caption = Format(lbl1.Caption, "[Blue]###,##(0);[Red](###,##0)")
End If
If txt1.Value = "" Or txt2.Value = "" Then
lblTotal.Caption = ""
ElseIf txt1.Value = txt2.Value Or txt1.Value > txt2.Value Then
lblTotal.Caption = "100.00"
ElseIf dblNetworkDays1 = (100 - (WorksheetFunction.NetworkDays(txt1, txt2) - 1) * 5) Then
lblTotal.Caption = dblNetworkDays1
If lblTotal.Caption <= 0 Then
lblTotal.Caption = "0.00"
End If
Me.lblTotal.Caption = Format(Me.lblTotal.Caption, "##0.00")
End If
enlbl.Caption = lblTotal.Caption
addnew.Offset(0, 0).Value = lblTotal.Caption
addnew.Offset(0, 3).Value = lbl1.Caption
Dim total2, Totals(3) As Double
If enlbl3.Caption = "" Then
enlbl3.Caption = (enlbl.Caption * 0.15) / 0.25
Me.enlbl3.Caption = Format(Me.enlbl3.Caption, "##0.00")
End If
If enlbl.Caption <> "" And enlbl1.Caption <> "" Then
total2 = 0
Totals(0) = enlbl.Caption * 0.15
Totals(1) = enlbl1.Caption * 0.05
total2 = CDbl(Totals(0)) + CDbl(Totals(1))
enlbl3.Caption = total2 / 0.25
Me.enlbl3.Caption = Format(Me.enlbl3.Caption, "##0.00")
End If
If enlbl.Caption <> "" And enlbl2.Caption <> "" Then
total2 = 0
Totals(0) = enlbl.Caption * 0.15
Totals(2) = enlbl2.Caption * 0.05
total2 = CDbl(Totals(0)) + CDbl(Totals(2))
enlbl3.Caption = total2 / 0.25
Me.enlbl3.Caption = Format(Me.enlbl3.Caption, "##0.00")
End If
If enlbl.Caption <> "" And enlbl1.Caption <> "" And enlbl2.Caption <> "" Then
total2 = 0
Totals(0) = enlbl.Caption * 0.15
Totals(1) = enlbl1.Caption * 0.05
Totals(2) = enlbl2.Caption * 0.05
total2 = CDbl(Totals(0)) + CDbl(Totals(1)) + CDbl(Totals(2))
enlbl3.Caption = total2 / 0.25
Me.enlbl3.Caption = Format(Me.enlbl3.Caption, "##0.00")
End If
Set wks = Sheet2
Set addnew = wks.Range("D2").Offset(0, 0)
addnew.Offset(0, 0).Value = enlbl3.Caption
If enlbl3.Caption <> "" Then
finallbl.Caption = enlbl3.Caption * 0.25
Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
End If
Call calculate
Call colors
Call ChangeChart("GraphChart")
End Sub
Private Sub btnEnter1_Click()
Dim wks As Worksheet
Dim addnew As Range
Set wks = Sheet9
Set addnew = wks.Range("AX3").Offset(0, 0)
addnew.Offset(0, 1).Value = txt3.Text
addnew.Offset(0, 2).Value = txt4.Text
Dim dblNetworkDays As Double
Dim dblNetworkDays1 As Double
dblNetworkDays = WorksheetFunction.NetworkDays(txt4, txt3) + 1
dblNetworkDays1 = (100 - (WorksheetFunction.NetworkDays(txt3, txt4) - 2) * 3)
If txt3.Value = "" Or txt4.Value = "" Then
lbl2.Caption = ""
ElseIf txt3.Value = txt4.Value Or txt3.Value > txt4.Value Then
lbl2.Caption = "-"
ElseIf dblNetworkDays = WorksheetFunction.NetworkDays(txt4, txt3) + 1 Then
lbl2.Caption = dblNetworkDays
Me.lbl2.Caption = Format(lbl2.Caption, "[Blue]###,##(0);[Red](###,##0)")
End If
If txt3.Value = "" Or txt4.Value = "" Then
lblTotal1.Caption = ""
ElseIf txt3.Value = txt4.Value Or txt3.Value > txt4.Value Then
lblTotal1.Caption = "100.00"
ElseIf dblNetworkDays1 = (100 - (WorksheetFunction.NetworkDays(txt3, txt4) - 2) * 3) Then
lblTotal1.Caption = dblNetworkDays1
If lblTotal1.Caption <= 0 Then
lblTotal1.Caption = "0.00"
End If
Me.lblTotal1.Caption = Format(Me.lblTotal1.Caption, "##0.00")
End If
enlbl1.Caption = lblTotal1.Caption
addnew.Offset(0, 0).Value = lblTotal1.Caption
addnew.Offset(0, 3).Value = lbl2.Caption
Dim total2, Totals(3) As Double
If enlbl3.Caption = "" Then
enlbl3.Caption = (enlbl1.Caption * 0.05) / 0.25
Me.enlbl3.Caption = Format(Me.enlbl3.Caption, "##0.00")
End If
If enlbl.Caption <> "" And enlbl1.Caption <> "" Then
total2 = 0
Totals(0) = enlbl.Caption * 0.15
Totals(1) = enlbl1.Caption * 0.05
total2 = CDbl(Totals(0)) + CDbl(Totals(1))
enlbl3.Caption = total2 / 0.25
Me.enlbl3.Caption = Format(Me.enlbl3.Caption, "##0.00")
End If
If enlbl1.Caption <> "" And enlbl2.Caption <> "" Then
total2 = 0
Totals(0) = enlbl1.Caption * 0.05
Totals(2) = enlbl2.Caption * 0.05
total2 = CDbl(Totals(0)) + CDbl(Totals(2))
enlbl3.Caption = total2 / 0.25
Me.enlbl3.Caption = Format(Me.enlbl3.Caption, "##0.00")
End If
If enlbl.Caption <> "" And enlbl1.Caption <> "" And enlbl2.Caption <> "" Then
total2 = 0
Totals(0) = enlbl.Caption * 0.15
Totals(1) = enlbl1.Caption * 0.05
Totals(2) = enlbl2.Caption * 0.05
total2 = CDbl(Totals(0)) + CDbl(Totals(1)) + CDbl(Totals(2))
enlbl3.Caption = total2 / 0.25
Me.enlbl3.Caption = Format(Me.enlbl3.Caption, "##0.00")
End If
Set wks = Sheet2
Set addnew = wks.Range("D2").Offset(0, 0)
addnew.Offset(0, 0).Value = enlbl3.Caption
If enlbl3.Caption <> "" Then
finallbl.Caption = enlbl3.Caption * 0.25
Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
End If
Call calculate
Call colors
Call ChangeChart("GraphChart")
End Sub
Private Sub btnEnter2_Click()
Dim wks As Worksheet
Dim addnew As Range
Set wks = Sheet9
Set addnew = wks.Range("BB3").Offset(0, 0)
addnew.Offset(0, 1).Value = txt5.Text
addnew.Offset(0, 2).Value = txt6.Text
Dim dblNetworkDays As Double
Dim dblNetworkDays1 As Double
dblNetworkDays = WorksheetFunction.NetworkDays(txt6, txt5) + 1
dblNetworkDays1 = (100 - (WorksheetFunction.NetworkDays(txt5, txt6) - 1) * 5)
If txt5.Value = "" Or txt6.Value = "" Then
lbl3.Caption = ""
ElseIf txt5.Value = txt6.Value Or txt5.Value > txt6.Value Then
lbl3.Caption = "-"
ElseIf dblNetworkDays = WorksheetFunction.NetworkDays(txt6, txt5) + 1 Then
lbl3.Caption = dblNetworkDays
Me.lbl3.Caption = Format(lbl3.Caption, "[Blue]###,##(0);[Red](###,##0)")
End If
If txt5.Value = "" Or txt6.Value = "" Then
lblTotal2.Caption = ""
ElseIf txt5.Value = txt6.Value Or txt5.Value > txt6.Value Then
lblTotal2.Caption = "100.00"
ElseIf dblNetworkDays1 = (100 - (WorksheetFunction.NetworkDays(txt5, txt6) - 1) * 5) Then
lblTotal2.Caption = dblNetworkDays1
If lblTotal2.Caption <= 0 Then
lblTotal2.Caption = "0.00"
End If
Me.lblTotal2.Caption = Format(Me.lblTotal2.Caption, "##0.00")
End If
enlbl2.Caption = lblTotal2.Caption
addnew.Offset(0, 0).Value = lblTotal2.Caption
addnew.Offset(0, 3).Value = lbl3.Caption
Dim total2, Totals(3) As Double
If enlbl3.Caption = "" Then
enlbl3.Caption = (enlbl2.Caption * 0.05) / 0.25
Me.enlbl3.Caption = Format(Me.enlbl3.Caption, "##0.00")
End If
If enlbl.Caption <> "" And enlbl2.Caption <> "" Then
total2 = 0
Totals(0) = enlbl.Caption * 0.15
Totals(1) = enlbl2.Caption * 0.05
total2 = CDbl(Totals(0)) + CDbl(Totals(1))
enlbl3.Caption = total2 / 0.25
Me.enlbl3.Caption = Format(Me.enlbl3.Caption, "##0.00")
End If
If enlbl1.Caption <> "" And enlbl2.Caption <> "" Then
total2 = 0
Totals(0) = enlbl1.Caption * 0.05
Totals(2) = enlbl2.Caption * 0.05
total2 = CDbl(Totals(0)) + CDbl(Totals(2))
enlbl3.Caption = total2 / 0.25
Me.enlbl3.Caption = Format(Me.enlbl3.Caption, "##0.00")
End If
If enlbl.Caption <> "" And enlbl1.Caption <> "" And enlbl2.Caption <> "" Then
total2 = 0
Totals(0) = enlbl.Caption * 0.15
Totals(1) = enlbl1.Caption * 0.05
Totals(2) = enlbl2.Caption * 0.05
total2 = CDbl(Totals(0)) + CDbl(Totals(1)) + CDbl(Totals(2))
enlbl3.Caption = total2 / 0.25
Me.enlbl3.Caption = Format(Me.enlbl3.Caption, "##0.00")
End If
Set wks = Sheet2
Set addnew = wks.Range("D2").Offset(0, 0)
addnew.Offset(0, 0).Value = enlbl3.Caption
If enlbl3.Caption <> "" Then
finallbl.Caption = enlbl3.Caption * 0.25
Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
End If
Call calculate
Call colors
Call ChangeChart("GraphChart")
End Sub
Private Sub btnexit_Click()
Dim iExit As VbMsgBoxResult
iExit = MsgBox("Confirm if you want to exit.", vbQuestion + vbYesNo, "Engagement Efficiency")
If iExit = vbYes Then
Unload Me
End If
End Sub
Private Sub btnexit1_Click()
Dim iExit As VbMsgBoxResult
iExit = MsgBox("Confirm if you want to exit.", vbQuestion + vbYesNo, "Engagement Efficiency")
If iExit = vbYes Then
Unload Me
End If
End Sub
Private Sub btnexit2_Click()
Dim iExit As VbMsgBoxResult
iExit = MsgBox("Confirm if you want to exit.", vbQuestion + vbYesNo, "Engagement Efficiency")
If iExit = vbYes Then
Unload Me
End If
End Sub
Private Sub CommandButton1_Click()
Dim wks As Worksheet
Dim addnew As Range
Set wks = Sheet9
Dim eel(2) As Double
eel(0) = eetxt.Text - eetxt1.Text
If eel(0) = eetxt.Text - eetxt1.Text Then
eelbl2.Caption = eel(0)
Me.eelbl2.Caption = Format(Me.eelbl2.Caption, "#,##0.00;(#,##0.00)")
End If
eel(1) = eetxt2.Text - eetxt3.Text
If eel(1) = eetxt2.Text - eetxt3.Text Then
eelbl3.Caption = eel(1)
Me.eelbl3.Caption = Format(Me.eelbl3.Caption, "#,##0.00;(#,##0.00)")
End If
eel(2) = eetxt4.Text - eetxt5.Text
If eel(2) = eetxt4.Text - eetxt5.Text Then
eelbl4.Caption = eel(2)
Me.eelbl4.Caption = Format(Me.eelbl4.Caption, "#,##0.00;(#,##0.00)")
End If
Dim Total As Double
Total = 0
If Len(eetxt.Value) > 0 Then Total = Total + CDbl(eetxt.Value)
If Len(eetxt2.Value) > 0 Then Total = Total + CDbl(eetxt2.Value)
If Len(eetxt4.Value) > 0 Then Total = Total + CDbl(eetxt4.Value)
eelbl.Caption = Total
Me.eelbl.Caption = Format(Me.eelbl.Caption, "#,##0.00;(#,##0.00)")
Dim Total1 As Double
Total1 = 0
If Len(eetxt1.Value) > 0 Then Total1 = Total1 + CDbl(eetxt1.Value)
If Len(eetxt3.Value) > 0 Then Total1 = Total1 + CDbl(eetxt3.Value)
If Len(eetxt5.Value) > 0 Then Total1 = Total1 + CDbl(eetxt5.Value)
eelbl1.Caption = Total1
Me.eelbl1.Caption = Format(Me.eelbl1.Caption, "#,##0.00;(#,##0.00)")
Dim semiave As Double
semiave = eelbl.Caption - eelbl1.Caption
If semiave = eelbl.Caption - eelbl1.Caption Then
eelbl5 = semiave
Me.eelbl5.Caption = Format(Me.eelbl5.Caption, "#,##0.00;(#,##0.00)")
End If
Dim j3, j4, j1, j2 As Double
j1 = ((-eelbl5.Caption / eelbl.Caption) * 100)
j2 = eelbl1.Caption
j3 = eelbl.Caption
If j2 <= j3 Then
eelbl6.Caption = "0.00"
End If
If eelbl.Caption = eelbl1.Caption Then
eelbl6.Caption = "0.00"
End If
If j2 > j3 Then
eelbl6.Caption = j1
Me.eelbl6.Caption = Format(Me.eelbl6.Caption, "##0.00")
End If
If eelbl6.Caption = "0.00" Then
eelbl7.Caption = "100.00"
End If
If eelbl6.Caption > "0.00" And eelbl6.Caption <= 5# Then
eelbl7.Caption = "95.00"
End If
If eelbl6.Caption > 5# And eelbl6.Caption <= 10# Then
eelbl7.Caption = "90.00"
End If
If eelbl6.Caption > 10# And eelbl6.Caption <= 15# Then
eelbl7.Caption = "85.00"
End If
If eelbl6.Caption > 15# And eelbl6.Caption <= 20# Then
eelbl7.Caption = "80.00"
End If
If eelbl6.Caption > 20# And eelbl6.Caption <= 25# Then
eelbl7.Caption = "75.00"
End If
If eelbl6.Caption > 25# And eelbl6.Caption <= 30# Then
eelbl7.Caption = "70.00"
End If
If eelbl6.Caption > 30# And eelbl6.Caption <= 35# Then
eelbl7.Caption = "65.00"
End If
If eelbl6.Caption > 35# And eelbl6.Caption <= 40# Then
eelbl7.Caption = "60.00"
End If
If eelbl6.Caption > 40# And eelbl6.Caption <= 45# Then
eelbl7.Caption = "55.00"
End If
If eelbl6.Caption > 45# And eelbl6.Caption <= 50# Then
eelbl7.Caption = "50.00"
End If
If eelbl6.Caption > 50# And eelbl6.Caption <= 55# Then
eelbl7.Caption = "45.00"
End If
If eelbl6.Caption > 55# And eelbl6.Caption <= 60# Then
eelbl7.Caption = "40.00"
End If
If eelbl6.Caption > 60# And eelbl6.Caption <= 65# Then
eelbl7.Caption = "35.00"
End If
If eelbl6.Caption > 65# And eelbl6.Caption <= 70# Then
eelbl7.Caption = "30.00"
End If
If eelbl6.Caption > 70# And eelbl6.Caption <= 75# Then
eelbl7.Caption = "25.00"
End If
If eelbl6.Caption > 75# Then
eelbl7.Caption = "0.00"
End If
englbl.Caption = eelbl7.Caption
englbl1.Caption = englbl.Caption
If englbl1.Caption = "" Then
englbl1.Caption = (englbl1.Caption * 0.1) / 0.1
Me.englbl1.Caption = Format(Me.englbl1.Caption, "##0.00")
End If
If englbl1.Caption <> "" Then
finallbl.Caption = englbl1.Caption * 0.1
Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
End If
Call economics
Call calculate
Call colors
Set wks = Sheet2
Set addnew = wks.Range("E2").Offset(0, 0)
addnew.Offset(0, 0).Value = englbl1.Caption
Call ChangeChart("GraphChart")
End Sub
Private Sub economics()
Dim wks As Worksheet
Dim addnew As Range
Set wks = Sheet9
Set addnew = wks.Range("BG3").Offset(0, 0)
addnew.Offset(0, 0).Value = Label65.Caption
addnew.Offset(1, 0).Value = Label69.Caption
addnew.Offset(2, 0).Value = Label71.Caption
addnew.Offset(3, 0).Value = Label70.Caption
addnew.Offset(4, 0).Value = Label77.Caption
Set addnew = wks.Range("BH3").Offset(0, 0)
addnew.Offset(0, 0).Value = leadlbl.Caption
addnew.Offset(1, 0).Value = balbl.Caption
addnew.Offset(2, 0).Value = balbl1.Caption
Set addnew = wks.Range("BI3").Offset(0, 0)
addnew.Offset(0, 0).Value = eetxt.Text
addnew.Offset(1, 0).Value = eetxt2.Text
addnew.Offset(2, 0).Value = eetxt4.Text
addnew.Offset(3, 0).Value = eelbl.Caption
Set addnew = wks.Range("BJ3").Offset(0, 0)
addnew.Offset(0, 0).Value = eetxt1.Text
addnew.Offset(1, 0).Value = eetxt3.Text
addnew.Offset(2, 0).Value = eetxt5.Text
addnew.Offset(3, 0).Value = eelbl1.Caption
Set addnew = wks.Range("BK3").Offset(0, 0)
addnew.Offset(0, 0).Value = eelbl2.Caption
addnew.Offset(1, 0).Value = eelbl3.Caption
addnew.Offset(2, 0).Value = eelbl4.Caption
addnew.Offset(3, 0).Value = eelbl5.Caption
addnew.Offset(4, 0).Value = eelbl6.Caption
Set addnew = wks.Range("BF3").Offset(0, 0)
addnew.Offset(0, 0).Value = eelbl7.Caption
End Sub
Private Sub CommandButton10_Click()
Dim wks As Worksheet
Dim addnew As Range
Dim addup(20) As Double
Set wks = Sheet9
Set addnew = wks.Range("CI3").Offset(0, 0)
If aryes.Value = True Then
addnew.Offset(0, 0).Value = aryes.Caption
ElseIf arno.Value = True Then
addnew.Offset(0, 0).Value = arno.Caption
End If
If aryes1.Value = True Then
addnew.Offset(0, 1).Value = aryes1.Caption
ElseIf arno1.Value = True Then
addnew.Offset(0, 1).Value = arno1.Caption
End If
If aryes2.Value = True Then
addnew.Offset(0, 2).Value = aryes2.Caption
ElseIf arno2.Value = True Then
addnew.Offset(0, 2).Value = arno2.Caption
End If
If aryes3.Value = True Then
addnew.Offset(0, 3).Value = aryes3.Caption
ElseIf arno3.Value = True Then
addnew.Offset(0, 3).Value = arno3.Caption
End If
If aryes4.Value = True Then
addnew.Offset(0, 4).Value = aryes4.Caption
ElseIf arno4.Value = True Then
addnew.Offset(0, 4).Value = arno4.Caption
End If
If aryes5.Value = True Then
addnew.Offset(0, 5).Value = aryes5.Caption
ElseIf arno5.Value = True Then
addnew.Offset(0, 5).Value = arno5.Caption
End If
If aryes6.Value = True Then
addnew.Offset(0, 6).Value = aryes6.Caption
ElseIf arno6.Value = True Then
addnew.Offset(0, 6).Value = arno6.Caption
End If
If aryes7.Value = True Then
addnew.Offset(0, 7).Value = aryes7.Caption
ElseIf arno7.Value = True Then
addnew.Offset(0, 7).Value = arno7.Caption
End If
If aryes8.Value = True Then
addnew.Offset(0, 8).Value = aryes8.Caption
ElseIf arno8.Value = True Then
addnew.Offset(0, 8).Value = arno8.Caption
End If
If aryes9.Value = True Then
addnew.Offset(0, 9).Value = aryes9.Caption
ElseIf arno9.Value = True Then
addnew.Offset(0, 9).Value = arno9.Caption
End If
If aryes.Value = True Then
addup(0) = 100
ElseIf arno.Value = True Then
addup(0) = 0
End If
If aryes1.Value = True Then
addup(1) = 100
ElseIf arno1.Value = True Then
addup(1) = 0
End If
If aryes2.Value = True Then
addup(2) = 100
ElseIf arno2.Value = True Then
addup(2) = 0
End If
If aryes3.Value = True Then
addup(3) = 100
ElseIf arno3.Value = True Then
addup(3) = 0
End If
If aryes4.Value = True Then
addup(4) = 100
ElseIf arno4.Value = True Then
addup(4) = 0
End If
If aryes5.Value = True Then
addup(5) = 100
ElseIf arno5.Value = True Then
addup(5) = 0
End If
If aryes6.Value = True Then
addup(6) = 100
ElseIf arno6.Value = True Then
addup(6) = 0
End If
If aryes7.Value = True Then
addup(7) = 100
ElseIf arno7.Value = True Then
addup(7) = 0
End If
If aryes8.Value = True Then
addup(8) = 100
ElseIf arno8.Value = True Then
addup(8) = 0
End If
If aryes9.Value = True Then
addup(9) = 100
ElseIf arno9.Value = True Then
addup(9) = 0
End If
addup(11) = ((addup(0) + addup(1) + addup(2) + addup(3) + addup(4) + addup(5) + addup(6) + addup(7) + addup(8) + addup(9))) / 10
termlbl5.Caption = addup(11)
Me.termlbl5.Caption = Format(Me.termlbl5.Caption, "##0.00")
Dim total2, Totals(3) As Double
If termlbl6.Caption = "" Then
termlbl6.Caption = termlbl5.Caption / 3
Me.termlbl6.Caption = Format(Me.termlbl6.Caption, "##0.00")
termlbl7.Caption = termlbl6.Caption
End If
If termlbl3.Caption <> "" And termlbl5.Caption <> "" Then
total2 = 0
Totals(0) = termlbl3.Caption
Totals(2) = termlbl5.Caption
total2 = CDbl(Totals(0)) + CDbl(Totals(2))
termlbl6.Caption = total2 / 3
Me.termlbl6.Caption = Format(Me.termlbl6.Caption, "##0.00")
termlbl7.Caption = termlbl6.Caption
End If
If termlbl4.Caption <> "" And termlbl5.Caption <> "" Then
total2 = 0
Totals(1) = termlbl4.Caption
Totals(2) = termlbl5.Caption
total2 = CDbl(Totals(1)) + CDbl(Totals(2))
termlbl6.Caption = total2 / 3
Me.termlbl6.Caption = Format(Me.termlbl6.Caption, "##0.00")
termlbl7.Caption = termlbl6.Caption
End If
If termlbl3.Caption <> "" And termlbl4.Caption <> "" And termlbl5.Caption <> "" Then
total2 = 0
Totals(0) = termlbl3.Caption
Totals(1) = termlbl4.Caption
Totals(2) = termlbl5.Caption
total2 = CDbl(Totals(0)) + CDbl(Totals(1)) + CDbl(Totals(2))
termlbl6.Caption = total2 / 3
Me.termlbl6.Caption = Format(Me.termlbl6.Caption, "##0.00")
termlbl7.Caption = termlbl6.Caption
End If
atblbl.Caption = termlbl6.Caption
Me.atblbl.Caption = Format(Me.atblbl.Caption, "##0.00")
Dim totals2, Totalss(3) As Double
If atblbl2.Caption = "" Then
atblbl2.Caption = (termlbl6.Caption * 0.15) / 0.25
Me.atblbl2.Caption = Format(Me.atblbl2.Caption, "##0.00")
End If
If atblbl2.Caption <> "" Then
atblbl2.Caption = (termlbl6.Caption * 0.15) / 0.25
Me.atblbl2.Caption = Format(Me.atblbl2.Caption, "##0.00")
End If
If atblbl.Caption <> "" And atblbl1.Caption <> "" Then
totals2 = 0
Totalss(0) = atblbl.Caption * 0.15
Totalss(1) = atblbl1.Caption * 0.1
totals2 = CDbl(Totalss(0)) + CDbl(Totalss(1))
atblbl2.Caption = totals2 / 0.25
Me.atblbl2.Caption = Format(Me.atblbl2.Caption, "##0.00")
End If
Set addnew = wks.Range("BN3").Offset(0, 0)
addnew.Offset(0, 0).Value = termlbl5.Caption
Set addnew = wks.Range("BL4").Offset(0, 0)
addnew.Offset(0, 0).Value = Label98.Caption
Set addnew = wks.Range("BM5").Offset(0, 0)
addnew.Offset(0, 0).Value = termlbl6.Caption
CommandButton10.Enabled = False
If atblbl2.Caption <> "" Then
finallbl.Caption = atblbl2.Caption * 0.25
Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
End If
Call calculate
Call colors
Set wks = Sheet2
Set addnew = wks.Range("F2").Offset(0, 0)
addnew.Offset(0, 0).Value = atblbl2.Caption
Call ChangeChart("GraphChart")
End Sub
Private Sub CommandButton12_Click()
Dim cont As Control
For Each cont In Me.Controls
If cont.Name Like "ar*" Then cont = vbNullString
Next
termlbl5.Caption = ""
termlbl6.Caption = ""
termlbl7.Caption = ""
CommandButton10.Enabled = True
atblbl.Caption = ""
atblbl2.Caption = ""
End Sub
Private Sub CommandButton13_Click()
Dim iExit As VbMsgBoxResult
iExit = MsgBox("Confirm if you want to exit.", vbQuestion + vbYesNo, "Communications and Conduct")
If iExit = vbYes Then
Unload Me
End If
End Sub
Private Sub CommandButton14_Click()
Dim wks As Worksheet
Dim addnew As Range
Dim addup(15) As Double
Set wks = Sheet9
Set addnew = wks.Range("BY3").Offset(0, 0)
If ccyes.Value = True Then
addnew.Offset(0, 0).Value = ccyes.Caption
ElseIf ccno.Value = True Then
addnew.Offset(0, 0).Value = ccno.Caption
End If
If ccyes1.Value = True Then
addnew.Offset(0, 1).Value = ccyes1.Caption
ElseIf ccno1.Value = True Then
addnew.Offset(0, 1).Value = ccno1.Caption
End If
If ccyes2.Value = True Then
addnew.Offset(0, 2).Value = ccyes2.Caption
ElseIf ccno2.Value = True Then
addnew.Offset(0, 2).Value = ccno2.Caption
End If
If ccyes3.Value = True Then
addnew.Offset(0, 3).Value = ccyes3.Caption
ElseIf ccno3.Value = True Then
addnew.Offset(0, 3).Value = ccno3.Caption
End If
If ccyes4.Value = True Then
addnew.Offset(0, 4).Value = ccyes4.Caption
ElseIf ccno4.Value = True Then
addnew.Offset(0, 4).Value = ccno4.Caption
End If
If ccyes5.Value = True Then
addnew.Offset(0, 5).Value = ccyes5.Caption
ElseIf ccno5.Value = True Then
addnew.Offset(0, 5).Value = ccno5.Caption
End If
If ccyes6.Value = True Then
addnew.Offset(0, 6).Value = ccyes6.Caption
ElseIf ccno6.Value = True Then
addnew.Offset(0, 6).Value = ccno6.Caption
End If
If ccyes7.Value = True Then
addnew.Offset(0, 7).Value = ccyes7.Caption
ElseIf ccno7.Value = True Then
addnew.Offset(0, 7).Value = ccno7.Caption
End If
If ccyes8.Value = True Then
addnew.Offset(0, 8).Value = ccyes8.Caption
ElseIf ccno8.Value = True Then
addnew.Offset(0, 8).Value = ccno8.Caption
End If
If ccyes9.Value = True Then
addnew.Offset(0, 9).Value = ccyes9.Caption
ElseIf ccno9.Value = True Then
addnew.Offset(0, 9).Value = ccno9.Caption
End If
If ccyes.Value = True Then
addup(0) = 100
ElseIf ccno.Value = True Then
addup(0) = 0
End If
If ccyes1.Value = True Then
addup(1) = 100
ElseIf ccno1.Value = True Then
addup(1) = 0
End If
If ccyes2.Value = True Then
addup(2) = 100
ElseIf ccno2.Value = True Then
addup(2) = 0
End If
If ccyes3.Value = True Then
addup(3) = 100
ElseIf ccno3.Value = True Then
addup(3) = 0
End If
If ccyes4.Value = True Then
addup(4) = 100
ElseIf ccno4.Value = True Then
addup(4) = 0
End If
If ccyes5.Value = True Then
addup(5) = 100
ElseIf ccno5.Value = True Then
addup(5) = 0
End If
If ccyes6.Value = True Then
addup(6) = 100
ElseIf ccno6.Value = True Then
addup(6) = 0
End If
If ccyes7.Value = True Then
addup(7) = 100
ElseIf ccno7.Value = True Then
addup(7) = 0
End If
If ccyes8.Value = True Then
addup(8) = 100
ElseIf ccno8.Value = True Then
addup(8) = 0
End If
If ccyes9.Value = True Then
addup(9) = 100
ElseIf ccno9.Value = True Then
addup(9) = 0
End If
addup(11) = ((addup(0) + addup(1) + addup(2) + addup(3) + addup(4) + addup(5) + addup(6) + addup(7) + addup(8) + addup(9))) / 10
termlbl4.Caption = addup(11)
Me.termlbl4.Caption = Format(Me.termlbl4.Caption, "##0.00")
Dim total2, Totals(3) As Double
If termlbl6.Caption = "" Then
termlbl6.Caption = termlbl4.Caption / 3
Me.termlbl6.Caption = Format(Me.termlbl6.Caption, "##0.00")
termlbl7.Caption = termlbl6.Caption
End If
If termlbl3.Caption <> "" And termlbl4.Caption <> "" Then
total2 = 0
Totals(0) = termlbl3.Caption
Totals(1) = termlbl4.Caption
total2 = CDbl(Totals(0)) + CDbl(Totals(1))
termlbl6.Caption = total2 / 3
Me.termlbl6.Caption = Format(Me.termlbl6.Caption, "##0.00")
termlbl7.Caption = termlbl6.Caption
End If
If termlbl4.Caption <> "" And termlbl5.Caption <> "" Then
total2 = 0
Totals(1) = termlbl4.Caption
Totals(2) = termlbl5.Caption
total2 = CDbl(Totals(1)) + CDbl(Totals(2))
termlbl6.Caption = total2 / 3
Me.termlbl6.Caption = Format(Me.termlbl6.Caption, "##0.00")
termlbl7.Caption = termlbl6.Caption
End If
If termlbl3.Caption <> "" And termlbl4.Caption <> "" And termlbl5.Caption <> "" Then
total2 = 0
Totals(0) = termlbl3.Caption
Totals(1) = termlbl4.Caption
Totals(2) = termlbl5.Caption
total2 = CDbl(Totals(0)) + CDbl(Totals(1)) + CDbl(Totals(2))
termlbl6.Caption = total2 / 3
Me.termlbl6.Caption = Format(Me.termlbl6.Caption, "##0.00")
termlbl7.Caption = termlbl6.Caption
End If
atblbl.Caption = termlbl6.Caption
Me.atblbl.Caption = Format(Me.atblbl.Caption, "##0.00")
Dim totals2, Totalss(3) As Double
If atblbl2.Caption = "" Then
atblbl2.Caption = (termlbl6.Caption * 0.15) / 0.25
Me.atblbl2.Caption = Format(Me.atblbl2.Caption, "##0.00")
End If
If atblbl2.Caption <> "" Then
atblbl2.Caption = (termlbl6.Caption * 0.15) / 0.25
Me.atblbl2.Caption = Format(Me.atblbl2.Caption, "##0.00")
End If
If atblbl.Caption <> "" And atblbl1.Caption <> "" Then
totals2 = 0
Totalss(0) = atblbl.Caption * 0.15
Totalss(1) = atblbl1.Caption * 0.1
totals2 = CDbl(Totalss(0)) + CDbl(Totalss(1))
atblbl2.Caption = totals2 / 0.25
Me.atblbl2.Caption = Format(Me.atblbl2.Caption, "##0.00")
End If
Set addnew = wks.Range("BM3").Offset(0, 0)
addnew.Offset(0, 0).Value = termlbl4.Caption
Set addnew = wks.Range("BL4").Offset(0, 0)
addnew.Offset(0, 0).Value = Label98.Caption
Set addnew = wks.Range("BM5").Offset(0, 0)
addnew.Offset(0, 0).Value = termlbl6.Caption
CommandButton14.Enabled = False
If atblbl2.Caption <> "" Then
finallbl.Caption = atblbl2.Caption * 0.25
Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
End If
Call calculate
Call colors
Set wks = Sheet2
Set addnew = wks.Range("F2").Offset(0, 0)
addnew.Offset(0, 0).Value = atblbl2.Caption
Call ChangeChart("GraphChart")
End Sub
Private Sub CommandButton16_Click()
Dim cont As Control
For Each cont In Me.Controls
If cont.Name Like "cc*" Then cont = vbNullString
Next
termlbl4.Caption = ""
termlbl6.Caption = ""
termlbl7.Caption = ""
CommandButton14.Enabled = True
atblbl.Caption = ""
atblbl2.Caption = ""
End Sub
Private Sub CommandButton17_Click()
Dim iExit As VbMsgBoxResult
iExit = MsgBox("Confirm if you want to exit.", vbQuestion + vbYesNo, "Audit Planning and Execution")
If iExit = vbYes Then
Unload Me
End If
End Sub
Private Sub CommandButton18_Click()
Dim wks As Worksheet
Dim addnew As Range
Dim addup(15) As Double
Set wks = Sheet9
Set addnew = wks.Range("BO3").Offset(0, 0)
If apeyes.Value = True Then
addnew.Offset(0, 0).Value = apeyes.Caption
ElseIf apeno.Value = True Then
addnew.Offset(0, 0).Value = apeno.Caption
End If
If apeyes1.Value = True Then
addnew.Offset(0, 1).Value = apeyes1.Caption
ElseIf apeno1.Value = True Then
addnew.Offset(0, 1).Value = apeno1.Caption
End If
If apeyes2.Value = True Then
addnew.Offset(0, 2).Value = apeyes2.Caption
ElseIf apeno2.Value = True Then
addnew.Offset(0, 2).Value = apeno2.Caption
End If
If apeyes3.Value = True Then
addnew.Offset(0, 3).Value = apeyes3.Caption
ElseIf apeno3.Value = True Then
addnew.Offset(0, 3).Value = apeno3.Caption
End If
If apeyes4.Value = True Then
addnew.Offset(0, 4).Value = apeyes4.Caption
ElseIf apeno4.Value = True Then
addnew.Offset(0, 4).Value = apeno4.Caption
End If
If apeyes5.Value = True Then
addnew.Offset(0, 5).Value = apeyes5.Caption
ElseIf apeno5.Value = True Then
addnew.Offset(0, 5).Value = apeno5.Caption
End If
If apeyes6.Value = True Then
addnew.Offset(0, 6).Value = apeyes6.Caption
ElseIf apeno6.Value = True Then
addnew.Offset(0, 6).Value = apeno6.Caption
End If
If apeyes7.Value = True Then
addnew.Offset(0, 7).Value = apeyes7.Caption
ElseIf apeno7.Value = True Then
addnew.Offset(0, 7).Value = apeno7.Caption
End If
If apeyes8.Value = True Then
addnew.Offset(0, 8).Value = apeyes8.Caption
ElseIf apeno8.Value = True Then
addnew.Offset(0, 8).Value = apeno8.Caption
End If
If apeyes9.Value = True Then
addnew.Offset(0, 9).Value = apeyes9.Caption
ElseIf apeno9.Value = True Then
addnew.Offset(0, 9).Value = apeno9.Caption
End If
If apeyes.Value = True Then
addup(0) = 100
ElseIf apeno.Value = True Then
addup(0) = 0
End If
If apeyes1.Value = True Then
addup(1) = 100
ElseIf apeno1.Value = True Then
addup(1) = 0
End If
If apeyes2.Value = True Then
addup(2) = 100
ElseIf apeno2.Value = True Then
addup(2) = 0
End If
If apeyes3.Value = True Then
addup(3) = 100
ElseIf apeno3.Value = True Then
addup(3) = 0
End If
If apeyes4.Value = True Then
addup(4) = 100
ElseIf apeno4.Value = True Then
addup(4) = 0
End If
If apeyes5.Value = True Then
addup(5) = 100
ElseIf apeno5.Value = True Then
addup(5) = 0
End If
If apeyes6.Value = True Then
addup(6) = 100
ElseIf apeno6.Value = True Then
addup(6) = 0
End If
If apeyes7.Value = True Then
addup(7) = 100
ElseIf apeno7.Value = True Then
addup(7) = 0
End If
If apeyes8.Value = True Then
addup(8) = 100
ElseIf apeno8.Value = True Then
addup(8) = 0
End If
If apeyes9.Value = True Then
addup(9) = 100
ElseIf apeno9.Value = True Then
addup(9) = 0
End If
addup(11) = ((addup(0) + addup(1) + addup(2) + addup(3) + addup(4) + addup(5) + addup(6) + addup(7) + addup(8) + addup(9))) / 10
termlbl3.Caption = addup(11)
Me.termlbl3.Caption = Format(Me.termlbl3.Caption, "##0.00")
Dim total2, Totals(3) As Double
If termlbl6.Caption = "" Then
termlbl6.Caption = termlbl3.Caption / 3
Me.termlbl6.Caption = Format(Me.termlbl6.Caption, "##0.00")
termlbl7.Caption = termlbl6.Caption
End If
If termlbl3.Caption <> "" And termlbl5.Caption <> "" Then
total2 = 0
Totals(0) = termlbl3.Caption
Totals(2) = termlbl5.Caption
total2 = CDbl(Totals(0)) + CDbl(Totals(2))
termlbl6.Caption = total2 / 3
Me.termlbl6.Caption = Format(Me.termlbl6.Caption, "##0.00")
termlbl7.Caption = termlbl6.Caption
End If
If termlbl4.Caption <> "" And termlbl3.Caption <> "" Then
total2 = 0
Totals(1) = termlbl4.Caption
Totals(0) = termlbl3.Caption
total2 = CDbl(Totals(1)) + CDbl(Totals(0))
termlbl6.Caption = total2 / 3
Me.termlbl6.Caption = Format(Me.termlbl6.Caption, "##0.00")
termlbl7.Caption = termlbl6.Caption
End If
If termlbl3.Caption <> "" And termlbl4.Caption <> "" And termlbl5.Caption <> "" Then
total2 = 0
Totals(0) = termlbl3.Caption
Totals(1) = termlbl4.Caption
Totals(2) = termlbl5.Caption
total2 = CDbl(Totals(0)) + CDbl(Totals(1)) + CDbl(Totals(2))
termlbl6.Caption = total2 / 3
Me.termlbl6.Caption = Format(Me.termlbl6.Caption, "##0.00")
termlbl7.Caption = termlbl6.Caption
End If
atblbl.Caption = termlbl6.Caption
Me.atblbl.Caption = Format(Me.atblbl.Caption, "##0.00")
Dim totals2, Totalss(3) As Double
If atblbl2.Caption = "" Then
atblbl2.Caption = (termlbl6.Caption * 0.15) / 0.25
Me.atblbl2.Caption = Format(Me.atblbl2.Caption, "##0.00")
End If
If atblbl2.Caption <> "" Then
atblbl2.Caption = (termlbl6.Caption * 0.15) / 0.25
Me.atblbl2.Caption = Format(Me.atblbl2.Caption, "##0.00")
End If
If atblbl.Caption <> "" And atblbl1.Caption <> "" Then
totals2 = 0
Totalss(0) = atblbl.Caption * 0.15
Totalss(1) = atblbl1.Caption * 0.1
totals2 = CDbl(Totalss(0)) + CDbl(Totalss(1))
atblbl2.Caption = totals2 / 0.25
Me.atblbl2.Caption = Format(Me.atblbl2.Caption, "##0.00")
End If
Set addnew = wks.Range("BL3").Offset(0, 0)
addnew.Offset(0, 0).Value = termlbl3.Caption
Set addnew = wks.Range("BL4").Offset(0, 0)
addnew.Offset(0, 0).Value = Label98.Caption
Set addnew = wks.Range("BM5").Offset(0, 0)
addnew.Offset(0, 0).Value = termlbl6.Caption
CommandButton18.Enabled = False
If atblbl2.Caption <> "" Then
finallbl.Caption = atblbl2.Caption * 0.25
Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
End If
Call calculate
Call colors
Set wks = Sheet2
Set addnew = wks.Range("F2").Offset(0, 0)
addnew.Offset(0, 0).Value = atblbl2.Caption
Call ChangeChart("GraphChart")
End Sub
Private Sub CommandButton2_Click()
Dim iExit As VbMsgBoxResult
iExit = MsgBox("Confirm if you want to exit.", vbQuestion + vbYesNo, "Engagement Economics")
If iExit = vbYes Then
Unload Me
End If
End Sub
Private Sub CommandButton20_Click()
Dim cont As Control
For Each cont In Me.Controls
If cont.Name Like "ape*" Then cont = vbNullString
Next
termlbl3.Caption = ""
termlbl6.Caption = ""
termlbl7.Caption = ""
CommandButton18.Enabled = True
atblbl.Caption = ""
atblbl2.Caption = ""
End Sub
Private Sub CommandButton21_Click()
Dim wks As Worksheet
Dim addnew As Range
Set wks = Sheet9
Set addnew = wks.Range("CS3").Offset(0, 0)
addnew.Offset(0, 0).Value = TextBox2.Text
End Sub
Private Sub CommandButton22_Click()
Dim iExit As VbMsgBoxResult
iExit = MsgBox("Confirm if you want to exit.", vbQuestion + vbYesNo, "Audit Reporting")
If iExit = vbYes Then
Unload Me
End If
End Sub
Private Sub CommandButton4_Click()
Dim cont As Control
For Each cont In Me.Controls
If cont.Name Like "ee*" Then cont = vbNullString
Next
CommandButton1.Enabled = False
englbl.Caption = ""
englbl1.Caption = ""
End Sub
Private Sub CommandButton5_Click()
Dim wks As Worksheet
Dim addnew As Range
Set wks = Sheet9
If teamtxt.Text = "" Then
teamtxt.Text = 0
End If
If teamtxt1.Text = "" Then
teamtxt1.Text = 0
End If
If teamtxt2.Text = "" Then
teamtxt2.Text = 0
End If
If teamtxt3.Text = "" Then
teamtxt3.Text = 0
End If
If teamtxt4.Text = "" Then
teamtxt4.Text = 0
End If
If teamtxt5.Text = "" Then
teamtxt5.Text = 0
End If
Dim Total As Double
Total = 0
If Len(teamtxt.Value) > 0 Then Total = Total + CDbl(teamtxt.Value)
If Len(teamtxt1.Value) > 0 Then Total = Total + CDbl(teamtxt1.Value)
If Len(teamtxt2.Value) > 0 Then Total = Total + CDbl(teamtxt2.Value)
teamlbl.Caption = Total
Me.teamlbl.Caption = Format(teamlbl.Caption, "###,##0;(###,##0)")
Dim Total1 As Double
Total1 = 0
If Len(teamtxt3.Value) > 0 Then Total1 = Total1 + CDbl(teamtxt3.Value)
If Len(teamtxt4.Value) > 0 Then Total1 = Total1 + CDbl(teamtxt4.Value)
If Len(teamtxt5.Value) > 0 Then Total1 = Total1 + CDbl(teamtxt5.Value)
teamlbl1.Caption = Total1
Me.teamlbl1.Caption = Format(teamlbl1.Caption, "###,##0;(###,##0)")
Dim teams As Double
teams = ((10 - (teamlbl.Caption * 1)) * 6) + ((10 - (teamlbl1.Caption * 1)) * 4)
If teams = ((10 - (teamlbl.Caption * 1)) * 6) + ((10 - (teamlbl1.Caption * 1)) * 4) Then
teamlbl2.Caption = teams
Me.teamlbl2.Caption = Format(Me.teamlbl2.Caption, "##0.00")
End If
atblbl1.Caption = teamlbl2.Caption
Dim totals2, Totalss(3) As Double
If atblbl2.Caption = "" Then
atblbl2.Caption = (atblbl1.Caption * 0.1) / 0.25
Me.atblbl2.Caption = Format(Me.atblbl2.Caption, "##0.00")
End If
If atblbl.Caption <> "" And atblbl1.Caption <> "" Then
totals2 = 0
Totalss(0) = atblbl.Caption * 0.15
Totalss(1) = atblbl1.Caption * 0.1
totals2 = CDbl(Totalss(0)) + CDbl(Totalss(1))
atblbl2.Caption = totals2 / 0.25
Me.atblbl2.Caption = Format(Me.atblbl2.Caption, "##0.00")
End If
If atblbl2.Caption <> "" Then
finallbl.Caption = atblbl2.Caption * 0.25
Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
End If
Call behavior
Call calculate
Call colors
Set wks = Sheet2
Set addnew = wks.Range("F2").Offset(0, 0)
addnew.Offset(0, 0).Value = atblbl2.Caption
Call ChangeChart("GraphChart")
End Sub
Private Sub behavior()
Dim wks As Worksheet
Dim addnew As Range
Set wks = Sheet9
Set addnew = wks.Range("CU3").Offset(0, 0)
addnew.Offset(0, 0).Value = Label162.Caption
addnew.Offset(1, 0).Value = Label163.Caption
addnew.Offset(2, 0).Value = Label164.Caption
addnew.Offset(3, 0).Value = Label118.Caption
Set addnew = wks.Range("CV3").Offset(0, 0)
addnew.Offset(0, 0).Value = leadlbl1.Caption
addnew.Offset(1, 0).Value = balbl2.Caption
addnew.Offset(2, 0).Value = balbl3.Caption
Set addnew = wks.Range("CW3").Offset(0, 0)
addnew.Offset(0, 0).Value = teamtxt.Text
addnew.Offset(1, 0).Value = teamtxt1.Text
addnew.Offset(2, 0).Value = teamtxt2.Text
addnew.Offset(3, 0).Value = teamlbl.Caption
Set addnew = wks.Range("CX3").Offset(0, 0)
addnew.Offset(0, 0).Value = teamtxt3.Text
addnew.Offset(1, 0).Value = teamtxt4.Text
addnew.Offset(2, 0).Value = teamtxt5.Text
addnew.Offset(3, 0).Value = teamlbl1.Caption
Set addnew = wks.Range("CT3").Offset(0, 0)
addnew.Offset(0, 0).Value = teamlbl2.Caption
End Sub
Private Sub CommandButton6_Click()
Dim iExit As VbMsgBoxResult
iExit = MsgBox("Confirm if you want to exit.", vbQuestion + vbYesNo, "Team Behavior")
If iExit = vbYes Then
Unload Me
End If
End Sub
Private Sub CommandButton8_Click()
Dim cont As Control
For Each cont In Me.Controls
If cont.Name Like "team*" Then cont = vbNullString
Next
atblbl2.Caption = ""
End Sub
Private Sub CommandButton9_Click()
Dim iExit As VbMsgBoxResult
iExit = MsgBox("Confirm if you want to exit.", vbQuestion + vbYesNo, "Audit Reporting")
If iExit = vbYes Then
Unload Me
End If
End Sub
Private Sub daqtxt_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim draft As Double
If daqtxt.Value = "" Then
daqtxt.Text = 0
ElseIf Not IsNumeric(daqtxt.Value) Then
MsgBox "Only numbers allowed"
Cancel = True
End If
End Sub
Private Sub eetxt_AfterUpdate()
Me.eetxt.Text = Format(Me.eetxt.Text, "#,##0.00;(#,##0.00)")
End Sub
Private Sub eetxt1_AfterUpdate()
Me.eetxt1.Text = Format(Me.eetxt1.Text, "#,##0.00;(#,##0.00)")
End Sub
Private Sub eetxt2_AfterUpdate()
Me.eetxt2.Text = Format(Me.eetxt2.Text, "#,##0.00;(#,##0.00)")
End Sub
Private Sub eetxt3_AfterUpdate()
Me.eetxt3.Text = Format(Me.eetxt3.Text, "#,##0.00;(#,##0.00)")
End Sub
Private Sub eetxt4_AfterUpdate()
Me.eetxt4.Text = Format(Me.eetxt4.Text, "#,##0.00;(#,##0.00)")
End Sub
Private Sub eetxt5_AfterUpdate()
Me.eetxt5.Text = Format(Me.eetxt5.Text, "#,##0.00;(#,##0.00)")
End Sub
Private Sub eetxt_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim draft As Double
If eetxt.Value = "" Then
MsgBox "Textbox is empty!"
Cancel = True
ElseIf Not IsNumeric(eetxt.Value) Then
MsgBox "Only numbers allowed"
Cancel = True
End If
If eetxt.Text <> "" And eetxt1.Text <> "" And eetxt2.Text <> "" And eetxt3.Text <> "" And eetxt4.Text <> "" And eetxt5.Text <> "" Then
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
End If
Call economics
End Sub
Private Sub eetxt5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim draft As Double
If eetxt5.Value = "" Then
MsgBox "Textbox is empty!"
Cancel = True
ElseIf Not IsNumeric(eetxt5.Value) Then
MsgBox "Only numbers allowed"
Cancel = True
End If
If eetxt.Text <> "" And eetxt1.Text <> "" And eetxt2.Text <> "" And eetxt3.Text <> "" And eetxt4.Text <> "" And eetxt5.Text <> "" Then
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
End If
Call economics
End Sub
Private Sub eetxt1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim draft As Double
If eetxt1.Value = "" Then
MsgBox "Textbox is empty!"
Cancel = True
ElseIf Not IsNumeric(eetxt1.Value) Then
MsgBox "Only numbers allowed"
Cancel = True
End If
If eetxt.Text <> "" And eetxt1.Text <> "" And eetxt2.Text <> "" And eetxt3.Text <> "" And eetxt4.Text <> "" And eetxt5.Text <> "" Then
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
End If
Call economics
End Sub
Private Sub eetxt2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim draft As Double
If eetxt2.Value = "" Then
MsgBox "Textbox is empty!"
Cancel = True
ElseIf Not IsNumeric(eetxt2.Value) Then
MsgBox "Only numbers allowed"
Cancel = True
End If
If eetxt.Text <> "" And eetxt1.Text <> "" And eetxt2.Text <> "" And eetxt3.Text <> "" And eetxt4.Text <> "" And eetxt5.Text <> "" Then
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
End If
Call economics
End Sub
Private Sub eetxt3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim draft As Double
If eetxt3.Value = "" Then
MsgBox "Textbox is empty!"
Cancel = True
ElseIf Not IsNumeric(eetxt3.Value) Then
MsgBox "Only numbers allowed"
Cancel = True
End If
If eetxt.Text <> "" And eetxt1.Text <> "" And eetxt2.Text <> "" And eetxt3.Text <> "" And eetxt4.Text <> "" And eetxt5.Text <> "" Then
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
End If
Call economics
End Sub
Private Sub eetxt4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim draft As Double
If eetxt4.Value = "" Then
MsgBox "Textbox is empty!"
Cancel = True
ElseIf Not IsNumeric(eetxt4.Value) Then
MsgBox "Only numbers allowed"
Cancel = True
End If
If eetxt.Text <> "" And eetxt1.Text <> "" And eetxt2.Text <> "" And eetxt3.Text <> "" And eetxt4.Text <> "" And eetxt5.Text <> "" Then
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
End If
Call economics
End Sub
Private Sub exit1_Click()
Dim iExit As VbMsgBoxResult
iExit = MsgBox("Confirm if you want to exit.", vbQuestion + vbYesNo, "Engagement Communications")
If iExit = vbYes Then
Unload Me
End If
End Sub
Private Sub obcombo_Change()
If (obcombo.Text = "Regular") Then
oblbl.Caption = 23
ElseIf (obcombo.Text = "Hybrid") Then
oblbl.Caption = 24
End If
If (obcombo.Text = "Regular") Then
awpEnter.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
awpEnter.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obYes.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obYes.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNo.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNo.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNa.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNa.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obYes1.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obYes1.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNo1.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNo1.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNa1.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNa1.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obYes2.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obYes2.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNo2.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNo2.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNa2.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNa2.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obYes3.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obYes3.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNo3.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNo3.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNa3.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNa3.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obYes4.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obYes4.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNo4.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNo4.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNa4.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNa4.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obYes5.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obYes5.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNo5.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNo5.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNa5.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNa5.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obYes6.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obYes6.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNo6.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNo6.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNa6.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNa6.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obYes7.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obYes7.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNo7.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNo7.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNa7.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNa7.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obYes8.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obYes8.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNo8.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNo8.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNa8.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNa8.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obYes9.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obYes9.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNo9.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNo9.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNa9.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNa9.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obYes10.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obYes10.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNo10.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNo10.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNa10.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNa10.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obYes11.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obYes11.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNo11.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNo11.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNa11.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNa11.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obYes12.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obYes12.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNo12.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNo12.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNa12.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNa12.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obYes13.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obYes13.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNo13.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNo13.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNa13.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNa13.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obYes14.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obYes14.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNo14.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNo14.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNa14.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNa14.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obYes15.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obYes15.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNo15.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNo15.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNa15.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNa15.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obYes16.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obYes16.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNo16.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNo16.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNa16.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNa16.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obYes17.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obYes17.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNo17.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNo17.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNa17.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNa17.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obYes18.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obYes18.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNo18.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNo18.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNa18.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNa18.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obYes19.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obYes19.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNo19.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNo19.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNa19.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNa19.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obYes20.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obYes20.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNo20.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNo20.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNa20.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNa20.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obYes21.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obYes21.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNo21.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNo21.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNa21.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNa21.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obYes22.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obYes22.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNo22.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNo22.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNa22.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNa22.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obYes23.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obYes23.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNo23.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNo23.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNo23.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNo23.Enabled = True
End If
If (obcombo.Text = "Regular") Then
obNa23.Enabled = True
ElseIf (obcombo.Text = "Hybrid") Then
obNa23.Enabled = True
End If
Call awp
End Sub
Private Sub pesatcb_Change()
TextBox6.Text = pesatcb.Text
End Sub
Private Sub pesatcb1_Change()
TextBox8.Text = pesatcb1.Text
End Sub
Private Sub pesatcb2_Change()
TextBox7.Text = pesatcb2.Text
End Sub
Private Sub reset_Click()
Dim cont As Control
For Each cont In Me.Controls
If cont.Name Like "ec*" Then cont = vbNullString
Next
atqlbl2.Caption = ""
atqlbl3.Caption = ""
adddata.Enabled = True
End Sub
Private Sub teamtxt_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(teamtxt.Value) Then
MsgBox "Only numbers allowed"
Cancel = True
End If
Call behavior
End Sub
Private Sub teamtxt1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(teamtxt1.Value) Then
MsgBox "Only numbers allowed"
Cancel = True
End If
Call behavior
End Sub
Private Sub teamtxt2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(teamtxt2.Value) Then
MsgBox "Only numbers allowed"
Cancel = True
End If
Call behavior
End Sub
Private Sub teamtxt3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(teamtxt3.Value) Then
MsgBox "Only numbers allowed"
Cancel = True
End If
Call behavior
End Sub
Private Sub teamtxt4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(teamtxt4.Value) Then
MsgBox "Only numbers allowed"
Cancel = True
End If
Call behavior
End Sub
Private Sub teamtxt5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(teamtxt5.Value) Then
MsgBox "Only numbers allowed"
Cancel = True
End If
Call behavior
End Sub
Private Sub TextBox1_Change()
TextBox1.Value = _
Application _
.WorksheetFunction _
.Proper(TextBox1.Value)
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim wks As Worksheet
Dim addnew As Range
Set wks = Sheet9
Set addnew = wks.Range("B3").Offset(0, 0)
addnew.Offset(0, 0).Value = TextBox1.Text
End Sub
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If TextBox2.SelStart = 0 Then KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim wks As Worksheet
Dim addnew As Range
Set wks = Sheet9
Set addnew = wks.Range("D3").Offset(0, 0)
If TextBox4.Text <> "" Then
If IsDate(TextBox4.Text) Then
TextBox4.Text = Format(TextBox4.Text, "mmmm dd, yyyy")
Else
MsgBox "Please enter a valid date!"
Cancel = True
End If
End If
addnew.Offset(0, 0).Value = TextBox4.Text
End Sub
Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim wks As Worksheet
Dim addnew As Range
Set wks = Sheet9
Set addnew = wks.Range("C3").Offset(0, 0)
If TextBox5.Text <> "" Then
If IsDate(TextBox5.Text) Then
TextBox5.Text = Format(TextBox5.Text, "mmmm dd, yyyy")
Else
MsgBox "Please enter a valid date!"
Cancel = True
End If
End If
addnew.Offset(0, 0).Value = TextBox5.Text
End Sub
Private Sub TextBox6_Change()
Dim wks As Worksheet
Dim addnew As Range
Set wks = Sheet9
Set addnew = wks.Range("CV3").Offset(0, 0)
addnew.Offset(0, 0).Value = TextBox6.Text
Set addnew = wks.Range("BH3").Offset(0, 0)
addnew.Offset(0, 0).Value = TextBox6.Text
leadlbl.Caption = TextBox6.Text
leadlbl1.Caption = TextBox6.Text
End Sub
Private Sub TextBox7_Change()
Dim wks As Worksheet
Dim addnew As Range
Set wks = Sheet9
Set addnew = wks.Range("CV5").Offset(0, 0)
addnew.Offset(0, 0).Value = TextBox7.Text
Set addnew = wks.Range("BH5").Offset(0, 0)
addnew.Offset(0, 0).Value = TextBox7.Text
balbl1.Caption = TextBox7.Text
balbl3.Caption = TextBox7.Text
End Sub
Private Sub TextBox8_Change()
Dim wks As Worksheet
Dim addnew As Range
Set wks = Sheet9
Set addnew = wks.Range("CV4").Offset(0, 0)
addnew.Offset(0, 0).Value = TextBox8.Text
Set addnew = wks.Range("BH4").Offset(0, 0)
addnew.Offset(0, 0).Value = TextBox8.Text
balbl.Caption = TextBox8.Text
balbl2.Caption = TextBox8.Text
End Sub
Private Sub txt1_Enter()
If txt1.Text = txt1.Tag Then
txt1.Value = vbNullString
txt1.ForeColor = vbBlack
End If
End Sub
Private Sub txt1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If txt1.Text <> "" Then
If IsDate(txt1.Text) Then
txt1.Text = Format(txt1.Text, "mm/dd/yyyy")
Else
MsgBox "Please enter a valid date!"
Cancel = True
End If
End If
If Len(txt1.Text) = 0 Then
txt1.Text = txt1.Tag
txt1.ForeColor = &HFFFFFF
End If
If IsDate(txt1.Text) And IsDate(txt2.Text) Then
btnEnter.Enabled = True
Else
btnEnter.Enabled = False
End If
End Sub
Private Sub txt2_Enter()
If txt2.Text = txt2.Tag Then
txt2.Value = vbNullString
txt2.ForeColor = vbBlack
End If
End Sub
Private Sub txt2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If txt2.Text <> "" Then
If IsDate(txt2.Text) Then
txt2.Text = Format(txt2.Text, "mm/dd/yyyy")
btnEnter.Enabled = True
Else
btnEnter.Enabled = False
MsgBox "Please enter a valid date!"
Cancel = True
End If
End If
If Len(txt2.Text) = 0 Then
txt2.Text = txt2.Tag
txt2.ForeColor = &HFFFFFF
End If
If IsDate(txt1.Text) And IsDate(txt2.Text) Then
btnEnter.Enabled = True
Else
btnEnter.Enabled = False
End If
End Sub
Private Sub txt3_Enter()
If txt3.Text = txt3.Tag Then
txt3.Value = vbNullString
txt3.ForeColor = vbBlack
End If
End Sub
Private Sub txt3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If txt3.Text <> "" Then
If IsDate(txt3.Text) Then
txt3.Text = Format(txt3.Text, "mm/dd/yyyy")
Else
MsgBox "Please enter a valid date!"
Cancel = True
End If
End If
If Len(txt3.Text) = 0 Then
txt3.Text = txt3.Tag
txt3.ForeColor = &HFFFFFF
End If
If IsDate(txt3.Text) And IsDate(txt4.Text) Then
btnEnter1.Enabled = True
Else
btnEnter1.Enabled = False
End If
End Sub
Private Sub txt4_Enter()
If txt4.Text = txt4.Tag Then
txt4.Value = vbNullString
txt4.ForeColor = vbBlack
End If
End Sub
Private Sub txt4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If txt4.Text <> "" Then
If IsDate(txt4.Text) Then
txt4.Text = Format(txt4.Text, "mm/dd/yyyy")
Else
MsgBox "Please enter a valid date!"
Cancel = True
End If
End If
If Len(txt4.Text) = 0 Then
txt4.Text = txt4.Tag
txt4.ForeColor = &HFFFFFF
End If
If IsDate(txt3.Text) And IsDate(txt4.Text) Then
btnEnter1.Enabled = True
Else
btnEnter1.Enabled = False
End If
End Sub
Private Sub txt5_Enter()
If txt5.Text = txt5.Tag Then
txt5.Value = vbNullString
txt5.ForeColor = vbBlack
End If
End Sub
Private Sub txt5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If txt5.Text <> "" Then
If IsDate(txt5.Text) Then
txt5.Text = Format(txt5.Text, "mm/dd/yyyy")
Else
MsgBox "Please enter a valid date!"
Cancel = True
End If
End If
If Len(txt5.Text) = 0 Then
txt5.Text = txt5.Tag
txt5.ForeColor = &HFFFFFF
End If
If IsDate(txt5.Text) And IsDate(txt6.Text) Then
btnEnter2.Enabled = True
Else
btnEnter2.Enabled = False
End If
End Sub
Private Sub txt6_Enter()
If txt6.Text = txt6.Tag Then
txt6.Value = vbNullString
txt6.ForeColor = vbBlack
End If
End Sub
Private Sub txt6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If txt6.Text <> "" Then
If IsDate(txt6.Text) Then
txt6.Text = Format(txt6.Text, "mm/dd/yyyy")
Else
MsgBox "Please enter a valid date!"
Cancel = True
End If
End If
If Len(txt6.Text) = 0 Then
txt6.Text = txt6.Tag
txt6.ForeColor = &HFFFFFF
End If
If IsDate(txt5.Text) And IsDate(txt6.Text) Then
btnEnter2.Enabled = True
Else
btnEnter2.Enabled = False
End If
End Sub
Private Sub colors()
If atqlbl.Caption = "" Or atqlbl1.Caption = "" Or atqlbl2.Caption = "" Then
Me.btn1.BackColor = RGB(255, 0, 0)
Else
Me.btn1.BackColor = RGB(0, 255, 0)
End If
If enlbl.Caption = "" Or enlbl1.Caption = "" Or enlbl2.Caption = "" Then
Me.btn2.BackColor = RGB(255, 0, 0)
Else
Me.btn2.BackColor = RGB(0, 255, 0)
End If
If englbl.Caption = "" Then
Me.btn3.BackColor = RGB(255, 0, 0)
Else
Me.btn3.BackColor = RGB(0, 255, 0)
End If
If atblbl.Caption = "" Or atblbl1.Caption = "" Then
Me.btn4.BackColor = RGB(255, 0, 0)
Else
Me.btn2.BackColor = RGB(0, 255, 0)
End If
End Sub
Private Sub datas()
Dim wks As Worksheet
Set wks = Sheet9
Me.finallbl = wks.Range("A3").Offset(0, 0)
Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
Me.TextBox1 = wks.Range("B3").Offset(0, 0)
Me.TextBox5 = wks.Range("C3").Offset(0, 0)
TextBox5.Text = Format(TextBox5.Text, "mmmm dd, yyyy")
Me.TextBox4 = wks.Range("D3").Offset(0, 0)
TextBox4.Text = Format(TextBox4.Text, "mmmm dd, yyyy")
daqlbl2.Caption = wks.Range("E3").Offset(0, 0)
Me.daqlbl2.Caption = Format(Me.daqlbl2.Caption, "##0.00")
oblbl1.Caption = wks.Range("H3").Offset(0, 0)
Me.oblbl1.Caption = Format(Me.oblbl1.Caption, "##0.00")
daqtxt.Text = wks.Range("F3").Offset(0, 0)
If wks.Range("G3").Offset(0, 0).Text = "Yes" Then
daqobyes.Value = True
ElseIf wks.Range("G3").Offset(0, 0).Text = "No" Then
daqobno.Value = True
ElseIf wks.Range("G3").Offset(0, 0).Text = "N/A" Then
daqobna.Value = True
End If
eclbl2.Caption = wks.Range("AG3").Offset(0, 0)
Me.eclbl2.Caption = Format(Me.eclbl2.Caption, "##0.00")
If wks.Range("AH3").Offset(0, 0).Text = "Yes" Then
ecYes.Value = True
ElseIf wks.Range("AH3").Offset(0, 0).Text = "No" Then
ecNo.Value = True
ElseIf wks.Range("AH3").Offset(0, 0).Text = "N/A" Then
ecNa.Value = True
End If
If wks.Range("AI3").Offset(0, 0).Text = "Yes" Then
ecYes1.Value = True
ElseIf wks.Range("AI3").Offset(0, 0).Text = "No" Then
ecNo1.Value = True
ElseIf wks.Range("AI3").Offset(0, 0).Text = "N/A" Then
ecNa1.Value = True
End If
If wks.Range("AJ3").Offset(0, 0).Text = "Yes" Then
ecYes2.Value = True
ElseIf wks.Range("AJ3").Offset(0, 0).Text = "No" Then
ecNo2.Value = True
ElseIf wks.Range("AJ3").Offset(0, 0).Text = "N/A" Then
ecNa2.Value = True
End If
If wks.Range("AK3").Offset(0, 0).Text = "Yes" Then
ecYes3.Value = True
ElseIf wks.Range("AK3").Offset(0, 0).Text = "No" Then
ecNo3.Value = True
ElseIf wks.Range("AK3").Offset(0, 0).Text = "N/A" Then
ecNa3.Value = True
End If
If wks.Range("AL3").Offset(0, 0).Text = "Yes" Then
ecYes4.Value = True
ElseIf wks.Range("AL3").Offset(0, 0).Text = "No" Then
ecNo4.Value = True
ElseIf wks.Range("AL3").Offset(0, 0).Text = "N/A" Then
ecNa4.Value = True
End If
If wks.Range("AM3").Offset(0, 0).Text = "Yes" Then
ecYes5.Value = True
ElseIf wks.Range("AM3").Offset(0, 0).Text = "No" Then
ecNo5.Value = True
ElseIf wks.Range("AM3").Offset(0, 0).Text = "N/A" Then
ecNa5.Value = True
End If
If wks.Range("AN3").Offset(0, 0).Text = "Yes" Then
ecYes6.Value = True
ElseIf wks.Range("AN3").Offset(0, 0).Text = "No" Then
ecNo6.Value = True
ElseIf wks.Range("AN3").Offset(0, 0).Text = "N/A" Then
ecNa6.Value = True
End If
If wks.Range("AO3").Offset(0, 0).Text = "Yes" Then
ecYes7.Value = True
ElseIf wks.Range("AO3").Offset(0, 0).Text = "No" Then
ecNo7.Value = True
ElseIf wks.Range("AO3").Offset(0, 0).Text = "N/A" Then
ecNa7.Value = True
End If
If wks.Range("AP3").Offset(0, 0).Text = "Yes" Then
ecYes8.Value = True
ElseIf wks.Range("AP3").Offset(0, 0).Text = "No" Then
ecNo8.Value = True
ElseIf wks.Range("AP3").Offset(0, 0).Text = "N/A" Then
ecNa8.Value = True
End If
If wks.Range("AQ3").Offset(0, 0).Text = "Yes" Then
ecYes9.Value = True
ElseIf wks.Range("AQ3").Offset(0, 0).Text = "No" Then
ecNo9.Value = True
ElseIf wks.Range("AQ3").Offset(0, 0).Text = "N/A" Then
ecNa9.Value = True
End If
If wks.Range("AR3").Offset(0, 0).Text = "Yes" Then
ecYes10.Value = True
ElseIf wks.Range("AR3").Offset(0, 0).Text = "No" Then
ecNo10.Value = True
ElseIf wks.Range("AR3").Offset(0, 0).Text = "N/A" Then
ecNa10.Value = True
End If
If wks.Range("AS3").Offset(0, 0).Text = "Yes" Then
ecYes11.Value = True
ElseIf wks.Range("AS3").Offset(0, 0).Text = "No" Then
ecNo11.Value = True
ElseIf wks.Range("AS3").Offset(0, 0).Text = "N/A" Then
ecNa11.Value = True
End If
lblTotal.Caption = wks.Range("AT3").Offset(0, 0)
Me.lblTotal.Caption = Format(Me.lblTotal.Caption, "##0.00")
txt1.Text = wks.Range("AU3").Offset(0, 0)
txt1.ForeColor = vbBlack
txt1.Text = Format(txt1.Text, "mm/dd/yyyy")
txt2.Text = wks.Range("AV3").Offset(0, 0)
txt2.ForeColor = vbBlack
txt2.Text = Format(txt2.Text, "mm/dd/yyyy")
lbl1.Caption = wks.Range("AW3").Offset(0, 0)
lblTotal1.Caption = wks.Range("AX3").Offset(0, 0)
Me.lblTotal1.Caption = Format(Me.lblTotal1.Caption, "##0.00")
txt3.Text = wks.Range("AY3").Offset(0, 0)
txt3.ForeColor = vbBlack
txt3.Text = Format(txt3.Text, "mm/dd/yyyy")
txt4.Text = wks.Range("AZ3").Offset(0, 0)
txt4.ForeColor = vbBlack
txt4.Text = Format(txt4.Text, "mm/dd/yyyy")
lbl2.Caption = wks.Range("BA3").Offset(0, 0)
lblTotal2.Caption = wks.Range("BB3").Offset(0, 0)
Me.lblTotal2.Caption = Format(Me.lblTotal2.Caption, "##0.00")
txt5.Text = wks.Range("BC3").Offset(0, 0)
txt5.ForeColor = vbBlack
txt5.Text = Format(txt5.Text, "mm/dd/yyyy")
txt6.Text = wks.Range("BD3").Offset(0, 0)
txt6.ForeColor = vbBlack
txt6.Text = Format(txt6.Text, "mm/dd/yyyy")
lbl3.Caption = wks.Range("BE3").Offset(0, 0)
End Sub
Private Sub awp()
Set wks = Sheet9
If wks.Range("I3").Offset(0, 0).Text = "Yes" Then
obYes.Value = True
ElseIf wks.Range("I3").Offset(0, 0).Text = "No" Then
obNo.Value = True
ElseIf wks.Range("I3").Offset(0, 0).Text = "N/A" Then
obNa.Value = True
End If
If wks.Range("J3").Offset(0, 0).Text = "Yes" Then
obYes1.Value = True
ElseIf wks.Range("J3").Offset(0, 0).Text = "No" Then
obNo1.Value = True
ElseIf wks.Range("J3").Offset(0, 0).Text = "N/A" Then
obNa1.Value = True
End If
If wks.Range("K3").Offset(0, 0).Text = "Yes" Then
obYes2.Value = True
ElseIf wks.Range("K3").Offset(0, 0).Text = "No" Then
obNo2.Value = True
ElseIf wks.Range("K3").Offset(0, 0).Text = "N/A" Then
obNa2.Value = True
End If
If wks.Range("L3").Offset(0, 0).Text = "Yes" Then
obYes3.Value = True
ElseIf wks.Range("L3").Offset(0, 0).Text = "No" Then
obNo3.Value = True
ElseIf wks.Range("L3").Offset(0, 0).Text = "N/A" Then
obNa3.Value = True
End If
If wks.Range("M3").Offset(0, 0).Text = "Yes" Then
obYes4.Value = True
ElseIf wks.Range("M3").Offset(0, 0).Text = "No" Then
obNo4.Value = True
ElseIf wks.Range("M3").Offset(0, 0).Text = "N/A" Then
obNa4.Value = True
End If
If wks.Range("N3").Offset(0, 0).Text = "Yes" Then
obYes5.Value = True
ElseIf wks.Range("N3").Offset(0, 0).Text = "No" Then
obNo5.Value = True
ElseIf wks.Range("N3").Offset(0, 0).Text = "N/A" Then
obNa5.Value = True
End If
If wks.Range("O3").Offset(0, 0).Text = "Yes" Then
obYes6.Value = True
ElseIf wks.Range("O3").Offset(0, 0).Text = "No" Then
obNo6.Value = True
ElseIf wks.Range("O3").Offset(0, 0).Text = "N/A" Then
obNa6.Value = True
End If
If wks.Range("P3").Offset(0, 0).Text = "Yes" Then
obYes7.Value = True
ElseIf wks.Range("P3").Offset(0, 0).Text = "No" Then
obNo7.Value = True
ElseIf wks.Range("P3").Offset(0, 0).Text = "N/A" Then
obNa7.Value = True
End If
If wks.Range("Q3").Offset(0, 0).Text = "Yes" Then
obYes8.Value = True
ElseIf wks.Range("Q3").Offset(0, 0).Text = "No" Then
obNo8.Value = True
ElseIf wks.Range("Q3").Offset(0, 0).Text = "N/A" Then
obNa8.Value = True
End If
If wks.Range("R3").Offset(0, 0).Text = "Yes" Then
obYes9.Value = True
ElseIf wks.Range("R3").Offset(0, 0).Text = "No" Then
obNo9.Value = True
ElseIf wks.Range("R3").Offset(0, 0).Text = "N/A" Then
obNa9.Value = True
End If
If wks.Range("S3").Offset(0, 0).Text = "Yes" Then
obYes10.Value = True
ElseIf wks.Range("S3").Offset(0, 0).Text = "No" Then
obNo10.Value = True
ElseIf wks.Range("S3").Offset(0, 0).Text = "N/A" Then
obNa10.Value = True
End If
If wks.Range("T3").Offset(0, 0).Text = "Yes" Then
obYes11.Value = True
ElseIf wks.Range("T3").Offset(0, 0).Text = "No" Then
obNo11.Value = True
ElseIf wks.Range("T3").Offset(0, 0).Text = "N/A" Then
obNa11.Value = True
End If
If wks.Range("U3").Offset(0, 0).Text = "Yes" Then
obYes12.Value = True
ElseIf wks.Range("U3").Offset(0, 0).Text = "No" Then
obNo12.Value = True
ElseIf wks.Range("U3").Offset(0, 0).Text = "N/A" Then
obNa12.Value = True
End If
If wks.Range("V3").Offset(0, 0).Text = "Yes" Then
obYes13.Value = True
ElseIf wks.Range("V3").Offset(0, 0).Text = "No" Then
obNo13.Value = True
ElseIf wks.Range("V3").Offset(0, 0).Text = "N/A" Then
obNa13.Value = True
End If
If wks.Range("W3").Offset(0, 0).Text = "Yes" Then
obYes14.Value = True
ElseIf wks.Range("W3").Offset(0, 0).Text = "No" Then
obNo14.Value = True
ElseIf wks.Range("W3").Offset(0, 0).Text = "N/A" Then
obNa14.Value = True
End If
If wks.Range("X3").Offset(0, 0).Text = "Yes" Then
obYes15.Value = True
ElseIf wks.Range("X3").Offset(0, 0).Text = "No" Then
obNo15.Value = True
ElseIf wks.Range("X3").Offset(0, 0).Text = "N/A" Then
obNa15.Value = True
End If
If wks.Range("Y3").Offset(0, 0).Text = "Yes" Then
obYes16.Value = True
ElseIf wks.Range("Y3").Offset(0, 0).Text = "No" Then
obNo16.Value = True
ElseIf wks.Range("Y3").Offset(0, 0).Text = "N/A" Then
obNa16.Value = True
End If
If wks.Range("Z3").Offset(0, 0).Text = "Yes" Then
obYes17.Value = True
ElseIf wks.Range("Z3").Offset(0, 0).Text = "No" Then
obNo17.Value = True
ElseIf wks.Range("Z3").Offset(0, 0).Text = "N/A" Then
obNa17.Value = True
End If
If wks.Range("AA3").Offset(0, 0).Text = "Yes" Then
obYes18.Value = True
ElseIf wks.Range("AA3").Offset(0, 0).Text = "No" Then
obNo18.Value = True
ElseIf wks.Range("AA3").Offset(0, 0).Text = "N/A" Then
obNa18.Value = True
End If
If wks.Range("AB3").Offset(0, 0).Text = "Yes" Then
obYes19.Value = True
ElseIf wks.Range("AB3").Offset(0, 0).Text = "No" Then
obNo19.Value = True
ElseIf wks.Range("AB3").Offset(0, 0).Text = "N/A" Then
obNa19.Value = True
End If
If wks.Range("AC3").Offset(0, 0).Text = "Yes" Then
obYes20.Value = True
ElseIf wks.Range("AC3").Offset(0, 0).Text = "No" Then
obNo20.Value = True
ElseIf wks.Range("AC3").Offset(0, 0).Text = "N/A" Then
obNa20.Value = True
End If
If wks.Range("AD3").Offset(0, 0).Text = "Yes" Then
obYes21.Value = True
ElseIf wks.Range("AD3").Offset(0, 0).Text = "No" Then
obNo21.Value = True
ElseIf wks.Range("AD3").Offset(0, 0).Text = "N/A" Then
obNa21.Value = True
End If
If wks.Range("AE3").Offset(0, 0).Text = "Yes" Then
obYes22.Value = True
ElseIf wks.Range("AE3").Offset(0, 0).Text = "No" Then
obNo22.Value = True
ElseIf wks.Range("AE3").Offset(0, 0).Text = "N/A" Then
obNa22.Value = True
End If
If wks.Range("AF3").Offset(0, 0).Text = "Yes" Then
obYes23.Value = True
ElseIf wks.Range("AF3").Offset(0, 0).Text = "No" Then
obNo23.Value = True
ElseIf wks.Range("AF3").Offset(0, 0).Text = "N/A" Then
obNa23.Value = True
End If
End Sub
Private Sub pesat()
Dim wks As Worksheet
Set wks = Sheet9
TextBox6.Text = wks.Range("BH3").Offset(0, 0)
TextBox8.Text = wks.Range("BH4").Offset(0, 0)
TextBox7.Text = wks.Range("BH5").Offset(0, 0)
End Sub
Private Sub engagementeconomics()
Dim wks As Worksheet
Set wks = Sheet9
eelbl7.Caption = wks.Range("BF3").Offset(0, 0)
Me.eelbl7.Caption = Format(Me.eelbl7.Caption, "##0.00")
eetxt.Text = wks.Range("BI3").Offset(0, 0)
Me.eetxt.Text = Format(Me.eetxt.Text, "#,##0.00;(#,##0.00)")
eetxt1.Text = wks.Range("BJ3").Offset(0, 0)
Me.eetxt1.Text = Format(Me.eetxt1.Text, "#,##0.00;(#,##0.00)")
eetxt2.Text = wks.Range("BI4").Offset(0, 0)
Me.eetxt2.Text = Format(Me.eetxt2.Text, "#,##0.00;(#,##0.00)")
eetxt3.Text = wks.Range("BJ4").Offset(0, 0)
Me.eetxt3.Text = Format(Me.eetxt3.Text, "#,##0.00;(#,##0.00)")
eetxt4.Text = wks.Range("BI5").Offset(0, 0)
Me.eetxt4.Text = Format(Me.eetxt4.Text, "#,##0.00;(#,##0.00)")
eetxt5.Text = wks.Range("BJ5").Offset(0, 0)
Me.eetxt5.Text = Format(Me.eetxt5.Text, "#,##0.00;(#,##0.00)")
eelbl.Caption = wks.Range("BI6").Offset(0, 0)
Me.eelbl.Caption = Format(Me.eelbl.Caption, "#,##0.00;(#,##0.00)")
eelbl1.Caption = wks.Range("BJ6").Offset(0, 0)
Me.eelbl1.Caption = Format(Me.eelbl1.Caption, "#,##0.00;(#,##0.00)")
eelbl2.Caption = wks.Range("BK3").Offset(0, 0)
Me.eelbl2.Caption = Format(Me.eelbl2.Caption, "#,##0.00;(#,##0.00)")
eelbl3.Caption = wks.Range("BK4").Offset(0, 0)
Me.eelbl3.Caption = Format(Me.eelbl3.Caption, "#,##0.00;(#,##0.00)")
eelbl4.Caption = wks.Range("BK5").Offset(0, 0)
Me.eelbl4.Caption = Format(Me.eelbl4.Caption, "#,##0.00;(#,##0.00)")
eelbl5.Caption = wks.Range("BK6").Offset(0, 0)
Me.eelbl5.Caption = Format(Me.eelbl5.Caption, "#,##0.00;(#,##0.00)")
eelbl6.Caption = wks.Range("BK7").Offset(0, 0)
Me.eelbl6.Caption = Format(Me.eelbl6.Caption, "##0.00")
If eetxt.Text <> "" And eetxt1.Text <> "" And eetxt2.Text <> "" And eetxt3.Text <> "" And eetxt4.Text <> "" And eetxt5.Text <> "" Then
CommandButton1.Enabled = True
End If
End Sub
Private Sub attendace()
Dim wks As Worksheet
Set wks = Sheet9
termlbl3.Caption = wks.Range("BL3").Offset(0, 0)
Me.termlbl3.Caption = Format(Me.termlbl3.Caption, "##0.00")
termlbl4.Caption = wks.Range("BM3").Offset(0, 0)
Me.termlbl4.Caption = Format(Me.termlbl4.Caption, "##0.00")
termlbl5.Caption = wks.Range("BN3").Offset(0, 0)
Me.termlbl5.Caption = Format(Me.termlbl5.Caption, "##0.00")
termlbl6.Caption = wks.Range("BM5").Offset(0, 0)
Me.termlbl6.Caption = Format(Me.termlbl6.Caption, "##0.00")
termlbl7.Caption = wks.Range("BM5").Offset(0, 0)
Me.termlbl7.Caption = Format(Me.termlbl7.Caption, "##0.00")
teamtxt.Text = wks.Range("CW3").Offset(0, 0)
teamtxt1.Text = wks.Range("CW4").Offset(0, 0)
teamtxt2.Text = wks.Range("CW5").Offset(0, 0)
teamtxt3.Text = wks.Range("CX3").Offset(0, 0)
teamtxt4.Text = wks.Range("CX4").Offset(0, 0)
teamtxt5.Text = wks.Range("CX5").Offset(0, 0)
teamlbl.Caption = wks.Range("CW6").Offset(0, 0)
teamlbl1.Caption = wks.Range("CX6").Offset(0, 0)
teamlbl2.Caption = wks.Range("CT3").Offset(0, 0)
Me.teamlbl2.Caption = Format(Me.teamlbl2.Caption, "##0.00")
End Sub
Private Sub score()
Dim wks As Worksheet
Set wks = Sheet9
If wks.Range("BO3").Offset(0, 0).Text = "Yes" Then
apeyes.Value = True
ElseIf wks.Range("BO3").Offset(0, 0).Text = "No" Then
apeno.Value = True
End If
If wks.Range("BP3").Offset(0, 0).Text = "Yes" Then
apeyes1.Value = True
ElseIf wks.Range("BP3").Offset(0, 0).Text = "No" Then
apeno1.Value = True
End If
If wks.Range("BQ3").Offset(0, 0).Text = "Yes" Then
apeyes2.Value = True
ElseIf wks.Range("BQ3").Offset(0, 0).Text = "No" Then
apeno2.Value = True
End If
If wks.Range("BR3").Offset(0, 0).Text = "Yes" Then
apeyes3.Value = True
ElseIf wks.Range("BR3").Offset(0, 0).Text = "No" Then
apeno3.Value = True
End If
If wks.Range("BS3").Offset(0, 0).Text = "Yes" Then
apeyes4.Value = True
ElseIf wks.Range("BS3").Offset(0, 0).Text = "No" Then
apeno4.Value = True
End If
If wks.Range("BT3").Offset(0, 0).Text = "Yes" Then
apeyes5.Value = True
ElseIf wks.Range("BT3").Offset(0, 0).Text = "No" Then
apeno5.Value = True
End If
If wks.Range("BU3").Offset(0, 0).Text = "Yes" Then
apeyes6.Value = True
ElseIf wks.Range("BU3").Offset(0, 0).Text = "No" Then
apeno6.Value = True
End If
If wks.Range("BV3").Offset(0, 0).Text = "Yes" Then
apeyes7.Value = True
ElseIf wks.Range("BV3").Offset(0, 0).Text = "No" Then
apeno7.Value = True
End If
If wks.Range("BW3").Offset(0, 0).Text = "Yes" Then
apeyes8.Value = True
ElseIf wks.Range("BW3").Offset(0, 0).Text = "No" Then
apeno8.Value = True
End If
If wks.Range("BX3").Offset(0, 0).Text = "Yes" Then
apeyes9.Value = True
ElseIf wks.Range("BX3").Offset(0, 0).Text = "No" Then
apeno9.Value = True
End If
If wks.Range("BY3").Offset(0, 0).Text = "Yes" Then
ccyes.Value = True
ElseIf wks.Range("BY3").Offset(0, 0).Text = "No" Then
ccno.Value = True
End If
If wks.Range("BZ3").Offset(0, 0).Text = "Yes" Then
ccyes1.Value = True
ElseIf wks.Range("BZ3").Offset(0, 0).Text = "No" Then
ccno1.Value = True
End If
If wks.Range("CA3").Offset(0, 0).Text = "Yes" Then
ccyes2.Value = True
ElseIf wks.Range("CA3").Offset(0, 0).Text = "No" Then
ccno2.Value = True
End If
If wks.Range("CB3").Offset(0, 0).Text = "Yes" Then
ccyes3.Value = True
ElseIf wks.Range("CB3").Offset(0, 0).Text = "No" Then
ccno3.Value = True
End If
If wks.Range("CC3").Offset(0, 0).Text = "Yes" Then
ccyes4.Value = True
ElseIf wks.Range("CC3").Offset(0, 0).Text = "No" Then
ccno4.Value = True
End If
If wks.Range("CD3").Offset(0, 0).Text = "Yes" Then
ccyes5.Value = True
ElseIf wks.Range("CD3").Offset(0, 0).Text = "No" Then
ccno5.Value = True
End If
If wks.Range("CE3").Offset(0, 0).Text = "Yes" Then
ccyes6.Value = True
ElseIf wks.Range("CE3").Offset(0, 0).Text = "No" Then
ccno6.Value = True
End If
If wks.Range("CF3").Offset(0, 0).Text = "Yes" Then
ccyes7.Value = True
ElseIf wks.Range("CF3").Offset(0, 0).Text = "No" Then
ccno7.Value = True
End If
If wks.Range("CG3").Offset(0, 0).Text = "Yes" Then
ccyes8.Value = True
ElseIf wks.Range("CG3").Offset(0, 0).Text = "No" Then
ccno8.Value = True
End If
If wks.Range("CH3").Offset(0, 0).Text = "Yes" Then
ccyes9.Value = True
ElseIf wks.Range("CH3").Offset(0, 0).Text = "No" Then
ccno9.Value = True
End If
If wks.Range("CI3").Offset(0, 0).Text = "Yes" Then
aryes.Value = True
ElseIf wks.Range("CI3").Offset(0, 0).Text = "No" Then
arno.Value = True
End If
If wks.Range("CJ3").Offset(0, 0).Text = "Yes" Then
aryes1.Value = True
ElseIf wks.Range("CJ3").Offset(0, 0).Text = "No" Then
arno1.Value = True
End If
If wks.Range("CK3").Offset(0, 0).Text = "Yes" Then
aryes2.Value = True
ElseIf wks.Range("CK3").Offset(0, 0).Text = "No" Then
arno2.Value = True
End If
If wks.Range("CL3").Offset(0, 0).Text = "Yes" Then
aryes3.Value = True
ElseIf wks.Range("CL3").Offset(0, 0).Text = "No" Then
arno3.Value = True
End If
If wks.Range("CM3").Offset(0, 0).Text = "Yes" Then
aryes4.Value = True
ElseIf wks.Range("CM3").Offset(0, 0).Text = "No" Then
arno4.Value = True
End If
If wks.Range("CN3").Offset(0, 0).Text = "Yes" Then
aryes5.Value = True
ElseIf wks.Range("CN3").Offset(0, 0).Text = "No" Then
arno5.Value = True
End If
If wks.Range("CO3").Offset(0, 0).Text = "Yes" Then
aryes6.Value = True
ElseIf wks.Range("CO3").Offset(0, 0).Text = "No" Then
arno6.Value = True
End If
If wks.Range("CP3").Offset(0, 0).Text = "Yes" Then
aryes7.Value = True
ElseIf wks.Range("CP3").Offset(0, 0).Text = "No" Then
arno7.Value = True
End If
If wks.Range("CQ3").Offset(0, 0).Text = "Yes" Then
aryes8.Value = True
ElseIf wks.Range("CQ3").Offset(0, 0).Text = "No" Then
arno8.Value = True
End If
If wks.Range("CR3").Offset(0, 0).Text = "Yes" Then
aryes9.Value = True
ElseIf wks.Range("CR3").Offset(0, 0).Text = "No" Then
arno9.Value = True
End If
TextBox2.Text = wks.Range("CS3").Offset(0, 0)
End Sub
Private Sub average()
Dim wks As Worksheet
Set wks = Sheet2
atqlbl3.Caption = wks.Range("C2").Offset(0, 0)
Me.atqlbl3.Caption = Format(Me.atqlbl3.Caption, "##0.00")
atqlbl.Caption = daqlbl2.Caption
atqlbl1.Caption = oblbl1.Caption
atqlbl2.Caption = eclbl2.Caption
enlbl3.Caption = wks.Range("D2").Offset(0, 0)
Me.enlbl3.Caption = Format(Me.enlbl3.Caption, "##0.00")
enlbl.Caption = lblTotal.Caption
enlbl1.Caption = lblTotal1.Caption
enlbl2.Caption = lblTotal2.Caption
englbl1.Caption = wks.Range("E2").Offset(0, 0)
Me.englbl1.Caption = Format(Me.englbl1.Caption, "##0.00")
englbl.Caption = eelbl7.Caption
atblbl2.Caption = wks.Range("F2").Offset(0, 0)
Me.atblbl2.Caption = Format(Me.atblbl2.Caption, "##0.00")
atblbl.Caption = termlbl7.Caption
atblbl1.Caption = teamlbl2.Caption
End Sub
Private Sub UserForm_Initialize()
' pesatcb.Text = "Select"
pesatcb.AddItem "Antony E.Clarin"
pesatcb.AddItem "Lester Cris D. Collantes"
pesatcb.AddItem "Elmer V.Pegarido"
'pesatcb1.Text = "Select"
pesatcb1.AddItem "April Rose C. Tejero"
pesatcb1.AddItem "Aprilyn E. Soriano"
pesatcb1.AddItem "Arberto B. Buot"
pesatcb1.AddItem "Ben Cesar P. Pando"
pesatcb1.AddItem "Bobby G. Tabugoca"
pesatcb1.AddItem "Elleanor D. Dalapo"
pesatcb1.AddItem "Elmer V. Pegarido"
pesatcb1.AddItem "Elpidio Jr. C. Portal"
pesatcb1.AddItem "Jessa Ervina B. Gerilla"
pesatcb1.AddItem "Jesus A. Bordonada"
pesatcb1.AddItem "Jose O. Lepiten Jr."
pesatcb1.AddItem "Lailani N. Danlag"
pesatcb1.AddItem "Ma.Daryl M. Descartin"
pesatcb1.AddItem "Marvin B. Basa"
pesatcb1.AddItem "Mary Grace M. Guyapa"
pesatcb1.AddItem "Mork Ian O. Sarmiento"
pesatcb1.AddItem "Reynaldo Jr. P. Infante"
pesatcb1.AddItem "Roland Manuel M. Alado"
pesatcb1.AddItem "Ronel S. Abasolo"
' pesatcb2.Text = "Select"
pesatcb2.AddItem "April Rose C. Tejero"
pesatcb2.AddItem "Aprilyn E. Soriano"
pesatcb2.AddItem "Arberto B. Buot"
pesatcb2.AddItem "Ben Cesar P. Pando"
pesatcb2.AddItem "Bobby G. Tabugoca"
pesatcb2.AddItem "Elleanor D. Dalapo"
pesatcb2.AddItem "Elmer V. Pegarido"
pesatcb2.AddItem "Elpidio Jr. C. Portal"
pesatcb2.AddItem "Jessa Ervina B. Gerilla"
pesatcb2.AddItem "Jesus A. Bordonada"
pesatcb2.AddItem "Jose O. Lepiten Jr."
pesatcb2.AddItem "Lailani N. Danlag"
pesatcb2.AddItem "Ma.Daryl M. Descartin"
pesatcb2.AddItem "Marvin B. Basa"
pesatcb2.AddItem "Mary Grace M. Guyapa"
pesatcb2.AddItem "Mork Ian O. Sarmiento"
pesatcb2.AddItem "Reynaldo Jr. P. Infante"
pesatcb2.AddItem "Roland Manuel M. Alado"
pesatcb2.AddItem "Ronel S. Abasolo"
pesatcb.Style = fmStyleDropDownCombo
pesatcb1.Style = fmStyleDropDownCombo
pesatcb2.Style = fmStyleDropDownCombo
obcombo.AddItem "Regular"
obcombo.AddItem "Hybrid"
obcombo.Style = fmStyleDropDownList
awpEnter.Enabled = False
finallbl.Caption = "0.00%"
Call datas
Call pesat
Call engagementeconomics
Call attendace
Call score
Call average
' Call dates
Me.MultiPage7.Value = 0
Me.btn01.BackColor = RGB(255, 215, 0)
Me.btn1.BackColor = RGB(224, 224, 224)
Me.btn2.BackColor = RGB(160, 160, 160)
Me.btn3.BackColor = RGB(160, 160, 160)
Me.btn4.BackColor = RGB(160, 160, 160)
Me.MultiPage3.Value = 0
Me.btn5.BackColor = RGB(224, 224, 224)
Me.btn6.BackColor = RGB(160, 160, 160)
Me.btn7.BackColor = RGB(160, 160, 160)
Me.MultiPage2.Value = 0
Me.btn8.BackColor = RGB(224, 224, 224)
Me.btn9.BackColor = RGB(160, 160, 160)
Me.btn10.BackColor = RGB(160, 160, 160)
Me.MultiPage5.Value = 0
Me.btn11.BackColor = RGB(224, 224, 224)
Me.btn12.BackColor = RGB(160, 160, 160)
Me.MultiPage6.Value = 0
Me.btn13.BackColor = RGB(224, 224, 224)
Me.btn14.BackColor = RGB(160, 160, 160)
Me.btn15.BackColor = RGB(160, 160, 160)
Me.btn16.BackColor = RGB(160, 160, 160)
Call ChangeChart("GraphChart")
Call colors
End Sub
'Private Sub UserForm_Terminate()
'ThisWorkbook.Save
'ActiveWorkbook.Close SaveChanges:=False
'End Sub
Last edited:
