Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
macro para realocar...
 
Notifications
Clear all

macro para realocar formatação condicional

 
2024 - VBA & Macros
Post Recente por Edcronos 11 anos atrás
3 Posts
1 Usuários
0 Reactions
472 Visualizações
RSS
 Edcronos
(@edcronos)
Posts: 1006
Noble Member
Topic starter
 

Bem tenho essa macro que amplia a range da formatação condicional depois de limpar a formatação para adição ou exclusão de colunas

Sub ini_Format()
For Nform = 1 To ActiveSheet.Cells.FormatConditions.Count
With ActiveSheet.Cells.FormatConditions(Nform)
.ModifyAppliesToRange Range("T18:GN6000")
End With
Next
End Sub
"Uso um pouco diferente"

todas as formatações iniciam em T18 mesmo que sejam para colunas ou linhas especificas, as formulas usam linhas AUX para se guiar.

Bem, funciona,
mas eu não queria esticar as formatações e sim pegar de T18 e aplicar por exemplo na Range V100:GN6000, mas sem perder a de T18.

tem como fazer isso?
ATT.

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 : 11/06/2014 5:06 pm
 Edcronos
(@edcronos)
Posts: 1006
Noble Member
Topic starter
 

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
 Edcronos
(@edcronos)
Posts: 1006
Noble Member
Topic starter
 

é pelo visto não tem jeito

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 : 13/06/2014 12:40 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico