Sub CognosPrepReport_2019()
'
' CognosPrepReport Macro
'

'
    Rows("1:17").Select
    Selection.Delete Shift:=xlUp
    Range("B:B,G:G").Select
    Range("G3651").Activate
    Selection.Delete Shift:=xlToLeft
    Columns("A:F").Select
    Columns("A:F").EntireColumn.AutoFit
    Range("A1:F1").Select
    Selection.AutoFilter
    
End Sub


Sub Week1_Filter_2019()
    Windows("COGNOS_ESD_ECD_week1&2_JANember_CHOM.xlsx").Activate
    ActiveSheet.Range("$A$1:$F$3650").AutoFilter Field:=5, Criteria1:= _
        ">=11/01/2018", Operator:=xlAnd, Criteria2:="<=11/08/2018"
End Sub

Sub Week2_Filter_2019()
    Windows("COGNOS_ESD_ECD_week1&2_JANember_CHOM.xlsx").Activate
    ActiveSheet.Range("$A$1:$F$3650").AutoFilter Field:=5, Criteria1:= _
        ">=11/09/2018", Operator:=xlAnd, Criteria2:="<=11/15/2018"
End Sub
Sub Week1and2_Filter_2019()
    Windows("COGNOS_ESD_ECD_week1&2_JANember_CHOM.xlsx").Activate
    ActiveSheet.Range("$A$1:$F$3650").AutoFilter Field:=5, Criteria1:= _
        ">=11/01/2018", Operator:=xlAnd, Criteria2:="<=11/15/2018"
End Sub
Sub PopulateWithCognos_2019()
'
' PopulateWithCognos
'

'
    Windows("ESD_QA_2019.xlsx:2").Activate
    Range("H" & Selection.row).Select
    Selection.Copy
    Range("K" & Selection.row).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("K" & Selection.row).Select
    Selection.Cut
    Range("K" & Selection.row).Select
    
End Sub

Sub CopyFromCognosToTIX_2019()
'
' CopyFromCognosToTIX
'

'
    Windows("COGNOS_ESD_ECD_week1&2_JANember_CHOM.xlsx").Activate
    Range("B" & Selection.row & ":F" & Selection.row).Select
    Selection.Copy
    Workbooks("ESD_QA_2019.xlsx").Activate
    Windows("ESD_QA_2019.xlsx:2").Activate
    Range("K" & Selection.row).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Call NextVisible_2019
    'Application.Run "E_PREP_QA.xlsm!Week1_Filter"
    'Application.Run "E_PREP_QA.xlsm!Week2_Filter"
    'Application.Run "E_PREP_QA.xlsm!Week1and2_Filter"
    Windows("ESD_QA_2019.xlsx:2").Activate
End Sub

Sub NextVisible_2019()
 Dim r As Range
 Set r = ActiveCell
 For I = 1 To Rows.Count
     Set r = r.Offset(1, 0)
     If r.EntireRow.Hidden = False Then
         r.Select
         Exit Sub
     End If
 Next
 End Sub








Sub AddW1W2Sorting_Buttons_2019()
'
' AddW1W2Sorting_Buttons
'

'
    Application.WindowState = xlNormal
    Windows("ESD_QA_2019.xlsx:1").Activate
    Windows("COGNOS_ESD_ECD_week1&2_JANember_CHOM.xlsx").Activate
    ActiveSheet.Buttons.Add(565.8, 28.2, 96.6, 26.4).Select
    Selection.OnAction = "E_PREP_QA.xlsm!Week1_Filter"
    Selection.Characters.Text = "Week 1"
    With Selection.Characters(Start:=1, Length:=6).Font
        .Name = "Tahoma"
        .FontStyle = "Regular"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 1
    End With
    Range("I2710").Select
    ActiveSheet.Shapes.Range(Array("Button 5")).Select
    Selection.Copy
    ActiveSheet.Buttons.Add(565.8, 28.2, 96.6, 26.4).Select
    ActiveSheet.Paste
    ActiveSheet.Shapes.Range(Array("Button 6")).Select
    ActiveSheet.Shapes("Button 6").IncrementLeft -12
    ActiveSheet.Shapes("Button 6").IncrementTop 25.8
    Selection.Characters.Text = "Week 2"
    With Selection.Characters(Start:=1, Length:=6).Font
        .Name = "Tahoma"
        .FontStyle = "Regular"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 1
    End With
    Range("J2712").Select
    ActiveSheet.Shapes.Range(Array("Button 6")).Select
    Selection.OnAction = "E_PREP_QA.xlsm!Week2_Filter"
    Range("I2714").Select
End Sub