Code VBA cho Pivotable

[hoahuongduong1986]

Dear Anh chị và các bạn,
Em muốn tận dụng khả năng tự apdate của Pivotable bằng Refresh. Tức khi em đổ Data vào một Sheet có sẵn nó tự thay đổi theo dữ liệu đưa vào bằng Code như ActiveWorkbook.RefreshAll. Tuy nhiên em muốn bỏ cái Blank trong Pivot tức chỉ Pivot các vùng có số liệu thay vì cả vùng bên dưới để trống. Em dùng đoạn Code gì để làm việc này ạ. Em cảm ơn anh chị.

 

[leonguyenz]

Dear Anh chị và các bạn,
Em muốn tận dụng khả năng tự apdate của Pivotable bằng Refresh. Tức khi em đổ Data vào một Sheet có sẵn nó tự thay đổi theo dữ liệu đưa vào bằng Code như ActiveWorkbook.RefreshAll. Tuy nhiên em muốn bỏ cái Blank trong Pivot tức chỉ Pivot các vùng có số liệu thay vì cả vùng bên dưới để trống. Em dùng đoạn Code gì để làm việc này ạ. Em cảm ơn anh chị.

Dùng Name động giải quyết được vấn đề của bạn về khoảng trắng.
PivotTable có thể tự update khi mở file, hoặc khi làm việc thì chỉ cần vào Data > Refresh All thì PivotTable sẽ cập nhật, hoặc sử dụng 1 code Activate Worksheet.

 

[LamNA]

Dear Anh chị và các bạn,
Em muốn tận dụng khả năng tự apdate của Pivotable bằng Refresh. Tức khi em đổ Data vào một Sheet có sẵn nó tự thay đổi theo dữ liệu đưa vào bằng Code như ActiveWorkbook.RefreshAll. Tuy nhiên em muốn bỏ cái Blank trong Pivot tức chỉ Pivot các vùng có số liệu thay vì cả vùng bên dưới để trống. Em dùng đoạn Code gì để làm việc này ạ. Em cảm ơn anh chị.

Bạn làm theo hướng dẫn như video đính kèm sẽ giải quyết được vấn đề bạn đang cần