ATUALIZA TD AUTOMATICAMENTE

2024 - VBA & Macros

Post Recente por FragosoJP 8 anos atrás

4 Posts

2 Usuários

0 Reactions

830 Visualizações

RSS

FragosoJP

(@fragosojp)

Posts: 101

Estimable Member

Topic starter

boa tarde a todos

eu um código VBA para atualizar a Tabela Dinâmica
porem encontro problemas na hora de executar

No Virtual Basic ela funciona perfeitamente, porem quando estou no Excel ela da erro
poderiam me ajudar?

segue o código que estou usando e a planilha

Private Sub Worksheet_Change(ByVal Target As Range)
    
   If Target.Column <= 16 And Target.Row <= 17 Then
    Application.OnTime Now + TimeSerial(0, 0, 3), “Atualiza_TD”
    End If
    
End Sub

----------------------------------------------------------------------------------------------

Sub Atualiza_TD()

    Sheets("Plan3").PivotTables("TD").RefreshTable


End Sub

Postado : 07/04/2017 11:28 am

FragosoJP

(@fragosojp)

Posts: 101

Estimable Member

Topic starter

Eu encontrei um outro Código VBA que consegue fazer a Atualização da planilha sega de forma automática

segue:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim nPT As PivotTable

    Set nPT = ActiveSheet.PivotTables("TD")
 
    nPT.RefreshTable


End Sub

desde já obrigado a todos

Postado : 07/04/2017 12:25 pm