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

  • Pergunta

  • 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

  • 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