FilterTwoSeriesCopyAndPaste

FilterTwoSeriesCopyAndPaste.vbs

Sub FilterTwoSeriesCopyAndPaste()

    Dim S1_String, S2_String As String
    
    'READ VALUES FROM SETTING SHEET -------------------------------------------------------
    
    S1_String = Worksheets("Settings").Range("B2").Value
    S2_String = Worksheets("Settings").Range("B3").Value
    
    Debug.Print S1_String
    Debug.Print S2_String
    
    'SERIES1 --------------------------------------------------------------------------------
    'FILTER BY S1_STRING, USING FIELD 5
    'REPLACE CRITERIA1 WITH REQUIRED STRING
    Worksheets("SourceTable").Range("$A$1:$E$999").AutoFilter Field:=5, Criteria1:=S1_String
    
    'ONLY COPY REQUIRED COLUMNS FOR PLOTTING
    Sheets("SourceTable").Columns("C:E").Copy (Sheets("OutTable").Range("A1"))
    
    'SERIES2 --------------------------------------------------------------------------------
    'FILTER BY S2_STRING, USING FIELD 5
    'REPLACE CRITERIA1 WITH REQUIRED STRING
    Worksheets("SourceTable").Range("$A$1:$E$999").AutoFilter Field:=5, Criteria1:=S2_String
    
    'ONLY COPY REQUIRED COLUMNS FOR PLOTTING
    'UPDATE 'D1' IF ADDING MORE COLUMNS
    Sheets("SourceTable").Columns("C:E").Copy (Sheets("OutTable").Range("D1"))
    
    'CLEAN UP -------------------------------------------------------------------------------
    'Clear AutoFilters
    Worksheets("SourceTable").AutoFilterMode = False
    
End Sub