オートフィルターで開始～終了までの期間データ抽出

 

Sub 期間抽出進捗()

    ActiveSheet.AutoFilterMode = False

  Dim 期間1 As String

  Dim 期間2 As String

  With Sheets("メイン")

    期間1 = .Range("F2")

    期間2 = .Range("F3")

    Sheets("進捗").Range("A1").AutoFilter Field:=7, _

    Criteria1:=">=" & 期間1, _

    Operator:=xlAnd, _

    Criteria2:="<=" & 期間2

 

    Sheets("進捗").Range("A1").CurrentRegion.Copy Sheets("抽出進捗").Range("A1")

    

    Sheets("進捗").AutoFilterMode = False

End With

 

End Sub

 

 

Sub 期間抽出データ()

    ActiveSheet.AutoFilterMode = False

  Dim 期間1 As String

  Dim 期間2 As String

  With Sheets("メイン")

    期間1 = .Range("F2")

    期間2 = .Range("F3")

    Sheets("データ").Range("A1").AutoFilter Field:=17, _

    Criteria1:=">=" & 期間1, _

    Operator:=xlAnd, _

    Criteria2:="<=" & 期間2

 

    Sheets("データ").Range("A1").CurrentRegion.Copy Sheets("抽出データ").Range("A1")

    

    Sheets("データ").AutoFilterMode = False

End With

 

End Sub