[Help] Tạo nút chọn ngày cho trong Pivot table

[nero2428]

Em dùng record macro để tạo nút chọn ngày load dữ liệu từ 1 Pivot table. Sẽ nhập ngày cần lấy dữ liệu vào ô F1. Sau khi nhấn nút thì bên Pivot table tự động chòn ngày tương ứng trong ô F1. Vì phải chọn ngày cho nhiều bảng Pivot từ nhiều sheet nên muốn tạo nút cho nhanh ạ.

Đây là đoạn code dùng record macro

Sub chonngay()
'
' chonngay Macro
'

'
ActiveSheet.PivotTables("PivotScrap").PivotFields("Date").ClearAllFilters
ActiveSheet.PivotTables("PivotScrap").PivotFields("Date").CurrentPage = _
"4/19/2019"
End Sub


Đây là đoạn code em chỉnh lại nhưng ko chạy được.

Sub chonngay()
'
' chonngay Macro
'

'
ActiveSheet.PivotTables("PivotScrap").PivotFields("Date").ClearAllFilters
ActiveSheet.PivotTables("PivotScrap").PivotFields("Date").CurrentPage = Range."F1"
End Sub




Thanks all.

 

[ptm0412]

Không phải Range."F1" mà là Range("F1")