ProlificCSVMacro4.bas

Attribute VB_Name = "Prolific04"
Sub Results02()
Attribute Results02.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Results02 Macro
'

'
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Results"
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "Approved"
    Range("A4").Select
    ActiveCell.FormulaR1C1 = "Returned"
    Range("A5").Select
    ActiveCell.FormulaR1C1 = "Awaiting Review"
    Range("A6").Select
    ActiveCell.FormulaR1C1 = "Rejected"
    Range("A8").Select
    ActiveCell.FormulaR1C1 = "Approval Rating"
    Range("A10").Select
    ActiveCell.FormulaR1C1 = "Time Worked"
    Range("A12").Select
    ActiveCell.FormulaR1C1 = "Reward £"
    Range("A13").Select
    ActiveCell.FormulaR1C1 = "Bonus £"
    Range("A14").Select
    ActiveCell.FormulaR1C1 = "Reward $"
    Range("A15").Select
    ActiveCell.FormulaR1C1 = "Bonus $"
    Range("A17").Select
    ActiveCell.FormulaR1C1 = "Total $"
    Range("A18").Select
    ActiveCell.FormulaR1C1 = "Total £ Converted to $"
    Range("A20").Select
    ActiveCell.FormulaR1C1 = "Total Earned"
    Range("A22").Select
    ActiveCell.FormulaR1C1 = "P/H Rate"
    Range("B3").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIF(my_prolific_submission_history!C[8], ""APPROVED"")"
    Range("B4").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIF(my_prolific_submission_history!C[8], ""RETURNED"")"
    Range("B5").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIF(my_prolific_submission_history!C[8], ""AWAITING REVIEW"")"
    Range("B6").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIF(my_prolific_submission_history!C[8], ""REJECTED"")"
    Range("B8").Select
    ActiveCell.FormulaR1C1 = "=TEXT(R[-5]C / (R[-5]C + R[-2]C), ""0.00%"")"
    Range("B8").Select
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("B10").Select
    ActiveCell.FormulaR1C1 = "=SUM(my_prolific_submission_history[Time Taken])"
    Range("B12").Select
    ActiveCell.FormulaR1C1 = _
        "=ROUND(SUMIFS(my_prolific_submission_history!C, my_prolific_submission_history!C[8], ""<>RETURNED"", my_prolific_submission_history!C[8], ""<>REJECTED"", my_prolific_submission_history!C[8], ""<>AWAITING REVIEW""), 2)"
    Range("B13").Select
    ActiveCell.FormulaR1C1 = "=SUM(my_prolific_submission_history[Bonus £])"
    Range("B14").Select
    ActiveCell.FormulaR1C1 = _
        "=ROUND(SUMIFS(my_prolific_submission_history!C[2], my_prolific_submission_history!C[8], ""<>RETURNED"", my_prolific_submission_history!C[8], ""<>REJECTED"", my_prolific_submission_history!C[8], ""<>AWAITING REVIEW""), 2)"
    Range("B15").Select
    ActiveCell.FormulaR1C1 = "=SUM(my_prolific_submission_history[Bonus $])"
    Range("B17").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-3]C,R[-2]C)"
    Range("B18").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-6]C+R[-5]C)*1.2677446"
    Range("B20").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-3]C,R[-2]C)"
    Range("B22").Select
    ActiveCell.FormulaR1C1 = "=R[-2]C / (R[-12]C * 24)"
    Range("B10").Select
    Selection.NumberFormat = "[h]:mm:ss"
	Range("B13").Select
    Selection.NumberFormat = _
        "_-[$£-en-GB]* #,##0.00_-;-[$£-en-GB]* #,##0.00_-;_-[$£-en-GB]* ""-""??_-;_-@_-"
	Range("B15").Select
    Selection.NumberFormat = _
        "_-[$$-en-US]* #,##0.00_ ;_-[$$-en-US]* -#,##0.00 ;_-[$$-en-US]* ""-""??_ ;_-@_ "
	Range("B17").Select
    Selection.NumberFormat = _
        "_-[$$-en-US]* #,##0.00_ ;_-[$$-en-US]* -#,##0.00 ;_-[$$-en-US]* ""-""??_ ;_-@_ "
	Range("B18").Select
    Selection.NumberFormat = _
        "_-[$$-en-US]* #,##0.00_ ;_-[$$-en-US]* -#,##0.00 ;_-[$$-en-US]* ""-""??_ ;_-@_ "
    Range("B14").Select
    Selection.NumberFormat = _
        "_-[$$-en-US]* #,##0.00_ ;_-[$$-en-US]* -#,##0.00 ;_-[$$-en-US]* ""-""??_ ;_-@_ "
    Range("B12").Select
    Selection.NumberFormat = _
        "_-[$£-en-GB]* #,##0.00_-;-[$£-en-GB]* #,##0.00_-;_-[$£-en-GB]* ""-""??_-;_-@_-"
    Range("B20").Select
    Selection.NumberFormat = _
        "_-[$$-en-US]* #,##0.00_ ;_-[$$-en-US]* -#,##0.00 ;_-[$$-en-US]* ""-""??_ ;_-@_ "
	Range("B22").Select
    Selection.NumberFormat = _
        "_-[$$-en-US]* #,##0.00_ ;_-[$$-en-US]* -#,##0.00 ;_-[$$-en-US]* ""-""??_ ;_-@_ "
    Cells.Select
    Selection.Columns.AutoFit
    Range("B23").Select
End Sub