Nhờ viết code tự động auto refesh pivot table khi thay đổi ô B3

[ketoan113]

kính gửi các anh chị,

Khi thay đổi ô B3 thì Power query auto refesh, em làm được rồi

Em nhờ anh chị viết dùm em code khi em thay đổi ô B3 thì Pivot Table cũng auto refesh luôn với ạ (file đính kèm)

Em cảm ơn các anh chị

 

[Hoàng_Dược_Sư]

kính gửi các anh chị,

Khi thay đổi ô B3 thì Power query auto refesh, em làm được rồi

Em nhờ anh chị viết dùm em code khi em thay đổi ô B3 thì Pivot Table cũng auto refesh luôn với ạ (file đính kèm)

Em cảm ơn các anh chị

Bạn xài thử

Private Sub Refresh_Pivot (ByVal Target As Range)

Worksheet("Sheet1").PivotTables("PivotTable1").RefreshTable

End Sub

 

[ketoan113]

Bạn xài thử

Private Sub Refresh_Pivot (ByVal Target As Range)

Worksheet("Sheet1").PivotTables("PivotTable1").RefreshTable

End Sub

code không auto refresh pivot table được bác ơi

 

[Phuocam]

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("B3")) Is Nothing Then
ActiveWorkbook.Connections("Query - Data").Refresh
Worksheets("Sheet1").PivotTables("PivotTable4").RefreshTable
End If

End Sub

 

[ketoan113]

Worksheets("Sheet1").PivotTables("PivotTable4").RefreshTable

code này không hoạt động bác ạ

khi mở file lên, ví dụ chọn mã ABC thì query auto refesh, pivot table không refesh

đang chọn mã ABC, chuyển sang xem mã XYZ chẳng hạn thì query auto refesh, pivot table cũng auto refesh nhưng lại là data của mã ABC ( data của mã trước đó )

 

[HeSanbi]

Bí quá bạn dùng Record macro:
ActiveSheet.PivotTables("PivotTable4").PivotCache.Refresh

 

[ketoan113]

ActiveSheet.PivotTables("PivotTable4").PivotCache.Refresh

cám ơn bác, đầy cũng là cách chữa cháy ạ