VBAのコードについて

質問

VBA初心者でございます。
以下のコードの後半（End If以降）でエラーがでてしまいます。
非常に乱暴な質問で大変恐れ入りますが、コードで気になる点などございますでしょうか？
もしございましたら、ご教示頂けますと幸いです。
どうぞ宜しくお願いいたします。

Sub 絞り込み()

Dim i As Long
Dim grp As String
Dim newBookName As String
Dim newBookPath As String
Dim newBook As Workbook

For i = 2 To 4

grp = Workbooks("test_master").Worksheets("grpリスト").Cells(i, 2)
newBookName = Workbooks("test_master").Worksheets("grpリスト").Cells(i, 2) & ".xlsx"

newBookPath = ThisWorkbook.Path & "\" & newBookName

'指定したパスにファイルが作成済でないかを確認。
If Dir(newBookPath) = "" Then
'新しいファイルを作成
Set newBook = Workbooks.Add

'新しいファイルをVBAを実行したファイルと同じフォルダ保存
newBook.SaveAs newBookPath

Else
'既に同名のファイルが存在する場合はメッセージを表示
MsgBox "既に" & newBookName & "というファイルは存在します。"
End If

Workbooks("test_master").Worksheets("マスタ0701").AutoFilterMode = False
With Workbooks("test_master").Worksheets("マスタ0701").Range(Cells(3, "B"), Cells(Rows.Count, "CK").End(xlUp))
.AutoFilter Field:=13, Criteria1:=grp
'.CurrentRegion.Select
Range(Cells(3, "B"), Cells(Rows.Count, "CK").End(xlUp)).SpecialCells(xlVisible).copy Workbooks(grp).Worksheets("Sheet1").Range("A1")
'.AutoFilter
End With

Next i

End Sub

回答No.1

iruyasu · ベストアンサー

Range にはブック、シートの修飾が付いているのに
Cells には付いていない。

With Workbooks("test_master").Worksheets("マスタ0701")
.AutoFilterMode = False
With .Range(.Cells(3, "B"), .Cells(Rows.Count, "CK").End(xlUp))
.AutoFilter Field:=13, Criteria1:=grp
'.CurrentRegion.Select
.Range(.Cells(3, "B"), .Cells(Rows.Count, "CK").End(xlUp)).SpecialCells(xlVisible).copy Workbooks(grp).Worksheets("Sheet1").Range("A1")
'.AutoFilter
End With
End With

お礼

有難うございます！！
お陰様でエラーを解決することができました。
大変助かりました！

回答No.2

kkkkkm

以前に私が回答でシートを指定してなかったのが失敗でした。すみません。