エクセルVBA オートフィルタについて教えてください。 オートフィルタの結果の個数を同じブックの別シ

エクセルVBA オートフィルタについて教えてください。
オートフィルタの結果の個数を同じブックの別シートに表示させるのはできたのですが、別ブックに、表示させるのが出来ません、、、。ぜひ教えてください！
ちなみに、同じブックの別シートへの方法は
sub四月()
Ｄim cnt As Long
Ｄim sh1 As Worksheet
Ｄim sh2 As Worksheet

Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")

sh1.Select
Range("A1").AutoFilter Field:=3, Criteria1:="野菜"
Range("A1").AutoFilter Field:=4, Criteria1:="人参"
Range("A1").AutoFilter Field:=23, Criteria1:=xlFilterAllDates InPeriodApril
cnt = WorksheetFunation.Suatotal(3,Range("w:w")) -1
sh2.Range("B5").Value = cnt
sh1.ShowAllData

End Sub

で出来ました。これを別ブックに表示する方法で教えて頂きたいです。よろしくお願います。

No.2 回答者： ngkkkkk 回答日時： 2019/06/18 14:41

sh2.Range(”B5”).Value = cnt

の部分を、以下で行けると思います。

Dim bk2 As Workbook
Workbooks.Open(”別ブックの絶対パス”)
Set bk2 = ActiveWorkbook
bk2.Worksheets(”別ブックのシート名”).Range(”B2”).Value = cnt

変数の定義、ブックのオープン処理、代入や、
別ブックのどのシートのどのセルに表示するのかは
適宜、やりやすいようにご自由に変更してください。

この回答へのお礼

ありがとうございます！
しかし、可能でしたら閉じているブックの方でフィルターを、かけ、マクロブックの方に結果を反映させる方法を、教えてください、、、。

お礼日時：2019/06/18 16:24

No.1 回答者： ngkkkkk 回答日時： 2019/06/18 12:45

Excelのバージョンは何でしょうか？

ブックが分かれるとなると、Excelのバージョンによって処理が変わります。

この回答へのお礼

コメントありがとうございます！エクセル2010を、使用しています。

お礼日時：2019/06/18 14:07