ProlificCSVMacro2.bas

Attribute VB_Name = "Prolific02"
Sub Results()
Attribute Results.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Results 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("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[-5]C,R[-4]C)"
    Range("B20").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-6]C+R[-5]C)*0.789041"
    Cells.Select
    Selection.Columns.AutoFit
    Range("B10").Select
    Selection.NumberFormat = "[h]:mm:ss"
    Range("B12").Select
    Selection.NumberFormat = _
        "_-[$£-en-GB]* #,##0.00_-;-[$£-en-GB]* #,##0.00_-;_-[$£-en-GB]* ""-""??_-;_-@_-"
    Range("B13").Select
    Selection.NumberFormat = _
        "_-[$£-en-GB]* #,##0.00_-;-[$£-en-GB]* #,##0.00_-;_-[$£-en-GB]* ""-""??_-;_-@_-"
    Range("B14").Select
    Selection.NumberFormat = _
        "_-[$$-en-US]* #,##0.00_ ;_-[$$-en-US]* -#,##0.00 ;_-[$$-en-US]* ""-""??_ ;_-@_ "
    Range("B15").Select
    Selection.NumberFormat = _
        "_-[$$-en-US]* #,##0.00_ ;_-[$$-en-US]* -#,##0.00 ;_-[$$-en-US]* ""-""??_ ;_-@_ "
    Range("B17").Select
    Selection.NumberFormat = _
        "_-[$£-en-GB]* #,##0.00_-;-[$£-en-GB]* #,##0.00_-;_-[$£-en-GB]* ""-""??_-;_-@_-"
    Range("B18").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-4]C+R[-3]C)*0.789041"
    Range("B18").Select
    Selection.NumberFormat = _
        "_-[$£-en-GB]* #,##0.00_-;-[$£-en-GB]* #,##0.00_-;_-[$£-en-GB]* ""-""??_-;_-@_-"
    Range("B20").Select
    Selection.FormulaR1C1 = ""
    Range("B20").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=SUM(R[-3]C,R[-2]C)"
    Range("B20").Select
    Selection.NumberFormat = _
        "_-[$£-en-GB]* #,##0.00_-;-[$£-en-GB]* #,##0.00_-;_-[$£-en-GB]* ""-""??_-;_-@_-"
    Range("B22").Select
    ActiveCell.FormulaR1C1 = "=R[-2]C / (R[-12]C * 24)"
    Range("B22").Select
    Selection.NumberFormat = _
        "_-[$£-en-GB]* #,##0.00_-;-[$£-en-GB]* #,##0.00_-;_-[$£-en-GB]* ""-""??_-;_-@_-"
        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("B24").Select
End Sub