Excel Forum

Code: Select all

Sub Macro6()
'
' Macro6 Macro
'

'
    Sheets("StandardData ").Select
    ActiveSheet.Range("$D$2:$F$6").AutoFilter Field:=1, Criteria1:=">=100", _
        Operator:=xlAnd, Criteria2:="<=200"
    ActiveSheet.Range("$D$2:$F$6").AutoFilter Field:=2, Criteria1:=">=100", _
        Operator:=xlAnd, Criteria2:="<=200"
    ActiveSheet.Range("$D$2:$F$6").AutoFilter Field:=3, Criteria1:=">=1", _
        Operator:=xlAnd, Criteria2:="<=7"
    Range("A3:F3").Select
    Selection.Copy
    Sheets("SearchData").Select
    Range("A11").Select
    ActiveSheet.Paste
    Range("A15").Select
End Sub

Code: Select all

'Other code
ActiveSheet.Range("$D$2:$F$6").AutoFilter Field:=1, Criteria1:=">=" & ActiveSheet.Range("b4").Value, _
    Operator:=xlAnd, Criteria2:="<=" & ActiveSheet.Range("b6").Value
'Other code