VBA Close With Save Causes Runtime Error

Status
Not open for further replies.

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:

Excel Facts

VLOOKUP to Left?
Use =VLOOKUP(A2,CHOOSE({1,2},$Z$1:$Z$99,$Y$1:$Y$99),2,False) to lookup Y values to left of Z values.
Status
Not open for further replies.

Forum statistics

Threads
1,213,536
Messages
6,114,208
Members
448,554
Latest member
Gleisner2

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top