none
Erro 1004 Macro VBA RRS feed

  • Pergunta

  • Bom dia,

    Minha macro apresenta o erro "Erro em tempo de execução 1004: não é possível obter a propriedade pivotfields da classe pivottable"

    meu código é:

    Sub PreçoMED()

    'Ajuste na tabela resumo marca
    Application.ScreenUpdating = False
    TipoPreco = Range("E12")
    Range("F14:T23,E12").Select

    Select Case Range("E12")
        Case Is = "PREÇO MÍNIMO"
            Selection.Replace What:="MÍNIMO", Replacement:="MÉDIO", LookAt:=xlPart, _
                SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                ReplaceFormat:=False
        Case Is = "PREÇO MÁXIMO"
            Selection.Replace What:="MÁXIMO", Replacement:="MÉDIO", LookAt:=xlPart, _
                SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                ReplaceFormat:=False
    End Select

    'Ajuste na dinamica por produto
    Select Case TipoPreco
        Case Is = "PREÇO MÍNIMO"
        ActiveSheet.PivotTables("PreçoProduto").PivotFields("Mín de preço à vista").NumberFormat = "0.00"
        ActiveSheet.PivotTables("PreçoProduto").PivotFields("Mín de preço à vista").Function = xlAverage
        Case Is = "PREÇO MÁXIMO"
        ActiveSheet.PivotTables("PreçoProduto").PivotFields("Máx de preço à vista").NumberFormat = "0.00"
        ActiveSheet.PivotTables("PreçoProduto").PivotFields("Máx de preço à vista").Function = xlAverage
    End Select
    Range("a1").Select
    Application.ScreenUpdating = True
    End Sub

    Podem me auxiliar? já conferi as tabelas e estão com os nomes Ok.

    tenho o home and business 2019

    quarta-feira, 21 de agosto de 2019 14:43