none
erro em tempo de execução 9 RRS feed

  • Pergunta

  • Bom dia Galera,

    Estou com erro em tempo de execução 9 em um trecho do meu código, vê se vocês podem me ajudar.

    Sub TABELADINÂMICA()


    Sheets(2).Activate

       Rows("1:5000").Select
        Selection.EntireRow.Hidden = False
        Rows("1:5000").Select
        With Selection.Interior
            .Pattern = xlNone
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With


    ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields( _
            "Data de Detecção do defeito").AutoSort xlAscending, _
            "Data de Detecção do defeito"

     ActiveSheet.PivotTables("Tabela dinâmica1").PivotSelect "", xlDataAndLabel, _
            True
        ActiveSheet.PivotTables("Tabela dinâmica1").PivotCache.Refresh
       
          Range("A1:A5000").Select
        Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        Selection.Borders(xlEdgeLeft).LineStyle = xlNone
        Selection.Borders(xlEdgeTop).LineStyle = xlNone
        Selection.Borders(xlEdgeBottom).LineStyle = xlNone
        Selection.Borders(xlEdgeRight).LineStyle = xlNone
        Selection.Borders(xlInsideVertical).LineStyle = xlNone
        Selection.Borders(xlInsideHorizontal).LineStyle = xlNone


    A = 5
    Cells(5, 7).Select

      ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields( _
            "Descrição Localização defeito detectado - Descrição natureza defeito detectado") _
            .AutoSort xlDescending, "Contar de Vis", ActiveSheet.PivotTables( _
           "Tabela dinâmica1").PivotColumnAxis.PivotLines(5), 1

    O no depurar o erro está na última linha!

    segunda-feira, 9 de julho de 2018 13:55

Todas as Respostas

  • Jonathan

    nos dê mais detalhes sobre o Erro.

    Os nomes e campos informados na chamada realmente existem na tabela?

    Abraço!


    Natan

    quarta-feira, 11 de julho de 2018 20:29