「オブジェクト変数またはwithブロック変数が設定されていません」の対処

Question

前提・実現したいこと

VBA初心者です。
複数のシートをループして指定の日付を2種類指定するVBAを作りたいです。
調べて色々組み合わせて作ってみましたが、うまく動きません。
本来であれば、データ抽出後、別シートに転記する予定ですが、
抽出する所で躓いてしまったため、お力お貸し頂ければ幸いです。

発生している問題・エラーメッセージ

「オブジェクト変数またはwithブロック変数が設定されていません」と出てしまいます。

該当のソースコード

    Dim i As Integer
    Dim ws As Worksheet
    Dim filterArray()
    
    Dim 期間1 As String
    Dim 期間2 As String
                
   期間1 = Worksheets("シート名").Range("指定の日付が出てくるセル").value
   期間2 = Worksheets("シート名").Range("指定の日付が出てくるセル").value

'    シートの指定
   With AutoFilter

         For i = 4 To Sheets.count
         Worksheets(i).Activate
         Debug.Print i & "枚目のシートの処理を開始"


'    フィルタを設定
    Worksheets(i).Range("A5:AJ5").Select
    Selection.AutoFilter
    
'　　データの抽出’
     ws(i).Range("$A$5:$AJ$237").AutoFilter Field:=2, _
        Criteria1:=">=" & 期間1, _
         Operator:=xlOr, _
        Criteria2:="<=" & 期間2
     
        Next i '次のシートに移る

'　　フィルターの解除’
    Worksheets(i).ActiveSheet.ShowAllData

  End With

End Sub

試したこと

Setなどを付けてみましたが、コンパイルエラーがでてしまいました。

補足情報（FW/ツールのバージョンなど）

Answer 1

まずWithの使い方が間違っていますね。以下のURLが参考になると思います。
http://officetanaka.net/excel/vba/beginner/16.htm

また、途中に出てくるws(i)も、wsという変数を宣言していないので、このままだとエラーになります。現状わざわざwsという宣言をする理由は無さそうなので、Withとwsの部分を直すと以下のようになります。

思った通りの挙動をするかはともかく、動きはすると思います。

前略

For i = 4 To Sheets.count
    With Worksheets(i) 

         .Activate
         Debug.Print i & "枚目のシートの処理を開始"

'    フィルタを設定
        .Range("A5:AJ5").AutoFilter

'　　データの抽出’
        .Range("$A$5:$AJ$237").AutoFilter Field:=2, _
        Criteria1:=">=" & 期間1, _
         Operator:=xlOr, _
        Criteria2:="<=" & 期間2

'　　フィルターの解除’
        .ActiveSheet.ShowAllData
    End With
Next i '次のシートに移る

Comments

[jinoji]

For i = 4 To Sheets.Count
Set ws = Worksheets(i)
With ws
Debug.Print i & "枚目のシートの処理を開始"
'　　データの抽出’
.Range("$A$5:$AJ$237").AutoFilter Field:=2, Criteria1:=">=" & 期間1, Operator:=xlOr, Criteria2:="<=" & 期間2

'（転記処理）’
'.AutoFilter.Range.Copy tenkisaki.Range("A1")

'　　フィルターの解除’
.ShowAllData

End With
Next i '次のシートに移る