オートフィルターで開始~終了までの期間データ抽出
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