none
Excel Vba - Problema com a Pivot Table Version RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Bom dia,

    Criei uma planilha, na versão 2010, com a macro simples que apenas altera o campo de soma para média:

    ActiveSheet.PivotTables("Tabela4").PivotFields("Falta").Function = xlSum
    ou
    ActiveSheet.PivotTables("Tabela4").PivotFields("Falta").Function = xlAverage

    Entretanto alguns usuários instalaram o Excel 2013 e a função não funciona adequadamente...
    Alguém conhece uma forma de "travar" as tabelas dinâmicas no formato da versão 2010?

    Obrigado

    Rafael
    terça-feira, 27 de agosto de 2013 14:07
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Não estou com o Excel 2013 no momento, mas você experimentou gravar uma macro que faça isso no Excel 2013? Pode ser que o código seja diferente, pois algumas coisas do modelo de objeto de tabelas dinâmicas mudaram no Excel 2013.

    Se o que eu disse for verdade, utilize um código como:

    Sub fnc()
    If Val(Application.Version) = 15 Then 'Excel 2013
        'Código que funciona no Excel 2013
    Else
        'Código que funciona no Excel 2010 ou inferior
        ActiveSheet.PivotTables("Tabela4").PivotFields("Falta").Function = xlSum
    End If
End Sub

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    quarta-feira, 28 de agosto de 2013 01:44
    |
    Moderador