Este fórum está sendo desativado

[caromacedo]

Boa tarde,

Possuo uma planilha programada para que uma linha inteira vá de uma planilha para a outra dependendo de uma variável.

Acontece que, todas as planilhas possuem as mesmas formatações condicionais, e toda vez que uma linha passa de uma planilha para a outra, ela cria uma formatação condicional apenas para a linha e "corta" as outras linhas.

É possível visualizar isso no arquivo que coloquei em anexo. Ao fazer a linha toda ir da planilha "Prefeitura" para a planilha "Andamento", na planilha andamento ele pegou a formatação condicional que era =$P:$P e virou =$P$3 e =$P$1:$P$2;$P$4:$P$1048576, por exemplo.

Gostaria que isso não acontecesse, queria que ficasse sempre apenas =$P:$P. Alguém sabe como posso resolver?

Muito obrigada e ótimo domingo!

[osvaldomp]

#
Olá, Carol.
Experimente colar como valores.

No código que está no módulo da planilha Prefeitura substitua esta linha

Código: Selecionar todos

            'Copiar
                .Cells(linha, 1).Resize(, 18).Copy Sheets(NomePlanilha).Cells(UltimaLinha, 1)

#
por estas

Código: Selecionar todos

            'Copiar
                .Cells(linha, 1).Resize(, 18).Copy
                Sheets(NomePlanilha).Cells(UltimaLinha, 1).PasteSpecial xlValues

[caromacedo]

Na verdade, não posso colar apenas como valores porque, as vezes, tenho contas dentro das células, exemplo "=200+600" e gostaria que essas fórmulas fossem junto de uma planilha para outra

[osvaldomp]

... gostaria que essas fórmulas fossem junto de uma planilha para outra

Vi que na coluna P há fórmulas iguais em todas as planilhas, então em lugar de "levar as fórmulas de uma para outra" bastaria manter as fórmulas na planilha destino.
Ainda, na coluna I também está aplicada Formatação Condicional, então é recomendável colar somente valores.
Veja se é isso. A coluna P não sofrerá qualquer alteração.

Código: Selecionar todos

                .Cells(linha, 1).Resize(, 15).Copy
                Sheets(NomePlanilha).Cells(UltimaLinha, 1).PasteSpecial xlValues
                .Cells(linha, 17).Copy
                Sheets(NomePlanilha).Cells(UltimaLinha, 17).PasteSpecial xlValues

[caromacedo]

Osvaldo, muito obrigada pela sua ajuda!

Acontece que nas colunas M, N e O as vezes possuem contas simples, as quais precisam se manter em fórmula quando passadas de uma planilha para outra.

De fato, faze-las passar apenas como valores, resolve o problema da formatação condicional, porém, quando eu realizo essas contas, elas somem, aparecendo apenas o valor na outra planilha

Precisava resolver mantendo a cópia com as fórmulas, pelo menos na coluna M,N e O!

Obrigada!!

[osvaldomp]

Entendi.
Veja se assim atende. Cola valores, textos e fórmulas.

Código: Selecionar todos

            'Copiar
                .Cells(linha, 1).Resize(, 18).Copy
                Sheets(NomePlanilha).Cells(UltimaLinha, 1).PasteSpecial xlFormulas

#
obs. o comando Resize(, 18) copia até a coluna R, atualmente sem uso. Se não houver previsão de usar aquela coluna, então pode alterar para ~~~> Resize(, 17)

[caromacedo]

Bom dia, Osvaldo!

Assim funcionou perfeitamente! E quanto a coluna 18, usava ela antes, agora está sem uso mesmo!

Muito obrigada pela sua ajuda!!

Uma ótima semana!!