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!