Obrigado Mauro. Mas não funciona. Fica processando e não sai do mesmo sitio. Experimentei da seguinte forma: Sub RefreshAllPivotTables() Dim PT A...

Valeu Mauro. Grande ajuda. Tenho só mais uma dúvida. O código serve para separar um ficheiro em outros arquivos com base numa determinada coluna que ...

Neste código também não consigo utilizar a lógica anterior. Aqui pretendo pintar a ultima linha de amarelo, mas a coluna pode ser diferente de "...

Valeu Mauro. Pode só me explicar porque mete "-1" no código? Assim me esmaga informação se usar o mesmo código para colar novamente

Neste caso estou a copiar dados de uma sheet para outra. Mas a coluna "FK" pode não ser fixa... Os dados começam sempre na coluna A2, mas po...

Mauro, É possivel fazer isso também neste código? Set owbk = Workbooks.Open(WSR.Range("DIRETORIO_1") & "Arquivo_1&#...

Dá erro em lprimcol = .Column lultcol = .Columns(UBound(.Value, 2)).Column "Variable not defined"

Alex, Acabei por resolver. Obrigado por toda a ajuda.

Alex, Me deparei com um problema. O "arquivo Mãe", para onde é copiada a informação dos outros arquivos, tem mais de 100.000 linhas. Quando...