como ninguém se pronunciou, acho que não existe uma maneira facil.
pensei em pasta especial
Algo como...
Ciform="V100"
ndf="GN6000"
Set cllo = Range(Ciform)
Range("T18").Copy
cllo.PasteSpecial xlPasteFormats
For Rm = 1 To cllo.FormatConditions.Count
cllo.FormatConditions(Rm).ModifyAppliesToRange Range(Ciform, ndf)
Next
para as formatações condicionais funcionou.
Mas aí... O que fazer sobre a formatação de fundo de V100?
T18 e V100 tem formatação de fundo diferente... Cor, tipo, um é Geral o outro é Data ...
fora a Celula V100 nas outras para onde a formatação condicional é arrastava não tem problemas.
se fosse apenas V100 tudo bem,
mas a macro vai trabalhar com range dinâmica e pode ser executada varias vezes em posições diferentes .
copiar formato de V100 e colar de volta depois vai substituir a formatação condicional tbm...
E agora...???
Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.
"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"
Postado : 12/06/2014 1:52 pm