- 23 Nov 2017 às 14:22
#28376
Boa tarde,
Fiz uma form para o cliente escolher quais os dados que o mesmo deseja ter no relatório, assim que ele escolhe, a macro limpa a dinâmica atual e depois inclui os campos necessários, conforme macro abaixo.
ele não gera nenhum erro, o problema já é na primeira passagem do For.
Detalhe é que já testei essa planilha em outros 3 Pc's e somente no cliente(para variar) é onde ocorre o erro. a versão dele é compatível, a planilha tem várias complexidades, e aceita tudo, somente nessa hora é que trava.
Alguém me dê uma luz por favor.
Fiz uma form para o cliente escolher quais os dados que o mesmo deseja ter no relatório, assim que ele escolhe, a macro limpa a dinâmica atual e depois inclui os campos necessários, conforme macro abaixo.
Código: Selecionar todos
porém ao chegar no pvtfld.Orientation = xlHidden a macro simplesmente se encerra, sem dar continuidade ao restante. Sheets("Relatórios").Select
For Each pvt In ActiveSheet.PivotTables
For Each pvtfld In pvt.PivotFields
pvtfld.Orientation = xlHidden
Next pvtfld
Next pvt
ele não gera nenhum erro, o problema já é na primeira passagem do For.
Detalhe é que já testei essa planilha em outros 3 Pc's e somente no cliente(para variar) é onde ocorre o erro. a versão dele é compatível, a planilha tem várias complexidades, e aceita tudo, somente nessa hora é que trava.
Alguém me dê uma luz por favor.